unter bestehendem Namen speichern

[Sahanya]

Hallo,
ich habe folgendes Problem.
Ich möcht eine Datei, die offen ist mit Hilfe eines Makros unter ihrem bestehenden Namen, aber in einem anderen Format (txt) abspeichern. Das mit dem Format funktioniert, allerdings weiß ich nicht wie ich das aufgezeichnete Makro ändern kann, so daß der Dateiname immer der aktuellen geöffneten Datei entspricht.
Mein Code bis jetzt:

ActiveWorkbook.SaveAs Filename:= _
"D:\Dokumente und Einstellungen\Perun1\Desktop\sahanya.txt", FileFormat:= _
xlText, CreateBackup:=False

Danke
Sahanya

 

[thekorn]

activeworkbook.name-Eigenschaft

Hierzu kannst du die Activeworkbook.name-Eigenschaft benutzen. Dabei ist zu beachten, dass du natürlich noch die Endung ".xls" abschneiden musst. Also zum Beispiel so:

Dim d_name As String
d_name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
ActiveWorkbook.SaveAs Filename:="D:\Dokumente und Einstellungen\Perun1\Desktop\" & d_name & ".txt", FileFormat:=xlText, CreateBackup:=False

gruß
thekorn