VBA Tipp: Text in Textdatei anfügen
Aus DBWiki
Inhaltsverzeichnis
Anforderung
Ich möchte an eine Textdatei weiteren Text anhängen.
Lösung 1
Das geht mit folgender Funktion, die in einem globalen Modul gespeichert wird.
Public Sub TextAnhängen(Text As String, _ Dateipfad As String, _ Optional Erzeugen As Boolean = False) 'Eingabe: 'Text: Anzuhängender Text 'Dateipfad: Pfad und Name der zu beschreibenden Datei 'Erzeugen: Wenn True, dann wird die Datei erzeugt, falls sie nicht existiert 'Late Binding: Kein Verweis auf die Microsoft Scriping Runtime notwendig. 'Quelle: http://www.dbwiki.net Const ForAppending AS Long = 8 With CreateObject("Scripting.FileSystemObject") With .OpenTextFile(Dateipfad, ForAppending, Erzeugen) .WriteLine Text .Close End With End With End Sub
Aufruf
'Datei erzeugen, falls sie nicht existiert Call TextAnhängen("Meine Oma fährt im Hühnerstall Motorad", CurrentProject.Path & "\test.txt", True)
Lösung 2
Public Sub TextAnhaengen(Text As String, _ Dateipfad As String) 'Eingabe: 'Text String Anzuhängender Text 'Dateipfad String kompletter Pfad der zu beschreibenden Datei 'Quelle: http://www.dbwiki.net Dim d As Integer d = FreeFile Open Dateipfad For Append As d Print #d, Text Close #d End Sub
Aufruf
'Datei erzeugen, falls sie nicht existiert Call TextAnhaengen("Meine Oma fährt im Hühnerstall Motorad", CurrentProject.Path & "\test.txt")