Dateinamen aus Verzeichnis einlesen

Computer: Software & Programmierung Office Software
#1

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ß
Sam

#2

Hallo Sam,

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

Gruß, Andreas

#3

Moin,

danke es funktioniert.

Gruß
slam

#4

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