Dateilisten in eine Tabell schreiben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 2000
nach unten

Betrifft: Dateilisten in eine Tabell schreiben
von: Christian Gafert
Geschrieben am: 09.05.2002 - 00:14:27

Hallo,
ich muss alle Dateien in einem Verzeichnis auflisten. Da es sich um über 10.000 handelt, möchte ich dies nicht "per hand" erledigen.
Wer kann mir helfen?
Danke, Christian

nach oben   nach unten

Re: Dateilisten in eine Tabell schreiben
von: Jürgen
Geschrieben am: 09.05.2002 - 00:27:44

kopier mal folgenden Code in ein Modul und rufe das Makro Suchen auf!


nach oben   nach unten

erschlagen !?
von: th.heinrich
Geschrieben am: 09.05.2002 - 01:31:18

hallo Juergen

wieso dieser CODE ??

ist sicher keine hilfe.

trotzdem schoenen vatertag ;-)

gruss thomas


nach oben   nach unten

Re: Dateilisten in eine Tabell schreiben
von: geri
Geschrieben am: 09.05.2002 - 15:43:38

etwas kürzer.kopiere in Modul und passe Pfad, LW noch an

Sub Dateiliste_Öffnen()

Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Aktuell_Datei As String
Dim Aktuell_Register As String

Aktuell_Datei = ActiveWorkbook.Name
Aktuell_Register = ActiveSheet.Name

' von hier werden die Daten geholt
strVerzeichnis = "C:\daten\"

'StrTyp = "*.xls" für Auswahl von Suffix
StrTyp = "*.*"

Dateiname = Dir(strVerzeichnis & StrTyp)
I = 3
Do While Dateiname <> ""
'Cells(I, 1).Value = strVerzeichnis & Dateiname (wenn Path nötig diese Zeile)
Cells(I, 1).Value = Dateiname ' (ohne Path)
I = I + 1
Dateiname = Dir
Loop
End Sub

gruss
geri

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Dateilisten in eine Tabell schreiben"