VBS 打开 Excel 工作簿不显示
VBS to Open an Excel Workbook Not Displaying
我正在尝试 运行 一个小的 VBS 脚本来打开一个 Excel 工作簿,但是每次我 运行 我的脚本时,Excel 只会加载为后台应用程序(在任务管理器中确认)但不会显示。我觉得我错过了一些非常愚蠢的东西,但我浏览了一个又一个关于启动 VBS 脚本的表格 Excel,但我似乎无法让它们中的任何一个工作。如果您有任何意见,我们将不胜感激,谢谢 :)
Option Explicit
Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open("FilePath", 0, True)
Application.Caption = "OnMax"
*注意我用 Filepath 替换了实际的文件路径以确保它适合和一行并且没有人必须滚动,但重要的是文件路径是:
M:\Projects\Onmax II\Documents\R&D\Standalone App\VB 脚本 Test\Test.xlsm
脚本完全按照您的要求执行它启动了 Excel.
的实例
您只是没有告诉它使应用程序可见。
添加以下代码应该会有所帮助
xlApp.Visible = true
我正在尝试 运行 一个小的 VBS 脚本来打开一个 Excel 工作簿,但是每次我 运行 我的脚本时,Excel 只会加载为后台应用程序(在任务管理器中确认)但不会显示。我觉得我错过了一些非常愚蠢的东西,但我浏览了一个又一个关于启动 VBS 脚本的表格 Excel,但我似乎无法让它们中的任何一个工作。如果您有任何意见,我们将不胜感激,谢谢 :)
Option Explicit
Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open("FilePath", 0, True)
Application.Caption = "OnMax"
*注意我用 Filepath 替换了实际的文件路径以确保它适合和一行并且没有人必须滚动,但重要的是文件路径是:
M:\Projects\Onmax II\Documents\R&D\Standalone App\VB 脚本 Test\Test.xlsm
脚本完全按照您的要求执行它启动了 Excel.
的实例
您只是没有告诉它使应用程序可见。
添加以下代码应该会有所帮助
xlApp.Visible = true