Vanuit outlook data sturen naar geopende worksheet

[ChrisF]

Hallo,

Ik probeer door middel van een macro in outlook, een waarde te sturen naar een reeds geopende worksheet in excel en daarna
een waarde uit te lezen van dezelfde sheet.

Als ik dit probeer met:

GetObject("F:\Projectnummers\Overzicht projecten 2015.xlsm").Sheets("Projecten").Cells(2, 17).Value = Z

dan krijg ik de melding dat een deze reeds geopend is en dat je een sheet met dezelfde naam niet 2x mag openen.
Hoe ga ik dit aanpakken?

Chris.

 

[snb]

Ik ben benieuwd naar een schermafdruk van de melding die je krijgt.

 

[ChrisF]

Hallo snb,

Dit is de melding die ik krijg.

 

[edmoor]

Dat zou moeten kunnen met een sub die je aanroept, of je integreert de code in je eigen code:

Sub StuurNaarExcel (Regel As String)
Dim objApp As Excel.Application
Set objApp = GetObject(, "Excel.Application")

With objApp
    .Workbooks("Overzicht projecten 2015.xlsm").Activate
    .ActiveWorkbook.Worksheets("Projecten").Activate
    .ActiveWorkbook.Worksheets("Projecten").Range("Q2").Value = Regel
    .SaveWorkspace
    .ActiveWorkbook.RefreshAll
End With

Set objApp = Nothing
End Sub

 

[ChrisF]

Bedankt edmoor, het werkt :thumb::thumb: helemaal blij!!

Chris.

 

[edmoor]

Ok dan

 

[snb]

dan ben ik benieuwd naar de melding

msgbox getobject(,"excel.application").activeworkbook.fullname

en ik vermoed dat deze code wel werkt:

GetObject(,"excel.application").activeworkbook.Sheets("Projecten").Cells(2, 17).Value = Z