Vba连接

我试图连接这个，但它不工作。 我以这种方式初始化我的数组（ Dim Myarray(1 To 2) As String 。）

我不知道天气Myarray已经被初始化或没有被通过后作为string。 我试着用（ debug.print ）debugging代码，但是我能够只打印一个值。

但是，当我打印（ myarray ）代码不匹配错误即将到来。

 Debug.Print Myarray 

我需要在一个variablesmyarray中的值。 所以我可以在一个URl中传递数组variables的值，并获得预期的结果

  Myarray(1) = 141599734375# Myarray(2) = 161631397677# 'Debug.Print Myarray(1) With Sheet1.QueryTables.Add(Connection:= _ "URL;http://www.ebay.in/itm/" + "Myarray)", _ Destination:=Sheet1.Range("$A$9")) 

我以这种方式初始化我的数组（ Dim Myarray(1 To 2) As String 。）我不知道天气Myarray已经被初始化或没有被传递为string。 请看看上面的代码，并帮助我解决这个问题。 我是VBA新手，请帮我解决这个问题。

Answer 1

你可能想试试这个。

 Dim Myarray(0 To 1) As String Myarray(0) = "141599734375" Myarray(1) = "161631397677" Dim myNewArray As String myNewArray = Join(myArray, ", ") Debug.WriteLine (myNewArray) 

以供参考： http : //www.globaliconnect.com/excel/index.php?option=com_content&view=article&id= 270: excel-vba-string-functions-split-join-concatenate&catid=79&Itemid=475

Answer 2

如果你需要在数组中使用这两个数字（一个接一个），这可以解决：

  With Sheet1.QueryTables.Add(Connection:= _ "URL;http://www.ebay.in/itm/" & Myarray(0) & Myarray(1)), _ Destination:=Sheet1.Range("$A$9")) 

如果你需要这两个值之间的分离器，你可以这样添加它：

  With Sheet1.QueryTables.Add(Connection:= _ "URL;http://www.ebay.in/itm/" & Myarray(0) & "separator" & Myarray(1)), _ Destination:=Sheet1.Range("$A$9"))