语境:我正在尝试在 Windows 中创建一个任务,无论用户是否登录,都自动在一天中的特定时间打印文件。
我在网上看到过,为了以这种方式执行任务,程序或脚本必须完全静默。
我可以打开一个 Excel 文件并完全静默地执行宏,但在最后会出现一个 Windows 对话框,提示:
这是我用来打印文档的 Excel 宏
Private Sub Auto_Open()
'To print use:
ThisWorkbook.Sheets("Report").PrintOut 1, 1, 1, False
End Sub
“现在打印....”
问题 我怎样才能抑制该对话框?
这是我目前正在使用的 VBS 脚本:
Option Explicit
On Error Resume Next
ExcelMacroExample
Sub ExcelMacroExample()
Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Users\Public\test.xlsm", 0, False)
xlApp.Run "Auto_Open"
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
我尝试将 Open 函数的选项在 False 和 True 之间更改,但结果是一样的。