Hallo zusammen,
gibt es eine Moeglichkeit, aus dem Explorer Dateinamen mit deren Verzeichnis in Excel einzulesen? Im Klartext, ich will alle .Jpg-Dateien finden, in Spalte 1 den Dateinamen und in Spalte 2 das Verzeichnis haben. Wie fange ich das denn am duemmsten an?
fragende Gruesse
Ralph
Hallo,
ich habe nur eine wahrscheinlich aufwendigere Lösung:
Starte die Eingabeaufforderung und gib den Befehl :
Dir *.jpg /s >c:\jpg.txt
ein und bestätige mit Enter. Nun werden alle gefundenen jpg Dateien
in die Datei jpg.txt eingetragen.Man müßte die Textdatei allerdings vor dem einladen in Excel manuell bearbeiten. Durch bearbeiten /Ersetzen im Editor müsste man die Leerzeichen ersetzen durch Semikolon damit die Felder getrennt werden. Und die Pfade müsste man kopieren. Ist wahrscheinlich zu aufwendig. Wahr nur so eine Idee.
Ciao
Robert
gibt es eine Moeglichkeit, aus dem Explorer Dateinamen mit
deren Verzeichnis in Excel einzulesen? Im Klartext, ich will
alle .Jpg-Dateien finden, in Spalte 1 den Dateinamen und in
Spalte 2 das Verzeichnis haben. Wie fange ich das denn am
duemmsten an?
Hi Ralph,
Dos ist schneller als Excel, deshalb nahm ich Roberts Vorschlag auf:
Sub jpgEinlesen()
Close
Open "c:\temp\jpgread.bat" For Output As #1
Print #1, "Dir c:\*.jpg /s /-p /b \> c:\temp\jpg.txt"
Close #1
Shell "command.com /c c:\temp\jpgread.bat"
MsgBox "Bitte erst klicken wenn Dos-Box wieder weg"
Open "c:\temp\jpg.txt" For Input As #1
While Not EOF(1)
Input #1, Satz
Zeile = Zeile + 1
Worksheets("Tabelle1").Cells(Zeile, 1) = Mid(Satz, InStrRev(Satz, "\") + 1)
Worksheets("Tabelle1").Cells(Zeile, 2) = Left(Satz, InStrRev(Satz, "\") - 1)
Wend
Close
End Sub
Getestet mit Win98 und Excel2000
Gruß
Reinhard
Hi,
noch ein Vorschlag?
Schreibe in Zelle B2 die Formel =INDEX(DAT;ZEILE())
Gehe über ->Deitei ->öffnen und wähle das gewünschte
Verzeichnis aus -> abbrechen.
Dann faß das Ausfüllkästchen von B2 mit der Maus und ziehe es nach unten.
In jedem kopierten Feld steht nun ein Dateiname.
Gruß
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]