|
Hallo,
ich versuche gerade einen Ordner mit Excel Datein auszulesen. Dazu benötige ich den jeweiligen namen der xls und anschließend würde ich gern in der jeweiligen Datei gewisse Dinge suchen und rauskopieren.
Bisher ist es mir nur möglich den Namen der Dateien in einer Auflistung in Excel ausgeben zu lassen.
Der benötigte Sverweis funktionier aber nicht.
Hier mein VBA Code: Vielleicht kann mir ja jemand Helfen:
Sub AuflistungundSverweis()
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Spalte As Integer
Spalte = 1
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("C:\Users\Florian\Desktop\Maschienbau")
Set fdateien = fVerz.Files
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
Spalte = Spalte + 1
Cells(2, Spalte) = fDatei.Name
End If
Workbooks.Open [B2] = WorksheetFunction.VLookup([A2], Sheets("Page 1").[A1:BN400], 10, False)
Workbooks.Open [B3] = WorksheetFunction.VLookup([A3], Sheets("Page 1").[A1:BN400], 10, False)
Workbooks.Open [B4] = WorksheetFunction.VLookup([A4], Sheets("Page 1").[A1:BN400], 10, False)
Workbooks.Open [B5] = WorksheetFunction.VLookup([A5], Sheets("Page 1").[A1:BN400], 10, False)
Workbooks.Open [B6] = WorksheetFunction.VLookup([A6], Sheets("Page 1").[A1:BN400], 10, False)
Workbooks.Open [B7] = WorksheetFunction.VLookup([A7], Sheets("Page 1").[A1:BN400], 10, False)
Workbooks.Open [B8] = WorksheetFunction.VLookup([A8], Sheets("Page 1").[A1:BN400], 10, False)
Workbooks.Open [B9] = WorksheetFunction.VLookup([A9], Sheets("Page 1").[A1:BN400], 10, False)
Next fDatei
End Sub
|