Mehrere Pfade aus Zellen lesen
13.03.2019 10:03:34
Giorgi
ich hab mal wieder ein Problem bzw. ich komme nicht ganz ohne Hilfe drauf.
Bis jetzt waren alle meine benötigten Exceldaten in einem Ordner und mit Hilfe eines Makros konnte ich diese alle öffnen und dementsprechend ein weiteres Makro durchlaufen lassen.
Das Makro dafür war:
Sub Test()
Path = "D:\Users\Test\"
filename = Dir(Path & "*.xls")
Do While filename ""
Workbooks.Open filename:=Path & filename, ReadOnly:=True
'Eigenes Makro
Workbooks(filename).Close
filename = Dir()
Loop
End Sub
Dies geht jetzt leider nicht mehr,da die Daten jetzt woanders liegen.
Nun mein Vorhaben.
Ich will ein Sheet erstellen und in "B2" den Dateinamen angeben "test.xls" und in C2 den Pfad "D:\Users\Test" eingeben. in B3,C3 etc. könnten weitere Pfade stehen.
Das Makro soll also jenes Sheet durch scannen und jede Datei mit Pfad öffnen. Die Anzahl der Pfade und Dateinamen kann variieren.(Die Struktur bleibt aber gleich,Dateiname immer in der Spalte B und der Pfad immer in Spalte C).
Mit einer Datei kriege ich folgendes hin:
Public Function Pfad_Datei(Tabelle1) As String
Dim Pfad As String
Dim Datei As String
With Worksheets(Tabelle1)
Pfad = .Range("B2").Value
Datei = .Range("C2").Value
End With
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
End Function
Sub test()
Application.Workbooks.Open (Pfad_Datei("Tabelle1"))
End Sub
Wie bekomme ich jetzt den Loop da rein?
Gruß G.