Vbscript 如何从cmd运行VBS脚本?

Vbscript 如何从cmd运行VBS脚本?,vbscript,windows-xp,Vbscript,Windows Xp,我有以下用于添加Excel加载项的vbs脚本: 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

我有以下用于添加Excel加载项的vbs脚本:

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上运行它。

Visual Basic for Applications(VBA,您的代码是用它编写的)和Visual Basic Scripting Edition(VBS)不是同一种语言

Windows脚本主机(WSH,即
cscript.exe
wscript.exe
)仅处理活动的脚本语言(在大多数安装中为VBScript和JScript)。VBA只能在要承载它的应用程序中运行


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

发生错误的原因是
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

我懂了。是否可以转换为VBS代码并从cmd运行?此代码运行时没有任何错误。但是,我不知道如何启用它(在外接程序管理器窗口中选中它)或取消选中它。不确定是否有代码可以实现这一点?