保存没有宏的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