Gruppe
Extern
Bereich
TextImport
Thema
Alle Textdateien eines Verzeichnisses importieren
Problem
Aus dem in Zelle B1 genannten Verzeichnis sollen alle Dateien gem. dem Filter in Zelle B2 in diese Arbeitsmappe importiert werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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