mit VBA "Speichern unter" Dateityp vorbelegen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo André,
Danke für deine Antwort!
ja der "erste Code" hat bisher auch am besten funktioniert, nur hab ich bzw. wir da nicht die Excel Vorlagen Datei integerien können.
Irgendwas prüfen muss ich auch gar nicht ( außer es geht nicht anders) kann man nicht einfach "sagen" BeforeSave, Filterindex nur mit xlsm und xltm und dann speichern Aufrufen.
Auf allen PC's ist Office 2010 drauf und die xltm - Endung brauche ich ja nur um aus der xlsm - Datei erstmal eine Vorlage zuerzeugen ( vielleicht gibt es da auch einen anderen Weg?)
Hier vielleicht nochmal der Code um den es geht:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim varWorkbookName As String
Dim xbCModus As Integer
If SaveAsUI = True Then
varWorkbookName = Application.GetSaveAsFilename( _
fileFilter:=IIf(xbCModus, "Excel Macro Enabled Template (*.xltm), *.xltm", "Excel Macro  _
Enabled Workbook (*.xlsm), *.xlsm"))
Cancel = True
If varWorkbookName  "Falsch" Then _
ActiveWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=IIf(Val(Application. _
Version) > 11, 52, xlNormal)
End If
Quit:
If Err.Number > 0 Then
If Err.Number  1004 Then
MsgBox "Error: " & Err.Number & Err.Description & vbCrLf & vbCrLf & vbCrLf & _
"Title", vbCritical
End If
End If
Application.EnableEvents = True
End Sub

If varWorkbookName <> "Falsch" Then If Application.Version > 11 Then If Right(varWorkbookName) = "xlsm" Then vartyp = 52 Else vartyp = 53 ActiveWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=vartyp Else 'save fuer altes office End If End If

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim varWorkbookName As String Dim xbCModus As Integer Application.EnableEvents = False If SaveAsUI = True Then varWorkbookName = Application.GetSaveAsFilename( _ fileFilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm, Excel Macro Enabled _ Template (*.xltm), *.xltm") Cancel = True If varWorkbookName "Falsch" Then If Application.Version > 11 Then If Right(varWorkbookName, 4) = "xlsm" Then vartyp = _ xlOpenXMLWorkbookMacroEnabled Else vartyp = xlOpenXMLTemplateMacroEnabled '52,53 ActiveWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=vartyp Else 'save fuer altes office End If End If End If Application.EnableEvents = True End Sub

Hallo Ruder,

Das mit dem Format (52,53) werde ich dann dementsprechend abändern, kannst du auch erklären warum du davon abräts? (Frage nur aus Neugier).

1.) weiss nach einiger Zeit kaum noch jemand, was 52 bzw. 53 bedeuten - die xl-Bezeichner sind hier selbsterklärend und daher besser lesbar.
2.) Niemand kann Dir versichern, dass auch in zukünftigen Excel-Versionen noch die gleichen numerischen Werte für diese Versionen verwendet werden - oder ob diese überhaupt noch unterstützt werden (es kam in der Vergangenheit schon mehrfach vor, dass Bezeichenr bzw. damit auch deren numerische Werte entfielen !).
Im schlimmsten Fall wird für die Werte 52 und 53 ein anderer Dateityp unterstützt - und das wäre fatal (allerdings ist mir kein konkreter Fall bekannt, in dem die numerischen Werte tatsächlich eine andere Bedeutung erhielten !)
3.) über die xl-Bezeichner ist klar, welches Argument gemeint ist, manchmal wird der Argumentenname auch weggelassen (also z.B. ActiveWorkbook.SaveAs varWorkbookName, vartyp - hier ist nicht auf den ersten Blick erkenntlich, welcher Wert für welches Argument steht. In Deinem Code hast Du sinnvollerweise die Namen der Argumente mit angegeben : ActiveWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=vartyp
Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

mit VBA "Speichern unter" Dateityp vorbelegen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mit VBA "Speichern unter" Dateityp vorbelegen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread