VBA: Zeilenumbrüche in Txt-File erzeugen
06.03.2017 15:31:26
Max
ich verwende folgenden Code, um am Ende eines Makros den Inhalt einer Textbox (in einer Userform) in einem Text-File abzuspeichern:
Sub SaveData()
Dim varPath As String, varRow As Long
varPath = Worksheets(1).Range("StoragePath").Value & Format(Now, "yyyymmdd-hhmmss") & "_" & _
Environ("Username") & ".txt"
Open varPath For Output As #1
Print #1, varSql 'entspricht dem Inhalt der Textbox
Close #1
End Sub
Im Wesentlichen enthält die Textbox die Werte einer Spalte und zeigt jeden Wert in einer neuen Zeile an - so hätte ich es gerne auch im Text-File.
Ich bekomme das richtige Ergebnis, wenn ich jede Zeile einzeln in das Text-File schreibe, das dauert in meinem Fall allerdings aufgrund der Menge der Daten relativ lange und ist daher nicht ideal.
Hat jemand vielleicht einen Tipp für mich dazu ?
Vielen Dank im Voraus,
Max