AW: Mehrere Excel Dateien in einer kombinieren
13.02.2009 15:54:00
chris
Hallo Diego,
habe dir schnell mal was geschrieben.
So müsste es klappen.
Beides in ein Codemodul deiner Master datei
Option Explicit
Dim newwb As Workbook
Dim Pfad1 As String
Dim name1
Sub neu()
' Namen in C:\ anzeigen, die Verzeichnisse darstellen.
Pfad1 = "c:\" ' Pfad setzen.
name1 = Dir(Pfad1, vbNormal) ' Ersten Eintrag abrufen.
Do While name1 "" ' Schleife beginnen.
' Aktuelles und übergeordnetes Verzeichnis ignorieren.
If name1 "." And name1 ".." And Right(name1, 4) = ".xls" Then
Debug.Print name1
Call holen(Pfad1 & name1)
'Datei öffnen und sheets kopieren
End If
name1 = Dir ' Nächsten Eintrag abrufen.
Loop
End Sub
Sub holen(dateipfad)
Dim ws As Worksheet
Set newwb = Workbooks.Open(dateipfad, False, True)
For Each ws In newwb.Worksheets
ws.Copy Before:=ThisWorkbook.Sheets(1)
Next
newwb.Close False
Set newwb = Nothing
End Sub
Rückmeldung ob erfolgreich wäre Nett !
gruß Chris