Mit folgendem VBA-Code versuche ich aus Access heraus ein Excel-Workbook zu öffnen und ein neues Worksheet hinzu zufügen. Das klappt auch beim ersten Durchgang. Starte ich dann erneut, kommt die Fehlermeldung: "Laufzeitfehler 1004, Die Methode Worksheets für das Objekt _Global ist fehlgeschlagen". Bei einem weiteren Versuch funktioniert es dann wieder. Weiß nicht wo der Fehler liegt.
VBA-Code:
Private Sub Exceldatei_oeffnen()
Dim objExcel As excel.Application
Set objExcel = New excel.Application
With objExcel
.Workbooks.Open FileName:="C:\Protokoll.xlsm" 'leeres Workbook mit drei Sheets (" _
Tabelle1", "Tabelle2" und "Tabelle3")
.Visible = True
.ActiveWorkbook.Sheets.Add After:=Worksheets(3) 'hinzufügen eines neuen Sheets _
nach dem dritten Blatt
.ActiveSheet.Name = "Testblatt" 'umbenennen des neuen Sheets
End With
objExcel.Workbooks("Protokoll").Close
excel.Application.Quit
Set objExcel = Nothing
End Sub
Freue mich über jeden Ansatz!