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

我正在尝试使用vbscript打开excel电子表格，运行宏，并保存工作表以进行每日库存更新。我在这里找到了下面的代码，它对我来说运行良好，但我希望它能够自动运行，而不会弹出提示：“这将取消挂起的数据刷新”（与我猜的宏相关）

我似乎找不到正确的代码来实现这一点。任何帮助都将不胜感激

以下是现有的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

---

vbscript中的

xlapp.displayalerts=false

或模块中的

application.displayalerts=false

将抑制警报

---

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

会

xlApp.DisplayAlerts=False

帮助吗？谷歌搜索会发现答案作为第一个结果…谢谢ASH，这很有效。我确实尝试过几次谷歌搜索，但我可能不知道正确的术语来获得正确的结果。谢谢你的帮助。