从VBScript传递两个参数到宏

时间:2019-07-16 17:57:42

标签: excel vba vbscript

我在VBScript下面可以运行宏

Option Explicit
Dim ExlApp
Dim mystr
Dim mytl

mystr = WScript.Arguments.Item(0)
mytl = WScript.Arguments.Item(1)

Set ExlApp = CreateObject("Excel.Application")
ExlApp.DisplayAlerts = False
ExlApp.Visible = True

ExlApp.Run "'C:\Users\ks38460\Downloads\Tool\uImport CSV.xlsm'!Sheet1.ImportCSV", CStr(mystr), CStr(mytl)

Set ExlApp = Nothing

但是当我从cmd运行此VBS时,它具有以下两个参数

WScript.exe C:\Users\ks38460\Downloads\Tool\tool2.vbs "C:\Users\ks38460\Downloads\Tool\All Timesheets.csv" "RHM"

它根本不会将第二个参数传递给宏。

注意:我在写为的宏函数中调用参数

Function xyz (xFilename as String, xTL as String)
   'some code with xFilename
   'some code with xTL
End function

此函数在使用一个参数时运行平稳,但在使用两个参数时会卡住。

0 个答案:

没有答案