Sheet als txt speichern mit Pfad

Sub speichern_als_XLS()
' Speicherdialog zur Bestimmung des Dateinamens aufrufen
saveas_filename = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Path & "\" &  _
strFileSaveName, fileFilter:="xls-file(*.xls), *.xlsx")
' falls Anwender auf Abbrechen gedrückt hat:
If saveas_filename = False Then
strTxt = "Sie haben den Speichervorgang abgebrochen. Die Daten wurden nicht exportiert!" & Chr( _
13) & Chr(13) & _
"----------------------------------------------------------" & Chr(13) & Chr(13) & _
"The save process has been aborted by you. The data has not been exported!"
MsgBox strTxt, vbCritical
Exit Sub
End If
'Dateiname aus Komplettpfad extrahieren
lngStringLaenge = Len(saveas_filename)
For i = lngStringLaenge To 1 Step -1
'String rückswärts aufbauen bis Slash kommt
If Left(Mid(saveas_filename, i), 1) = "\" Then
strFilename = Mid(saveas_filename, i + 1)
Exit For
End If
Next i
ActiveWorkbook.SaveAs Filename:=saveas_filename, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub