Thema Datum  Von Nutzer Rating
Antwort
Rot .txt über Makro erzeugen, Dateiname falsch
08.12.2022 09:30:09 Lukas
NotSolved
08.12.2022 10:41:44 Gast39980
NotSolved
08.12.2022 10:59:58 Gast69353
NotSolved
08.12.2022 11:14:38 Gast86203
NotSolved
08.12.2022 11:08:55 Mase
NotSolved

Ansicht des Beitrags:
Von:
Lukas
Datum:
08.12.2022 09:30:09
Views:
287
Rating: Antwort:
  Ja
Thema:
.txt über Makro erzeugen, Dateiname falsch

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot .txt über Makro erzeugen, Dateiname falsch
08.12.2022 09:30:09 Lukas
NotSolved
08.12.2022 10:41:44 Gast39980
NotSolved
08.12.2022 10:59:58 Gast69353
NotSolved
08.12.2022 11:14:38 Gast86203
NotSolved
08.12.2022 11:08:55 Mase
NotSolved