vbaExport in .txt-Datei --> Benennung

[Alpha_2412]

Hallo zusammen,

ich exportiere mit einem einfachen Makro ein Tabellenblatt in eine .txt-Datei, was auch ohne Probleme funktioniert.
Nur ein kleines Problem habe ich:

Ich hätte gerne das die .txt-Datei mit dem aktuellen Namen der Excel-Datei versehen wird.
Also in etwa so: 
  ActiveWorkbook.SaveAs Filename:= Pfad + Name der Excel Datei

Aktuell steht hier ein fester Dateiname. Diese müsste aber bei jedem Speichern überschreiben werden, bzw umbenannt werden.

Vielen Dank schon einmal für die Hilfe und Grüße

Alpha

[Kuwer]

Hallo,

ich rate mal:

ActiveWorkbook.SaveAs Filename:=Pfad & ActiveWorkbook.Name

Gruß Uwe

[Alpha_2412]

Hallo Uwe,

zunächst mal Danke für die Antwort :)

Leider benennt mir Excel die Datei dann mit "& ActiveWorkbook.Name.txt"
Die komplette Code-Zeile lautet wie folgt:


    ChDir "C:\Users\xxx\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\xxx\Desktop\Kassenbuch 03_2017.txt", FileFormat:=xlText, _
        CreateBackup:=False

Wenn ich nun den Dateiname ("Kassenbuch 03_2017.txt") durch den Code von dir ersetze benennt Excel die Datei  wie oben beschrieben.
Hättest du noch einen Vorschlag zur Lösung?

Vielen Dank!

Gruß
Alpha

[Rabe]

Hi,

versuche doch mal:

 ChDir "C:\Users\xxx\Desktop"
   ActiveWorkbook.SaveAs Filename:= ChDir & "\Kassenbuch 03_2017.txt", FileFormat:=xlText, CreateBackup:=False
oder
 ChDir "C:\Users\xxx\Desktop"
   ActiveWorkbook.SaveAs Filename:= ChDir & ActiveWorkbook.Name, FileFormat:=xlText, CreateBackup:=False
oder
 ChDir "C:\Users\xxx\Desktop"
   ActiveWorkbook.SaveAs Filename:= ChDir & "\" & ActiveWorkbook.Name, FileFormat:=xlText, CreateBackup:=False
oder
ChDir "C:\Users\xxx\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\xxx\Desktop\" & ActiveWorkbook.Name, FileFormat:=xlText, CreateBackup:=False

[RPP63]

Moin!

ich exportiere mit einem einfachen Makro ein Tabellenblatt in eine .txt-Datei, was auch ohne Probleme funktioniert.

Es könnte helfen, dieses Makro mal zu posten.
Im Prinzip geht es ja einfach so:
http://vb-tec.de/speicher.htm

Gruß Ralf

[Alpha_2412]

Eine Version von Rabe funktioniert schon mal, Danke ::)
Die andere versuche ich bei Gelegenheit auch mal aus.