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 Scripting Edition（VBS）不是同一种语言。

Windows Scripting Host（WSH，即cscript.exe和wscript.exe）仅处理Active Scripting语言（在大多数安装中，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

如何从cmd运行VBS脚本？

2 个答案: