vba - 保存没有宏的 Excel 文件。 Excel VBA代码

Question

我已经创建了一个带有宏的 Excel 文档，我的客户应该按下一个按钮来填写它。



按钮下面就是这个宏:

Sub filesave()
    Dim bFileSaveAs As Boolean
    bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
End Sub

问题是，作为默认选项，您可以将文档另存为启用宏的 Excel 工作簿。



如何显示为默认未启用宏的 Excel 格式或不显示将文档另存为启用宏的文档的可能性，以确保宏不会保存在已填写的文档副本中？

关于代码应该是什么样子的一些想法？

Answer 1

您可以使用 GetSaveAsFilename让用户选择一个位置和文件名，然后用 Workbook.SaveAs Method 保存通过从 XlFileFormat Enumeration 中选择文件格式.

Public Sub SaveFileAs()
    Dim FileToSave As Variant
    FileToSave = Application.GetSaveAsFilename(fileFilter:="xlsx Files (*.xlsx), *.xlsx")

    If FileToSave <> False Then
        ActiveWorkbook.SaveAs Filename:=FileToSave, FileFormat:=xlOpenXMLWorkbook
    Else
        'user chose cancel
    End If
End Sub