Gruppe
Extern
Problem
Aus dem in Zelle B1 genannten Verzeichnis sollen alle Dateien gem. dem Filter in Zelle B2 in diese Arbeitsmappe importiert werden.
StandardModule: Modul1
Sub TextSerienImport()
Dim wkb As Workbook
Dim iCounter As Integer
Dim sPath As String, sPattern As String
Application.ScreenUpdating = False
sPath = Range("B1").Value
sPattern = Range("B2").Value
Set wkb = ThisWorkbook
With Application.FileSearch
.NewSearch
.LookIn = sPath
.Filename = sPattern
.Execute msoSortByFileName
For iCounter = 1 To .FoundFiles.Count
Workbooks.OpenText .FoundFiles(iCounter)
ActiveSheet.Move after:=wkb.Worksheets(wkb.Worksheets.Count)
Next iCounter
End With
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub