Hallo
Ich bin noch nicht so lange bei der Makro-Programmierung.
Seht mir also bitte nach, wenn sich die Frage doof anhört.
Mit diesem Code wird im Taskmanager Microsoft Excel geöffnet und wieder geschlossen:
sub TestMakro()
Dim pExcel
Dim pSheet
Dim Zeile
Zeile = 1
datei = "Beispiel.xlsx"
pExcel = Createobject("Excel.Application")
pWorkbook = pExcel.Workbooks.open(datei)
pSheet = pworkbook.ActiveSheet
Msgbox "Jetzt ist excel offen"
pworkbook.close
pSheet = Nothing
pWorkbook = Nothing
pExcel = Nothing
Msgbox "Jetzt sollte excel zu sein"
end sub
mit diesem Code bleibt Microsoft Excel im Taskmanager stehen
sub TestMakro()
Dim pExcel
Dim pSheet
Dim Zeile
Zeile = 1
datei = "Beispiel.xlsx"
pExcel = Createobject("Excel.Application")
pWorkbook = pExcel.Workbooks.open(datei)
pSheet = pworkbook.ActiveSheet
Msgbox "Jetzt ist excel offen"
startwert="1"
Do While Len(startwert) > 0
with psheet
zeile = zeile + 1
A =.Cells(zeile,1)
End With
Menge = Trim(A)
startwert = psheet.Cells(zeile,1)
Loop
pworkbook.close
pSheet = Nothing
pWorkbook = Nothing
pExcel = Nothing
Msgbox "Jetzt sollte excel zu sein"
end sub
Ich seh aber keinen Fehler und die Verarbeitung läuft durch.
Weiß jemand, was da wie geschlossen werden muss?
|