我正在尝试在VBScript
中运行以下代码,但它没有编译最后一个语句。是因为VBScript
不允许命名参数吗?
Filename_Argument = WScript.Arguments(0)
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Workbooks.OpenText Filename:=Filename_Argument, Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
答案 0 :(得分:5)
VBScript不支持程序和函数的命名参数。您需要将参数列表更改为位置:
Workbooks.OpenText Filename_Argument, xlMSDOS, ...
VBScript也不识别Excel常量(如xlMSDOS
),所以你需要查找它们并用它们的数值替换它们:
Workbooks.OpenText Filename_Argument, 3, ...
您必须使用显式对象引用:
objExcel.Workbooks.OpenText Filename_Argument, 3, ...
Excel宏记录器将命名参数放入位置顺序,因此您只需删除参数名称即可。您可以省略您不想指定的可选参数,例如:
x = Function(Var1, , Var3)
' ^
' `- omitted optional 2nd parameter