Hallo liebes Forum, ich möchte über Excel-VBA heraus eine Textdatei mit einem bestimmten Dateinamen und einem bestimmten Inhalt erzeugen und habe mir selber schon ein paar Gedanken über den Code gemacht. Dieser sieht zur Zeit folgendermaßen aus:
Sub TXT_erzeugen()
Dim strDateiname As String, strPath As String
Dim i As Long, lngZeile As Long
strPath = "C:\Dateien_erstellen\TXT\" 'Speicherpfad eintragen
strDateiname = "txt_dateiname.txt" 'Dateinamen mit Dateiendung eintragen
lngZeile = Range("A" & Rows.Count).End(xlUp).Row
Open strPath & strDateiname For Output As #1
print #1 "Test"
Close #1
End Sub
Leider wird der Dateiname nicht richtig erzeugt und hängt irgendwie mit dem Speicherpfad zusammen, sodass auch mal folgender Name "TestTxt_dateiname.txt" entsteht, wenn ich die Datei im Ordner "TestTxt" erstellen will. Ich versteh leider nicht wo man Fehler ist. Eventuell kann mir hier jemand helfen. Mit freundlichen Grüßen Lukas
|