VBA Tipp: Text in Textdatei anfügen

Aus DBWiki
Wechseln zu: Navigation, Suche

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")

Wikilinks