修改VBScript以停止显示excel对话框

Question

我尝试使用vbscript打开Excel电子表格，运行宏，并保存工作表以进行每日库存更新。我在这里找到了以下代码，它对我来说工作正常，但是我想让它自动运行而不会抛出我得到的提示：＆＃34;这将取消待处理的数据刷新＆＃34; （与我猜测的宏观相关）

我似乎无法找到合适的代码来实现这一目标。任何帮助将不胜感激。

这是现有的vbscript：

Option Explicit

Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")
'~~> Change Path here
Set xlBook = xlApp.Workbooks.Open("C:\testfiles\Daily Update.xlsm", 0, False)

xlApp.Run "RefreshData"
xlBook.Close(False)
xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing

WScript.Echo "Daily Update Finished."
WScript.Quit

这是Excel宏：

Sub RefreshData()
'
' RefreshData Macro
'
' Keyboard Shortcut: Ctrl+Shift+O
'
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.Save
End Sub

Answer 1

vbscript中的

xlapp.displayalerts = false或模块中的application.displayalerts = false将禁止警报。

确保在代码末尾将其设置为true。