Fatal编程技术网
  • excel/
  • 使用VBA在启用宏的MS excel中强制确定隐私警告消息

使用VBA在启用宏的MS excel中强制确定隐私警告消息

excel vbscript vba

使用VBA在启用宏的MS excel中强制确定隐私警告消息,excel,vbscript,vba,Excel,Vbscript,Vba,我已经在excel中编写了一个宏，该宏计划每天运行，并且运行良好 但问题是，每当遇到保存excel文件的代码时，它都会提示一条警告消息，如下所示： 下面是在excel文件中触发宏的VBScript代码 Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\foo\bar.xlsm", 0, FALSE) xlApp.Run "Macro1"

我已经在excel中编写了一个宏，该宏计划每天运行，并且运行良好

但问题是，每当遇到保存excel文件的代码时，它都会提示一条警告消息，如下所示：

下面是在excel文件中触发宏的VBScript代码

Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("C:\foo\bar.xlsm", 0, FALSE)
xlApp.Run "Macro1"
xlBook.Save   ' Here is where i need to force OK this warning message
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
现在是否有一个VBA，我可以在保存时添加它，这样我就不必每次都手动单击“确定”，可以强制执行“确定”吗

提前谢谢

尝试以下操作：在
Set xlApp=CreateObject（“Excel.Application”）
行之后添加
xlApp.DisplayAlerts=False
，并在最后将其设置回
True
。您也可以将该行放在
xlBook之前。保存
并在该行之后将其设置为True谢谢Siddharth！这很有效！很高兴能提供帮助：）尝试以下操作：将
xlApp.DisplayAlerts=False
添加到行
Set xlApp=CreateObject（“Excel.Application”）
之后，并在最后将其设置回
True
。您还可以将该行放在
xlBook之前。保存该行后将其设置为True谢谢Siddharth！这很有效！很高兴能提供帮助：）尝试以下操作：将
xlApp.DisplayAlerts=False
添加到行
Set xlApp=CreateObject（“Excel.Application”）
之后，并在最后将其设置回
True
。您还可以将该行放在
xlBook之前。保存该行后将其设置为True谢谢Siddharth！这很有效！很高兴能帮上忙：）