VBscript运行shell命令脚本有效，但什么都不做

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 

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