Office: (Office 2010) Dateinamen auslesen und in Tabelle schreiben

top · 30. April 2011

Hallo Leute,

ich habe in einem Verzeichnis (C:\test\pics) im Windowsexplorer mehrere hundert pics (*.jpg). Ich möchte die Dateinamen jedes einzelnen Pics auslesen und in Excel in eine Tabelle (Zelle A(1....n)) schreiben.

Ich hatte schon ein ähnliches Problem (siehe: http://www.ms-office-forum.net/forum....php?t=274518), bekomme aber den Code irgendwie nicht angepaßt. Diesmal will ich nur die Dateinamen, so wie sie im Windowsexplorer angezeigt werden.

Würde mich sehr freuen, wenn mir jemand helfen könnte.

Vielen Dank vorab!
top

:)

Hajo_Zi · 2. Mai 2011

Ordner auslesen, Link zur Datei

top · 2. Mai 2011

Hallo Hajo,

vielen Dank für Deinen Code, aber er funzt nicht. Ich hatte vergessen, daß ich ein 64 Bit-Betriebssystem und -Office habe.

Der folgende Code (von EarlFred) funzt zwar, aber die Schleife nicht. Es wird nur in A1 geschrieben und dann der letzte Dateiname meines Verzeichnisses ausgegeben. So gesehen habe ich ein "Schleifenproblem":

Code:

Sub dateinameneinlesen()
Dim strPfad As String, strDatnam As String
Dim rngEinfüg As Range
Dim ACon As Object
Dim strTemp As String

'Erst der Pfad
strPfad = "C:\test\pic\"
strDatnam = Dir(strPfad & "*.jpg")

Set ACon = CreateObject("ADODB.Stream")

Do While Len(strDatnam)

'Einfügezelle festlegen
Set rngEinfüg = IIf(IsEmpty([A1]), [A1], Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
rngEinfüg.Offset(, 1) = strTemp

'Dateiname eintragen:
rngEinfüg.Offset(, 2) = strDatnam
strDatnam = Dir

Loop

Set rngEinfüg = Nothing
Set ACon = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

top-Grüße

Hajo_Zi · 2. Mai 2011

ja da ist es gut, wenn man den Hinweis von MS berücksichtigt das noch nicht alle Add In für 64 bit Office fertig sind.
Für Windows 64 bit Office 32 bit geht es.

top · 2. Mai 2011

Kommando zurück. Fehler gefunden. Code funzt. Hier der richtige (angepaßte) Code:

Code:

Sub dateinameneinlesen1()
Dim strPfad As String, strDatnam As String
Dim rngEinfüg As Range
Dim ACon As Object
Dim strTemp As String

'Erst der Pfad
strPfad = "C:\test\pic\"
strDatnam = Dir(strPfad & "*.jpg")

Set ACon = CreateObject("ADODB.Stream")

Do While Len(strDatnam)

'Einfügezelle festlegen
Set rngEinfüg = IIf(IsEmpty([A1]), [A1], Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
rngEinfüg.Offset(, 0) = strTemp

'Dateiname eintragen:
rngEinfüg.Offset(, 0) = strDatnam
strDatnam = Dir

Loop

Set rngEinfüg = Nothing
Set ACon = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Trotzdem vielen Dank an Hajo!

Gruß top

EarlFred · 3. Mai 2011

Hallo top,

die nicht benötigten Variablen musst Du aber nicht mit Dir rumschleppen, vor allem nicht ACon, was mit Late-Binding erst externe Bibliothek anzapft.

Folgendes sollte genügen:

Code:

Option Explicit
Sub dateinameneinlesen1()
Dim strPfad As String, strDatnam As String
Dim rngEinfüg As Range

'Erst der Pfad
strPfad = "C:\test\pic\"
strDatnam = Dir(strPfad & "*.jpg")

Do While Len(strDatnam)

'Einfügezelle festlegen
Set rngEinfüg = IIf(IsEmpty(Cells(1, 1)), Cells(1, 1), Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
'Dateiname eintragen:
rngEinfüg = strDatnam
strDatnam = Dir

Loop

Set rngEinfüg = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

User · 10. Mai 2011

Hallo zusammen.
Das ist für mich genau das richtige. Kann mir wer mitteilen, wie ich das am besten in ein bestehendes Excel einfüge (neues Arbeitsblatt)

EarlFred · 10. Mai 2011

Hallo Tortedöner,

wie ich das am besten in ein bestehendes Excel einfüge
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du musst doch den Code nur in Deine Mappe kopieren und von dort ausführen?
Alles andere kann man Dir nicht sagen, solange die Frage so allgemein gehalten ist...

Grüße
EarlFred

User · 10. Mai 2011

So langsam wird es etwas irre.
Aber ich habe es lösen können.
Danke dir.
http://www.ms-office-forum.net/forum....php?p=1378903

User · 12. Januar 2021

von EarlFred

Hallo top,

die

...

Grüße
EarlFred
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo EarlFred,

ich habe es mir etwas angepasst und es funktioniert einwandfrei:

Code:

Private Sub Workbook_Open()

Dim strPfad As String, strDatnam As String
Dim rngEinfüg As Range

strPfad = ActiveWorkbook.Path
strDatnam = Dir(strPfad & "\" & "*.xlsx")

Range("P2:P101").ClearContents

Do While Len(strDatnam)

Set rngEinfüg = IIf(IsEmpty(Cells(2, 16)), Cells(2, 16), Cells(Rows.Count, 16).End(xlUp).Offset(1, 0))
rngEinfüg = strDatnam
strDatnam = Dir

Loop

Set rngEinfüg = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

P2 bis P101 wird gelöscht und dann der Reihe nach mit den Dateinamen beschrieben.
Ist nun relativ einfach, von der jeweiligen Datei den Inhalt aus zB B5 in die aktive zu schreiben, in zB D8?

roland_4s · 4. Oktober 2017

Hallo,

ich mache das immer so:

mit dem cmd Kommando gehe ich in das directory

dann rufe ich den Befehl:

dir > dateinamen.txt

auf. Der Zusatz nach dir spuckt das gelistete in die Datei dateinamen.txt, welches ich im excel wiederum einlesen kann.

Das ist so eine Geschwindlösung noch aus meinen unix Zeiten, funktioniert aber auch unter "miniweich"

Bis irgendwann

Office: (Office 2010) Dateinamen auslesen und in Tabelle schreiben

Dateinamen auslesen und in Tabelle schreiben

Dateinamen auslesen und in Tabelle schreiben

Dateinamen auslesen und in Tabelle schreiben

Dateinamen auslesen und in Tabelle schreiben

Dateinamen auslesen und in Tabelle schreiben - Similar Threads - Dateinamen auslesen Tabelle

Dateinamen aus Ordner auslesen

Excel 2010/VBA: Dateinamen auslesen & von beiden Seiten kürzen

Dateinamen auslesen und weiter verarbeiten

Dateiname aus Dateidialog auslesen

Dateinamen aus einem Verzeichnis auslesen

alle Dateinamen aus Pfad auslesen, anzeigen und Datei drucken

Dateinamen aus Verzeichnis auslesen und in Tabelle schreiben