Liebes Forum
stuck again....
Versuche in einem geöffnetem Excel Blatt die Summe von L2:L5 in die Zelle T2 zu schreiben. Das ganze funktioniert einmal, danach ist das Excel noch geöffnet im Taskmanager und beim 2. Aufruf erfolgt eine Fehlermeldung. Was hab ich da falsch verstanden?
Ohne die 2 Zeilen wird Excel Normal geschlossen.
Danke für alle Tips.
'Summe von L2:L5 in Zelle T2 schreiben
'@@
Set myrange = Worksheets("Formular").Range("L2:L5")
xlsht.Cells(2, "T").Value = xlWrkBk.Application.WorksheetFunction.Sum(myrange)
xlWrkBk.Save
xlsht.Application.Quit
Set xlWrkBk = Nothing
Set xlsht = Nothing
Set xl = Nothing
Set myrange = Nothing
Hallo,
wie wurden diese Variablen deklariert?
Set xlWrkBk = Nothing
Set xlsht = Nothing
Set xl = Nothing
Set myrange = Nothing
Hallo Peter
Besten Dank für die schnelle Antwort
Hab den ganzen Code mal auf ein Button gelegt.
'Summe von L2:L18 in Zelle N2 schreiben
'@@
Dim spathname As String
spathname = "N:\far\180_import.xls"
Set xl = CreateObject("Excel.Application")
Set xlWrkBk = xl.Workbooks.Open(spathname) '"N:\far\import\xxx_import.xls")
Set xlsht = xlWrkBk.Worksheets(1)
Set myrange = Worksheets("Formular").Range("L2:L18")
xlsht.Cells(2, "N").Value = xlWrkBk.Application.WorksheetFunction.Sum(myrange)
xlWrkBk.Save
xlsht.Application.Quit
Set xlWrkBk = Nothing
Set xlsht = Nothing
Set xl = Nothing
Hallo,
Set myrange = xlsht.Range("L2:L18")
Vielen Dank für deine Hilfe, ich verstehe jedoch nicht warum die Summe geschrieben wurde und dann Excel nicht geschlossen werden konnte. Der Fehler liegt doch bei der Rangedefinition.
Hallo,
wenn Excel-Objekte nicht sauber referenziert werden, reagiert Excel eben etwas "sauer"....
Worksheets("Formular").Range("L2:L18")
ist keine korrekte Referenz aus Access heraus.
Besten Dank für die Info, hab ein weiteres Problem mit ev. dem gleichen Hintergrund gepostet.