Herbers Excel-Forum - das Archiv

Dateinamen in Tabelle schreiben.

Bild

Betrifft: Dateinamen in Tabelle schreiben.
von: Michael

Geschrieben am: 06.04.2005 12:29:42
Hallo Zusammen,
ich möchte die Dateinamen (es sind ca. 200 dateien), die sich in einem Ordner auf der Festplatte befinden, in eine Exceltabelle schreiben lassen.
Beispiel:
A1: Bild1.pdf
A2: Bild5.pdf
.
.
.
A200: Bild1006.pdf
Kennt jemand ein Makro, dass dies automatisch kann ?
Vorab Danke!
Michael
Bild

Betrifft: www.smarttools.de
von: Günther Oppold

Geschrieben am: 06.04.2005 12:34:20
Hallo Michael,
bei smarttools gibt es einen kostenlosen Download eines Dateilisters der so etwas erstellen sollte:
http://www.add-in-world.com/katalog/xl-dateilister/
Günther
(ich habe ihn selbst noch nicht getestet)
Bild

Betrifft: AW: Dateinamen in Tabelle schreiben.
von: OttoH

Geschrieben am: 06.04.2005 12:34:42
Hallo Michael,
so sollte es gehen:
Sub DateienAuflisten()
Dim Dateiname As String
dim Verzeichnis as string
Verzeichnis="Dein Verzeichnis"
Range("a1:A65536").ClearContents
Dateiname = Dir(Verzeichnis & "\*.jpg")
Range("A1").Activate
Do While Dateiname <> ""
ActiveCell.Formula = Dateiname
ActiveCell.Offset(1, 0).Activate
Dateiname = Dir
Loop
End Sub


Gruß OttoH
Bild

Betrifft: AW: Dateinamen in Tabelle schreiben.
von: Pepi
Geschrieben am: 06.04.2005 12:41:58
Hallo Michael,
ich habe mal eine Datei dafür bekommen, welche das sehr bequem erledigt.
https://www.herber.de/bbs/user/20761.xls

lg
Pepi
 Bild
Excel-Beispiele zum Thema "Dateinamen in Tabelle schreiben."
Dateinamen filtern Dateinamen in Listbox
Dateinamen in Tabelle einlesen Dateinamen eines Verzeichnisses als HTML-Datei
Grafik nach Eingabe des Dateinamens einfügen Dateinamen in TabStrip-Elemente einlesen
Datei entsprechend der Eingabe des Dateinamens öffnen Dateinamen in UserForm-ComboBox einlesen und Datei öffnen
Grafik-Dateinamen aus Zelle auslesen und HTML-Datei erstellen Dateiauswahl-Dialog mit vorgegebenen Dateinamen aufrufen