Hallo Excelfreunde,
ich bearbeite eine csvDatei u möchte diese dann als xls Datei speichern mit folgenden Script funktioniert es:
Dim StrWbName As String
StrWbName = Replace(ActiveWorkbook.Name, "csv", "xls")
StrWbName = Date & StrWbName
ChDir "C:\Users\Steffen\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Steffen\Desktop\ " & StrWbName & "" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
nun möchte ich aber dem user die Wahl des Speicherortes überlassen,dazu habe ich es mit :
StrWbName = Replace(ActiveWorkbook.Name, "csv", "xls")
StrWbName = Date & StrWbName
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=StrWbName, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
versucht,jedoch wird die Änderung der csvDatei nicht gespeichert.Wenn ich sie wieder öffne ist sie unbearbeitet.
Wie bekomme ich es hin das ich mit der Auswahl des Speicherortes die bearbeitete csvDatei in eine excelDatei gespeichert bekomme?
viele grüße Steffen