ich habe folges Makro mit aus den Exceldateien aus Laufwerk die Tabellenblätter in die geöffnete Mappe kopiert werden:
Sub kopieren()
Const myPath = "D:\Neuer Ordner\"
Dim wbZiel As Workbook, wbQuelle As Workbook
Dim strDatei As String
strDatei = Dir(myPath & "*.xls")
Set wbZiel = Workbooks.Add
Do While strDatei ""
Set wbQuelle = Workbooks.Open(myPath & strDatei)
wbQuelle.Sheets.Copy After:=wbZiel.Worksheets(wbZiel.Worksheets.Count)
wbQuelle.Close
Set wbQuelle = Nothing
strDatei = Dir
Loop
Set wbZiel = Nothing
End Sub
Der Pfad auf Laufwerk D kann sich aber sehr häufig ändern. Ist es möglich über ein Auswahlfeld wie ListBox den jeweils gültigen Pfad auf dem Rechner einzugebe bzw. auszuwählen und diesen in das obige Makro einlesen zu lassen. Ich muss dazu sagen, ich habe wenig bis keine Erfahrungen mit Listbox. Bitte um eure Mithilfe. Vielen Dank.