Workbooks gezielt schliessen
20.10.2005 16:12:29
Dr.
mit nachfolgendem Code öffne ich sukzessive ausgewählte Dateien, kopiere deren Sheets in ein separates Workbook und möchte diese dann wieder schliessen, aber die Zeile Workbook.Close macht Zicken. Wie lautet da die richtige Syntax?
Danke Euch!
Sub test()
nameziel = Application.GetOpenFilename("Excel-Dateien (*.xl*), *.xls", MultiSelect:=True)
If IsArray(nameziel) Then
For i = LBound(nameziel) To UBound(nameziel)
Workbooks.Open nameziel(i)
Sheets.Copy after:=Workbooks("test.xls").Sheets(1)
Workbooks(nameziel(i)).Close
Next i
End If
End Sub