Datei speichern Dialog - Format

Frage: Ein Datei-Speichern-Unter-Dialog soll angezeigt werden. Mit den Möglichkeiten als "XLSM = 52" oder "XLSX = 51" zu speichern. Die verschiedenen Formate sind unten nochmal aus der VBA-Hilfe kopiert. Wenn als "XLSX = 51" gespeichert wird, werden die Makros automatisch aus der Datei entfernt. Im zweiten Code sieht man, wie das Standardspeicherformat ausgegeben bzw. angepasst werden kann.

Option Explicit
Public Sub Main()
    Dim varFilename As Variant
    ActiveSheet.Copy
    varFilename = Application.GetSaveAsFilename( _
    fileFilter:=("Exceldateien mit Makro(*.xlsm)," & _
    "*.xlsm,Exceldateien ohne Makro (*.xlsx),*.xlsx"), _
    InitialFileName:="Testdatei" & ".xlsm")
    If varFilename <> False Then ActiveWorkbook.SaveAs varFilename, _
        IIf(Right(varFilename, 4) = "xlsm", 52, 51)
    'ActiveWorkbook.Close False
End Sub
Sub Main_1()
    Dim lngTMP As Long
    lngTMP = Application.DefaultSaveFormat
    MsgBox Application.DefaultSaveFormat
    Application.DefaultSaveFormat = xlOpenXMLWorkbookMacroEnabled
    MsgBox Application.DefaultSaveFormat
    Application.DefaultSaveFormat = lngTMP
    MsgBox Application.DefaultSaveFormat
End Sub

Gibt beim Speichern des Arbeitsblatts das Dateiformat an.
Hinzugefügte Version: Excel 2007
NameWertBeschreibung
xlAddIn18Microsoft Excel 97-2003 Add-In
xlAddIn818Microsoft Excel 97-2003 Add-In
xlCSV6CSV
xlCSVMac22CSV (Macintosh)
xlCSVMSDOS24CSV (MSDOS)
xlCSVWindows23CSV (Windows)
xlCurrentPlatformText-4158Aktueller Plattformtext
xlDBF27DBF2
xlDBF38DBF3
xlDBF411DBF4
xlDIF9DIF
xlExcel1250Excel12
xlExcel216Excel2
xlExcel2FarEast27Excel2 FarEast
xlExcel329Excel3
xlExcel433Excel4
xlExcel4Workbook35Excel4-Arbeitsmappe
xlExcel539Excel5
xlExcel739Excel7
xlExcel856Excel8
xlExcel979543Excel9795
xlHtml44HTML-Format
xlIntlAddIn26Internationales Add-In
xlIntlMacro25Internationales Makro
xlOpenDocumentSpreadsheet60OpenDocument-Kalkulationstabelle
xlOpenXMLAddIn55Open XML-Add-In
xlOpenXMLTemplate54Open XML-Vorlage
xlOpenXMLTemplateMacroEnabled53Open XML-Vorlage mit Makros
xlOpenXMLWorkbook51Open XML-Arbeitsmappe
xlOpenXMLWorkbookMacroEnabled52Open XML-Arbeitsmappe mit Makros
xlSYLK2SYLK
xlTemplate17Vorlage
xlTemplate817Vorlage 8
xlTextMac19Macintosh-Text
xlTextMSDOS21MSDOS-Text
xlTextPrinter36Druckertext
xlTextWindows20Windows Text
xlUnicodeText42Unicode Text
xlWebArchive45Webarchiv
xlWJ2WD114WJ2WD1
xlWJ340WJ3
xlWJ3FJ341WJ3FJ3
xlWK15WK1
xlWK1ALL31WK1ALL
xlWK1FMT30WK1FMT
xlWK315WK3
xlWK3FM332WK3FM3
xlWK438WK4
xlWKS4Arbeitsblatt
xlWorkbookDefault51Arbeitsblatt Standard
xlWorkbookNormal-4143Arbeitsblatt normal
xlWorks2FarEast28Works2 FarEast
xlWQ134WQ1
xlXMLSpreadsheet46XML-Kalkulationstabelle
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...