使用.Open遍歷URL列表（在VBA中解析JSON）

Question

代碼中的「引用URL列表」部分是我可以放入單個URL並且代碼正常工作的地方。但是我希望讓代碼更加靈活，以便能夠遍歷我的URL列表（理想情況下只更改我的代碼的一部分，或者可能是另一個小的調整）。下面是代碼：

Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
MyRequest.Open "GET", "reference URL list" 
MyRequest.Send 

Dim Json As Object 
Set Json = JsonConverter.ParseJson(MyRequest.ResponseText) 

我知道有多種方法可以解決這個 - 雖然我不能找到將略有增加我的方法的具體信息。我非常感謝幫助。

Kyle

Answer 1

此代碼應該做你想做的。關鍵的想法是使用一個數組來保存您想要發送HTTP請求的網站列表。

如下所示，您不必使用鍵入到VBA中的數組，您也可以在Excel中使用Range。

下面的代碼：

Public Sub HTTP_Req() 
    Dim MyRequest As Object: Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
    'Add all Urls you want to send a HTTP request to, in an Array 
    Dim MyUrls: MyUrls = Array("www.google.com", "www.yahoo.com", "www.bing.com") 
    Dim i As Long 
    Dim Json As Object 

    For i = LBound(MyUrls) To UBound(MyUrls) 
     With MyRequest 
      .Open "GET", MyUrls(i) 
      .Send 
      Set Json = JsonConverter.ParseJson(.ResponseText) 
      'Do something with the JSON object here 
     End With 
    Next 
End Sub