ich habe ein Problem wenn ich aus Word heraus per Makro eine Excelmappe öffnen möchte. Das Ganze funktioniert problemlos wenn Excel vor dem Ausführen des Makros bereits geöffnet ist. Doch wenn Word Excel öffnen muss, kriegt Word nicht mit, dass Excel dann offen ist und führt den Code fehlerhaft aus. Excel wird in dem Fall im Taskmanager zwar als Prozess nicht aber als Anwendung geführt. Ich habe auch schon andere Varianten über shell probiert hat aber auch nicht funktioniert. Wo müsste ich suchen?
OS ist Win7 HomePremium 64bit
Danke für eure Hilfe.
Gruß Johannes
Sub Öffnen()
Dim xclApp As Object
Dim xclWbk As Object
Dim xclSht As Object
Set xclApp = GetObject(, "Excel.Application") 'Excel holen nicht neu starten
If xclApp Is Nothing Then 'Excel wird neue gestartet falls noch nicht offen
Set xclApp = CreateObject("Excel.Application")
End If
With xclApp
Set xclWbk = xclApp.Workbooks.Open("E:\test.xlsx")
End With
xclWbk.Close = 2 'Workbook schließen und Speichern? (xlSaveChanges = 1; xlDoNotSaveChanges = _
2)
Set xclSht = Nothing 'Variable zurücksetzen
Set xclWbk = Nothing 'Variable zurücksetzen
End Sub