構文エラー：URLの配列（VBA）

Question

私のコードは機能していましたが、今は "構文エラー"が表示され、URL1, URL2, URL3などがハイライトされています。 urlArrayを文字列に切り替える必要があるかもしれないと思いましたが、そうではありませんでした。何かご意見は？ここで

は私の完全なコードです：

Option Explicit 

Sub getJSON() 

Dim sheetCount As Integer, urlArray As Variant 
sheetCount = 1 

urlArray = Array(“URL1”, "URL2", "URL3", "URL4", "URL5") 

Dim MyRequest As Object: Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
Dim MyUrls: MyUrls = urlArray 
Dim k As Long 
Dim Json As Object 

For k = LBound(MyUrls) To UBound(MyUrls) 
    With MyRequest 
     .Open "GET", MyUrls(k) 
     .Send 
     Set Json = JsonConverter.ParseJson(.ResponseText) 
    Dim i As Long, p As Object 
    For i = 1 To Json("prices").Count 
     Set p = Json("prices")(i) 
     Sheets("Sheet" & sheetCount).Cells(i, 1) = p("name") 
     Sheets("Sheet" & sheetCount).Cells(i, 2) = p("cost")("fareType") 
     Sheets("Sheet" & sheetCount).Cells(i, 9) = p("cost")("base") 
     Sheets("Sheet" & sheetCount).Cells(i, 10) = p("cost")("perMinute") 
     Next i 
     End With 
sheetCount = sheetCount + 1 
Next 
End Sub 

私はこれらのURLから解析していますJSONコードは以下の形式になります。

{"id":1,"prices":[{"name":"expressTaxi","cost":{"base":"USD4.50","fareType": 
"time_plus_distance","cancelFee":"USD10.00","minimumAmt":"USD8.00","perMinute":"USD1.50", 
"perDistanceUnit":"USD3.00"}}] 

Answer 1

あなたはあなたの最初の「の代わりに "を使用していますあなたの配列URL1のインデックス、ちょうどそれらを交換し、あなたが良いだろう。このようなので

：！

urlArray = Array("URL1", "URL2", "URL3", "URL4", "URL5") 

の代わりに：

urlArray = Array(“URL1”, "URL2", "URL3", "URL4", "URL5")