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。

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

VBscript running shell command script works but does nothing

vb.net

vbscript

excel

vba