Workbook schliessen
Space
Ich habe ein Problem. Beim Ausführen dieses Codes kommt an der fett markierten Stelle immer der Fehler: "Laufzeitfehler 424: Objekt erforderlich". Die automatisch geöffnete Excel Datei öffnet sich aber schliesst sich somit nicht mehr. Sie bleibt also nach der Ausführung des Codes offen. Ich will sie aber wieder schliessen. In einer anderen Situation habe ich auch "wks.Parent.Close" eingesetzt und es hat geklappt. Warum hier nicht!?
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Dim arrSpalte, lngS As Long, lngZ As Long
arrSpalte = Array(12, 3, 9, 11, 7, 8, 14, 10, 15, 16, 2, 17, 1) 'Hier die Reihenfolge _
angeben !
Set wsQuelle = Workbooks.Open(Filename:="Pfad").Sheets(1)
Set wsZiel = Workbooks("Data Generator.xls").Sheets("Partner Kontakte")
For lngS = LBound(arrSpalte) To UBound(arrSpalte)
lngZ = lngZ + 1
With wsQuelle
.Range(.Cells(18, 1), .Cells(Rows.Count, 3).End(xlUp)).Resize(, 23).Columns(arrSpalte(lngS)) _
_
.Copy wsZiel.Cells(18, lngZ)
End With
Next
'Kopiermodus beenden
Application.CutCopyMode = False
'Schließen des Worksheets
wks.Parent.Close
'Bestätigungsabfrage2 schließen
Unload Bestätigungsabfrage2
'"Data Generator" in den Vordergrund bringen
Workbooks("Data Generator.xls").Activate
End Sub
Gruß
Space