Hallo,
ich erhalte beim Öffnen eines ExcelWorkbooks folgende Fehlermeldung:
Run-time error '-2147023170 (800706be)':
Automation error
The remote procedure call failed
Beim Debugging bleibt er hängen bei
Set xlBook = xlApp.Application.Workbooks.Open(pfad)
Hierbei sind die beteiligten Variablen definiert:
Dim xlApp As Object, xlBook As Object
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application")
End If
Der pfad wird zu Beginn als string übergeben.
Vielen Dank für eure Hilfe!
Grüsse Lars