VBA Winhttp URL

Question

我在下面的VBA代码中使用Winhttp，无法使URL工作，但是如果我将URL粘贴到浏览器中，它可以正常工作。如果有任何想法，我们将非常感谢：

Sub WinHttp()

Dim arr() As String
Dim pos As Integer
Dim used As Range

Dim url, resp As String
Dim req As New WinHttpRequest
Dim n As Integer

r = ActiveSheet.UsedRange.Rows.Count

For n = 4 To r

    Worksheets("Sheet0").Activate
    pn = Cells(n, 2).Value
    UnitPrice = (Cells(n, 4).Value) * 1

    url = "https://www.google.com/search?q=DNR-12-1G+$4,250"

    req.Open "GET", url, False
    req.send

    resp = req.ResponseText

    Debug.Print resp

    arr = split(resp)

    arr = Filter(arr, "$")

Next n

End Sub