VBA Code für das Aufrufen von Dateien in einem Ordner

Hallo Gemeinschaft,

ich habe bereits ein Script, welches eine Txt Datei aus einem Ordner verarbeitet -

nun brauche ich eure Hilfe - ich benötige ein Code, welches folgendes kann

aufrufen der Datei

- dann kommt mein Code zum Einsatz, der die Datei verarbeitet

und anschliessend soll diese Datei in einen anderen Ordner (bearbeitet) verschoben werden

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 871638704

Url: https://administrator.de/forum/vba-code-fuer-das-aufrufen-von-dateien-in-einem-ordner-871638704.html

Ausgedruckt am: 02.04.2025 um 11:04 Uhr

4 Kommentare

Neuester Kommentar

Zitat von @martenk:
Hallo Gemeinschaft,

Tach.

ich habe bereits ein Script, welches eine Txt Datei aus einem Ordner verarbeitet -

Jop ich seh keins oder hab ich Tomaten auf den Augen?!

nun brauche ich eure Hilfe - ich benötige ein Code, welches folgendes kann

aufrufen der Datei

Bedeutet konkret was?

Eine Datei mit einem bestimmten Programm öffnen
Eine Datei als Text laden und programmatisch den Text zu Verfügung stellen
...

Wir wissen es nicht weil deine Beschreibung leider viel zu unspezifisch ist!

und anschliessend soll diese Datei in einen anderen Ordner (bearbeitet) verschoben werden

Kein Problem, brauchst du nur schnell mal in die Doku schauen Thema erledigt, schneller als jeder Thread geschrieben ist :
https://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...

Set fso = CreateObject("Scripting.FileSystemObject")  
fso.MoveFile "C:\quelleordner\datei.txt", "D:\Zielordner\"  

Gruß s.

Hallo

bisher starte ich es so

Sub aufruf()
Textdatei = "C:\data\Emailinput.txt"
parsetxt Textdatei
End Sub

nun ist es aber so, dass in dem Ordner mehrere Dateien sind mit natürlich anderen Dateinamen

und diese möchte ich einzeln aufrufen - dann das parsetxt durchlaufen lassen - dann die datei in den anderen Ordner verschieben und dann die nächste Datei nehmen

Ach so ist das gemeint, na dann

Sub Whatever()
    dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")  
    for each file in fso.GetFolder("C:\Quellordner").Files  
        if LCase(fso.GetExtensionName(file.Path)) = "txt" then  
            ' tu was mit dem File  
            parsetxt file.Path
             ' verschiebe Datei  
            file.Move "D:\Zielordner\"  
        End if
    Next
End Sub