时间戳

首页 > 解决方案 > 保存没有宏的工作簿

excel - 保存没有宏的工作簿

问题描述

我有一个宏启用宏。我试图在没有宏的情况下保存它。

Application.DisplayAlerts = False
ThisWorkbook.SaveAs fileName, xlOpenXMLWorkbook
Application.DisplayAlerts = True

会以正确的格式保存它....但是宏仍然存在。有人有想法吗？

标签： excelvba

解决方案

您是否将宏放入模块代码表中？这个按钮应该会自动删除模块，不知道怎么回事UserClass/UserForms/workbook/worksheet object macros，没测试。

版本：Excel 2013

Public Sub saveAsXlsx()
    Dim wb As Workbook
    Dim name As String
    Set wb = Application.ActiveWorkbook
    Application.DisplayAlerts = False
    name = wb.Path & "\test_new.xlsx"
    Call wb.SaveAs(name, xlOpenXMLWorkbook)
    Application.DisplayAlerts = True
End Sub

推荐阅读