|
Huhu, ich habe ein Access-Makro geschrieben, welches Daten aus einem Access-Formular in eine Exceldatei schreibt, die wiederum aus einer Excel-Dokumentvorlage erstellt wird. Nun ist das Problem, dass der Code zwar funktioniert - aber nur einmal. Ich denke, es liegt an dem immer noch vorhandenen Objektverweis, den ich trotz "= nothing" nicht wegbekomme.
Die Fehlermeldung lautet: "Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler"
Weiß jemand, wo der Hase im Pfeffer liegt?
Code:
Private Sub Befehl1_Click()
Dim xls As Object
Set xls = CreateObject("Excel.Application")
xls.Visible = True
Workbooks.Open "Vorlage.xltx"
On Error GoTo Weiter
xls.Sheets("Tabelle1").Activate
Set xlSheet = xls.Sheets("Tabelle1")
xlSheet.Cells(7, 6).Value = Me.Text18
xlSheet.Cells(5, 6).Value = Me.Text14
usw. usw.
xlSheet.Cells(53, 8).Value = Me.Text66 '"WDR: " &
xlSheet.Cells(54, 8).Value = Me.Text68 '"Degeto: " &
Set xlSheet = Nothing
Set xls = Nothing
End Sub
|