Tabellen zusammenführen: Nur XLSX Dateien
25.04.2014 09:31:07
Andi
habe mir folgenden Code besorgt, um versch. Excel Tabellen zusammenzuführen.
Mein Problem dabei ist, dass in dem Ordner auch ".txt" Dateien liegen, die das Makro mit verarbeitet. Kann man der Variablen "fl" beibringen, dass nur XLSX Dateien verwendet werden sollen?
Danke !
' ##########################
'Startet die Zusammenführung
Dim arrDateiNamen(180) As String
Dim fso, fld, fl
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(strVerzeichnis)
Application.ScreenUpdating = False
For Each fl In fld.Files
Workbooks.Open (strVerzeichnis & fl.Name) ' neuer ordner
Sheets(1).Select
Sheets(1).Copy After:=Workbooks("Match.xlsm").Sheets(Sheets.Count)
Workbooks(fl.Name).Close False
Next
Application.ScreenUpdating = True
Set fso = Nothing
Set fld = Nothing
' Ende Zusammenführung
'#####################