Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub Einlesen()
   Dim iCounter As Integer, iRow As Integer
   Dim sfile As String, sPath As String
   iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         sfile = Dir(.FoundFiles(iCounter))
         sPath = WorksheetFunction.Substitute(.FoundFiles(iCounter), sfile, "")
         With Cells(iRow, 1)
            .Formula = "='" & sPath & "[" & sfile & "]Tabelle1'!A1"
            .Value = .Value
         End With
         iRow = iRow + 1
      Next iCounter
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Datei und Arbeitsmappe