VBA字符串變量不會在字符串連接中放置常量字符串值

Question

全部。我的代碼是這樣的：

Sub mySub 

Public Const strVarA As String = "AA" 
Public Const strVarB As String = "BB" 
Public Const strVarC As String = "CC" 

Dim myStrArray() As String 
Dim myString As String 
myStrArray = ["strVarA", "strVarB", "strVarC"] 

For i = 0 To 2 
    myURL = "http://www.yahoo.com/news/" & myStrArray(i) & ".html" <--- Here, wrong 
    '//do something. 
Next i 

End Sub 

我的目的是在for循環，myStrArray（0）應該把它的恆定值 「AA」 的URL， 這樣的：

"http://www.yahoo.com/news/AA.html" 

因爲URL在其鏈接中使用「AA」。但是，代碼始終把 「strVarA」，像這樣：

"http://www.yahoo.com/news/strVarA.html" 

當環路myStrArray（1），它應該把 「BB」 的網址類似，myStrArray（2）應該把 「CC」 的URL。我嘗試了很多方法，沒有運氣。有人有這方面的經驗和建議嗎？謝謝！

Answer 1

試試下面的代碼：

Sub mySub() 

Const strVarA As String = "AA" 
Const strVarB As String = "BB" 
Const strVarC As String = "CC" 

'Dim myStrArray() As String 
Dim myString As String 
myStrArray = Array("strVarA", "strVarB", "strVarC") 

For i = LBound(myStrArray) To UBound(myStrArray) 
    myURL = "http://www.yahoo.com/news/" & myStrArray(i) & ".html" 
    '//do something. 
Next i 

End Sub 

評論

Sub mySub() 

    Dim myStrArray As Variant 
    myStrArray = Array("AA", "BB", "CC") 

    For i = LBound(myStrArray) To UBound(myStrArray) 
     myurl = "http://www.yahoo.com/news/" & myStrArray(i) & ".html" 
     MsgBox myurl 
    Next 

End Sub