Speichern als. xlsx
09.06.2013 14:10:24
Andy
die Arbeitsmappe soll in .xlsx Format gespeichert werden. Bisher kann es nur in .xls Format gespeichert werden. FileFormat:= xlNormal bietet nur ältere Formate an!!
Danke im voraus
Sub DateiSpeichern()
Dim str As String
Const Lw = "c:\"
Const Pfad = "C:\Users\master\Documents\"
'Ermitteln des Dateinamens
str = ActiveWorkbook.Name
'richtiges Laufwerk und Pfad einstellen
On Error GoTo Fehler
ChDrive Lw
ChDir Pfad
'Arbeitsmappe speichern
ActiveWorkbook.SaveAs Filename:="C:\Users\master\Documents\" & Range("A1").Value & "_" & _
Range("A2").Value, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True
Exit Sub
Fehler:
MsgBox "Laufwerk oder Verzeichnis konnte nicht gefunden werden!"
End Sub