Question

我已经编写了一个代码来获取名称一家餐馆使用其电话号码申请＆＃34; GET＆＃34; http方法，但我做错了什么这个过程是我所不知道的。所以，如果有人伸出援助之手为解决这个问题，我将非常感谢他。提前谢谢。

CGImageDataProvider

Answer 1

您的代码非常好，但您的端点没有显示任何内容，您可以在浏览器中进行测试，您会看到。

我建议您阅读YellowAPI doc并测试此类endpoint，更改值YOUR_API_KEY_HERE和YOUR_UID_HERE。

Answer 2

我的帖子中有很多问题。但是，我已经修好了。现在，去吧。

Sub reverse_search()
    Dim http As New XMLHTTP60, html As New HTMLDocument
    Dim ArgumentString As String, post As Object

    ArgumentString = "what=5197365924&where=Canada&redirect=reversetobusiness"

    With http
        .Open "GET", "https://www.yellowpages.ca/bus/Ontario/Amherstburg/Downtown-Expresso-Cafe/522901.html?" & ArgumentString, False
        .setRequestHeader "Content-Type", "text/xml"
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36"
        .send
        html.body.innerHTML = .responseText
    End With

    For Each post In html.getElementsByClassName("merchant-title__name")
        x = x + 1: Cells(x, 1) = post.innerText
    Next post
End Sub

＆＃34;获取＆＃34;请求方法不在vba中工作

2 个答案: