vorhandene Dateien mit dem gewählten Namen werden überschrieben
Dim pfad As String
pfad = ActiveWorkbook.Path & "" & "datensatz.txt" '<- Pfad der geöffneten Exceldatei
Open pfad For Output As #1
zeile = "Text in der Datei"
Print #1, zeile
zeile = "// noch mehr text" & vbCrLF '<- Zeilenumbruch
Print #1, zeile
Close #1