VBA SaveAs 保存为文件类型而不是 .xlsm

Question

当用户打开此工作簿时，我想强制他们立即将文件另存为新文件。对话框打开，但它只会让您将其另存为“所有文件”。

Dim Workbook_Orig As Variant

    Workbook_Orig = Application.GetSaveAsFilename

    If Workbook_Orig <> False Then
        ActiveWorkbook.SaveAs _
        Filename:="File Name", _
        FileFormat:=52
    End If

代替“52”，我尝试了“xlOpenXMLWorkbookMacroEnabled”，但这没有任何区别。

您不能立即另存为吗？您是否必须更改文件或其他内容？

任何帮助是极大的赞赏。

Answer 1

尝试指定文件过滤器:

Workbook_Orig = Application.GetSaveAsFilename( _
        fileFilter:="XLSM Files (*.xlsm), *.xlsm")