Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Textdateien eines Verzeichnisses importieren

Gruppe

TextImport

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