2

全て。私のコードは次のようになります:

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) にループする場合と同様に、URL に「BB」を入力し、myStrArray(2) は URL に「CC」を入力する必要があります。私は多くの方法を試しましたが、うまくいきませんでした。誰かがこれについての経験と提案を持っていますか? ありがとう！

4

1 に答える 1

0

以下のコードを試してください：

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
于 2013-06-03T01:20:47.117 に答える