|
Hallo zusammen,
ich versuche Daten in eine Excel-Tabelle zu bringen. Das funktioniert soweit auch. Aber beim Beenden kommt immer noch die Abfrage, ob gespeichert werden soll.
Das soll automatisch erfolgen... und da gibt es immer irgendeine Fehlermeldung
Ich vermte, dass das was mit WorkBook und WorkBookS zu tun hat...
Dim strPfad As String
strPfad = ActiveDocument.path & "\" & "Daten.xlsm"
Set xl = CreateObject("excel.application")
On Error Resume Next
xl.Workbooks.Open FileName:=strPfad
xl.ActiveWorkbook.Worksheets("Tabelle1").Cells(10, 8) = "BLABLA"
' xl.Save ' Das funktioniert auch nicht
xl.Close SaveChanges:=True ' OHNE On Error Resume Next gibt es hier den Fehler
xl.Quit
Alles was ich bislang gefunden habe, kriege ich auch nicht zum Laufen..
Danke für die Hilfe
DC
|