c# - 将变量从控制台传递到 vbs 再到 Excel 宏

Question

我正在尝试将变量传递给以下代码集:

来自用 C# 编写的控制台应用程序:

static void Main(string[] args) {

    string myPath = @"R:\xxx\xxx\xxx\test.vbs";
    Process p = new Process();
    ProcessStartInfo ps = new ProcessStartInfo(myPath,"hello");
    p.StartInfo = ps;
    p.Start();

    Console.WriteLine("press [enter] to exit");
    Console.ReadLine();

}

进入以下test.vbs文件:

strFolder = Wscript.Arguments.Item(0)
Set XL=CreateObject("Excel.Application") 
XL.Visible=True 
XL.Workbooks.Open "\\xxx\xxx\xxx\PassInVariable.xlsm",,True
XL.Run "'PassInVariable.xlsm'!xxx", strFolder   '<<<<<<<<<<<<<<PROBLEM SEEMS TO BE HERE
XL.Workbooks("PassInVariable.xlsm").close false
XL.quit
Set XL=nothing

然后在 PassInVariable.xlsm 文件中，我得到以下内容:

Option Explicit
Sub xxx(x As String)

MsgBox x

End Sub

似乎 VBScript 文件中的变量 strFolder 是问题所在，因为如果我将其替换为诸如“hello”之类的文字，则该变量将移至 excel VBA .

我如何修复 vbs 文件，以便变量可以传递到生产线？

Answer 1

VBScript 中的所有变量都是Variant。您不能通过引用将 Variant 传递给需要引用字符串的方法。但是，您可以按值传递它，因为这样解释器会为您进行转换。

将 Sub xxx 修改为 Sub xxx(ByVal x As String)。