Moin zusammen,
ich wollte die Dateinamen aus einem Verzeichnis in Excel einlesen, allerdings nimmt er mit dem unten aufgeführten Makro nur den ersten Namen und füllt mit diesem dann solange auf, bis er das Ende des Integerberichs erreicht und wirf eine Fehlemeldung aus.
Sieht jemand den Fehler und könnte mir helfen ihn zu beheben?
Sub Einlesen()
Dim Pfad As String
Dim Datnam As String
Dim i As Integer
Dim d As Worksheet
Set d = Worksheets(„Dateiname“)
Pfad = „C:\Excel\test“
Datnam = Dir(Pfad)
i = 1
Do While Datnam „“
d.Cells(i, 1) = Datnam
i = i + 1
Loop
End Sub
Dir gibt immer nur den nächsten Dateinamen in der Liste aus. Du musst Dir so lange aufrufen, bist die Liste durch ist:
Sub Einlesen()
Dim Pfad As String
Dim Datnam As String
Dim i As Integer
Dim d As Worksheet
Set d = Worksheets("Dateiname")
Pfad = "C:\Excel\test\"
Datnam = Dir(Pfad)
i = 1
Do While Datnam ""
d.Cells(i, 1) = Datnam
Datnam = Dir ' Diese Zeile eingefügt
i = i + 1
Loop
End Sub
Moin zusammen,
ich wollte die Dateinamen aus einem Verzeichnis in Excel
einlesen, allerdings nimmt er mit dem unten aufgeführten Makro
nur den ersten Namen und füllt mit diesem dann solange auf,
bis er das Ende des Integerberichs erreicht und wirf eine
Fehlemeldung aus.
Sieht jemand den Fehler und könnte mir helfen ihn zu beheben?
Sub Einlesen()
Dim Pfad As String
Dim Datnam As String
Dim i As Integer
Dim d As Worksheet
Set d = Worksheets(„Dateiname“)
Pfad = „C:\Excel\test“
Datnam = Dir(Pfad)
i = 1
Do While Datnam „“
d.Cells(i, 1) = Datnam
i = i + 1
Loop
End Sub
Denke und Gruß
Hallo Sam,
Option Explicit
Sub Einlesen()
Dim Zei As Long
Const Pfad As String = "C:\Excel\test\"
With Worksheets("Dateiname")
.Cells(Zei + 1, 1).Value = Dir(Pfad & "\*.\*")
While .Cells(Zei + 1, 1).Value ""
Zei = Zei + 1
.Cells(Zei + 1, 1).Value = Dir
Wend
End With
End Sub