Hallo liebe VB-Profis,
hab leider folgendes Problem:
Mein kleines Makro fügt 10 Dokumente(Arbeitsblatt) in das Dokument "Dokument1" ein, die ich davor über das Application.GetOpenFilename auswählen kann und öffne. Mein Problem ist, dass ich nun noch gerne den Dokumentennamen der neu geöffneten Tabellen auf einem weiteren Arbeitsblatt speichern würde. Kann mir jemand helfen. Außerdem würd ich gerne nach dem Kopieren die zuvor geöffneten Dokumente wieder schließen, damit am Ende nur noch das Hauptdokument mit allen neuen Arbeitsblättern geöffnet ist.
Wie geht das?
Danke im Voraus für eure Hilfe.
Grüße
Der Anfänger
Sub tabellenblattEinfügen()
For k = 1 To 10
Workbooks.Open Filename:=Application.GetOpenFilename()
ActiveSheet.Select
ActiveSheet.Copy After:=Workbooks( _
"Domukent1").Sheets("Tabelle1")
Next
End Sub |