Vbscript 如何从cmd运行VBS脚本?
我有以下用于添加Excel加载项的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
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运行?此代码运行时没有任何错误。但是,我不知道如何启用它(在外接程序管理器窗口中选中它)或取消选中它。不确定是否有代码可以实现这一点?