Ordner wählen und Dateien auslesen

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von BingoBongo.

    Ordner wählen und Dateien auslesen

    Guten Tag und Hallo,

    ich habe nun 2 Stunden erfolglos gegoogled und mich daraufhin hier angemeldet. Ich hoffe auf Eure Unterstützung.
    Ich bin noch nicht so bewandert was die Programmierung in VBA angeht, aber ein wenig weiß ich schon.

    Zu meinem Problem:
    Ich möchte einen Ordner in Excel 2007 wählen und daraus alle Dateien mit der Endung ".txt" auslesen.
    Also den Inhalt der Dateien in die Exceltabelle schreiben (untereinander auf einem Tabellenblatt).
    Jede Datei hat nur eine Zeile Text und hat einen kryptischen Namen. Dieser Name sollte vor dem Inhalt der Datei stehen.

    Leider scheiter ich schon an dem Auslesen des Ordners!

    Ich hoffe ihr könnt mir helfen und verbleibe

    Mit freundlichen Grüßen
    BingoBongo

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BingoBongo“ ()

    Visual Basic-Quellcode

    1. Set FS=CreateObject("Scripting.FileSystemObject")
    2. Set Folder=FS.GetFolder("c:\temp")
    3. For Each File in Folder.Files
    4. If File.Name Like "*.txt" Then
    5. 'mach was mit dem File
    6. End If
    7. Next
    Doku: msdn.microsoft.com/en-us/library/bkx696eh(v=vs.84).aspx
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --