csvDatei speichern

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Steffen,
wie bei der Speicherung unter deienm eigenen Desktopverzeichnis muss du auch hier das Fileformat angeben unter dem gespeicher werden soll.
Außerdem solltest du das Datum im Dateinamen anders formatieren. Die Punkte bereiten gelegentlich Schwierigkeiten und bei der Angabe von TT.MM.JJJJ ist die Sortierung nach Name nicht optimal sobald das Datum über mehr als einen Monat geht.
Gruß
Franz

Sub aaTest()
Dim StrWbName As String, Neuer_Dateiname
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
StrWbName = Format(Date, "YYYY_MM_DD ") & StrWbName 'Empfehlung: Datum nicht mit _
Punkten sondern anders trennen, besser sortierbar und weniger Probleme beim _
Suchen von Dateien
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=StrWbName, _
fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname, FileFormat:=xlNormal, addtomru:=True
End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

231 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

csvDatei speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

231 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread