4
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 871638704
Url: https://administrator.de/contentid/871638704
Printed on: May 4, 2024 at 19:05 o'clock
4 Comments
Latest comment
Tach.
https://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...
Gruß s.
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?aufrufen der Datei
- Eine Datei mit einem bestimmten Programm öffnen
- Eine Datei als Text laden und programmatisch den Text zu Verfügung stellen
- ...
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
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
Properties und Methoden des File Objects findest du hier
https://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...
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 Subhttps://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...
klasse - lieben Dank
