运行外壳程序命令脚本的VBscript有效，但无任何作用

Question

我正在尝试编写代码以通过单击.vbs文件来打开excel文件，但是尽管该代码执行了该文件，但并未打开。当我在CMD中键入相同的命令时，文件将完美打开。我究竟做错了什么？

Sub RunMacro()
    CreateObject("WScript.Shell").Run("C:\Desktop\CompanyAlerts.xlsm")
End Sub

Answer 1

您可以打开记事本并将以下内容放入并另存为.vbs

Option Explicit
Sub Example() 
  Dim xlApp 
  Dim xlBook 
  Set xlApp = CreateObject("Excel.Application") 
  Set xlBook = xlApp.Workbooks.Open("C:\Desktop\CompanyAlerts.xlsm", 0, True) 
  xlApp.Application.Visible = True
    'xlApp.Quit 
   ' Set xlBook = Nothing 
 ' Set xlApp = Nothing
End Sub 

然后您可以右键单击并运行，或从命令行调用此vb。