Office: Dateinamen aus Verzeichnis auslesen und in Tabelle schreiben

Hallo,

ich hab ein Makro geschrieben in dem ich alle Dateinen in einem Verzeichnis auslese und sie dann in einer MsgBox anzeigen lasse. Nun will ich aber diese Dateinamen allein einer Tabelle untereinander in jeweils eine Zeile haben um sie ausdrucken zu können.
Leider weiss ich nicht wie... Kann mir jemand helfen?
mfg, marius

Code:

Sub Test()

Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String

Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("D:\MP3s\A")
Set fdateien = fVerz.Files

For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
   strDat = fDatei.Name & vbLf
    
End If

 
Next fDatei

MsgBox strDat

End Sub

 

Hallo!

Geht sogar ohne VBA:
http://www.excelformeln.de/formeln.html?welcher=126

 

ich würde die sache trotzdem lieber mit vba lösen, weil ich noch ein paar zusätze hinzufügen möchte...
danke

 

Hallo!

Wie du willst...

Code:

Sub Test()

Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Zeile As Integer

Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("D:\MP3s\A")
Set fdateien = fVerz.Files

For Each fDatei In fdateien
    If InStr(fDatei, "") > 0 Then
        Zeile = Zeile + 1
        Cells(Zeile, 1) = fDatei.Name
    End If
Next fDatei

End Sub

 

Danke, genau das hab ich gesucht!!!

Gibt es eine Möglichkeit auch die Dateien aus einem Unterordner auszulesen?

 

siehe Dir mal das Beispiel an
http://hajo-excel.de/chCounter3/getfile.php?id=21

Gruß Hajo

 

Hallo,

das Vorgeschlagene Programm sieht ja ganz nett aus und so, aber da verstehe ich nur Bahnhof....

 

interpretiere ich das richtig es erfüllt nicht das was es soll?
Man muss nicht ales verstehen, wenn es klappt.
Ich verstehe es auch nicht. Aber das Makro ist auch ab Version 2007 geeignet.

Gruß Hajo

 

Ich hab die Lösung:

Code:

Option Explicit
 
Dim FSO, FO, FU, F, FI
Dim lRow As Long
Dim iCol As Integer
 
Public Sub Ordner_Dateien_Auflisten()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    GetSubFolders_Files "C:\Temp" ' anpassen
End Sub
 
Function GetSubFolders_Files(pfad)
    Set FO = FSO.GetFolder(pfad)
    Set FU = FO.SubFolders
    On Error Resume Next
    For Each F In FU
        lRow = lRow + 1
        iCol = iCol + 1
        Cells(lRow, iCol) = F.Name
        Cells(lRow, iCol).Font.Bold = True
        For Each FI In F.Files
            Cells(lRow + 1, iCol) = FI.Name
            lRow = lRow + 1
        Next
        GetSubFolders_Files F.Path
    Next
    iCol = iCol - 1
End Function

 

Jetzt möchte ich noch den Pfad bzw den Laufwerkbuchstaben über eine Inputbox eingeben... leider klappt es nicht... kann sich das mal jemand angucken???

Code:

Option Explicit
 
Dim FSO, FO, FU, F, FI
Dim lRow As Long
Dim iCol As Integer
Dim s As String

 
Public Sub Ordner_Dateien_Auflisten()
s = InputBox("Laufwerkbuchstabe:", "Laufwerkbuchstabe eingeben")
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    GetSubFolders_Files "s" ' anpassen
End Sub
 
Function GetSubFolders_Files(pfad)
    Set FO = FSO.GetFolder(pfad)
    Set FU = FO.SubFolders
    On Error Resume Next
    For Each F In FU
        lRow = lRow + 1
        iCol = iCol + 1
        Cells(lRow, iCol) = F.Name
        Cells(lRow, iCol).Font.Bold = True
        For Each FI In FO.Files
            Cells(lRow + 1, iCol) = FI.Name
            lRow = lRow + 1
        Next
        GetSubFolders_Files F.Path
    Next
    iCol = iCol - 1
End Function

 

Hallo!

GetSubFolders_Files "s" ' anpassen

Die müssen ganz sicher weg!

 

ohhhhh, ja klar!

danke, jetzt gehts!!!

 

Hallo- is zwar schon ein Älterer Thread aber trotzdem hätte ich eine Frage dazu:

Also Grundsätzlich funktioniert die Letzte Lösung- in der ich den Dateipfad angeben kann nicht- auch wenn ich die Gänsefüsschen lt. Schatzi entferne...

Aber das ist nicht alles :)
Ich möchte den Dateinamen von CSV Dateien in Excel einlesen- welche eine bestimmte Charakteristik haben und zwar sieht so ein Dateiname zum Beispiel so aus:
LIWO_MODUL4_#26715005740602_2015-09-24_14-55-39_#+39.csv
Diese Datei wird von unserer Anlage automatisch ausgegeben. Wenn ich jetzt eine Auswertung machen will will ich nur dateien von einem bestimmten Tag- in dem Obigen Beispiel 27615 Also der 267 Tag im Jahr 2015 (Also heute der 24.09.2015) Schön wäre es also ein Message BOx zu erhalten in dem ich den Pfad sowie eine Datumsabfrage erhalte. (Das Datum das Im Dateinamen hinten enthalten ist ist zwar in diesem Fall gleich- das ist es aber nicht immer- deswegen die abfrage vorne)
(Die Position des Datumscodes ist dabei immer an der gleichen Stelle).

So- ich hoffe Ihr könnt mir helfen und im Voraus vielen lieben Dank!

Markus

 

Hallo Markus
Die Formel funktioniert schon ohne "" beim s aber Vorsicht beim Kopieren, da wurde mir am Ende der Formel ein Eintrag erstellt welcher nicht dazu gehört. Das Format muss natürlich passen .xlsm oder .xls damit es klappt.

Die Wahl des Pfades könnte etwas optimaler gestaltet sein.

Gruss

Mario

 

Hi.... wo muss ich den eingrenzen, dass ich nur "xls" dateien bekomme?

vielen Dank schon mal im voraus....

Gruß
Martin