15.05.2017, 15:10
Hallo
ich freue mich sehr das du es hinbekommen willst, also in Ruhe den Fehler suchen: Schau mal hier: Users/mein.name/
Wenn ich das richtig sehe fehlt bei dir der Laufwerkbuchstabe, z.B. C:\ oder F:\
Ich habe dir gerade ein Makro aus meinem Archiv geladen mit dem du den ganzen Ordner, alle Dateien, mit dem korrekten Pfad auflisten kannst.
Ich hoffe danach wird es funktionieren.
Die Dateien sollen normalerweise nicht geöffnet sein. Probier mal aus was passiert wenn sie bereits geöffnet sind? Das habe ich nicht getestet.
mfg Gast 123
ich freue mich sehr das du es hinbekommen willst, also in Ruhe den Fehler suchen: Schau mal hier: Users/mein.name/
Wenn ich das richtig sehe fehlt bei dir der Laufwerkbuchstabe, z.B. C:\ oder F:\
Ich habe dir gerade ein Makro aus meinem Archiv geladen mit dem du den ganzen Ordner, alle Dateien, mit dem korrekten Pfad auflisten kannst.
Ich hoffe danach wird es funktionieren.
Die Dateien sollen normalerweise nicht geöffnet sein. Probier mal aus was passiert wenn sie bereits geöffnet sind? Das habe ich nicht getestet.
mfg Gast 123
Code:
Sub Ordner_Einlesen()
Dim sFile As String
Dim sPath As String
Dim z As Integer: z = 2
sPath = ActiveWorkbook.Path
Range("Y2") = ActiveWorkbook.Path
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sFile = Dir(sPath & "*.xl*")
Do Until sFile = ""
Cells(z, "x").Value = sFile
z = z + 1 'Next Zeile
sFile = Dir()
Loop
End Sub