使用逗号分隔的string作为函数参数

我创build了一个逗号分隔的string。 我想在Application.Run过程中使用这个string作为input。

该string看起来像下面 – 用引号..

MyString = "First_Number", "Second_Number", "Third_Number" 

我想用这个string作为参数input：

 Application.Run("'" & "Book2.xlsm" & "'!MySub", *MyString*) 

它不工作..我得到一个“不是最理想的论点”。

我用下面的代码构buildstring，范围只是一个带参数的行。

 Function csvRange(myRange As Range) Dim csvRangeOutput For Each entry In myRange csvRangeOutput = csvRangeOutput & entry.Value & """, " & """" Next csvRange = Left(csvRangeOutput, Len(csvRangeOutput) - 4) End Function 

希望有人能帮忙。

Answer 1

评估可能会做的伎俩。 看看这段testing代码：

 Sub Test() Dim params As String params = "3,5" Debug.Print Evaluate("addNumbers(" & params & ")") End Sub Function addNumbers(a As Integer, b As Integer) As Integer addNumbers = a + b End Function 

这是写代码的代码，如何退出！ ：d

Answer 2

也许你可以使用这样的东西。

 String MyString = "First_Number, Second_Number, Third_Number"; String words[] = MyString.split(","); 

然后用单词[0]，单词[1]等

或者你可以遍历数组单词[]，并使用你喜欢的个人条款。