如何从 cmd 运行 VBS 脚本？

Question

我有来自Microsoft Support 的以下 vbs 脚本，用于添加 Excel 插件：

Dim oXL As Object
Dim oAddin As Object
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Set oAddin = oXL.AddIns.Add("c:\Program Files\MyApp\MyAddin.xla",  True)
oAddin.Installed = True
oXL.Quit
Set oXL = Nothing

我将上述脚本保存到名为 addin.vbs 的文件中，然后从命令控制台运行它：

C:\...>cscript addin.vbs

我收到以下错误：

c:\...\addin.vbs(1, 9) Microsoft VBScript compilation error: Expected end of statement

不确定如何从 cmd 控制台运行它？

我在 Windows XP 上运行它。

Answer 1

Visual Basic for Applications（用于编写代码的 VBA）和 Visual Basic Sc​​ripting Edition (VBS) 不是同一种语言。

Windows 脚本宿主（WSH，即cscript.exe 和wscript.exe）仅处理活动脚本语言（在大多数安装中，VBScript 和 JScript）。 VBA 只能在用于托管它的应用程序中运行。

只需按照 Microsoft 支持页面上的说明将脚本添加到 Excel。

Answer 2

由于As Object 子句而发生错误。与 VBA 不同，VBScript 只有一种数据类型 — Variant，因此在声明变量时无需指定数据类型。删除 As Object 子句，脚本应该可以正常工作：

Dim oXL, oAddin
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Set oAddin = oXL.AddIns.Add("c:\Program Files\MyApp\MyAddin.xla",  True)
oAddin.Installed = True
oXL.Quit
Set oXL = Nothing