Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Extern und TextImport