Excel 如何使XMLHTTP在MAC上工作

我已经发布了一个线程之前，它是完美的解决方式在这个链接 这是工作代码

Sub GetProfileInfo()
Const URL$ = "https://www.zillow.com/detroit-mi/real-estate-agent-reviews/?page="
Dim Http As New XMLHTTP60, Html As New HTMLDocument
Dim post As HTMLDivElement, R&, P&

For p = 1 To 3 'put here the highest number you wanna traverse
    With Http
        .Open "GET", URL & p, False
        .send
        Html.body.innerHTML = .responseText
    End With

    For Each post In Html.getElementsByClassName("ldb-contact-summary")
        With post.querySelectorAll(".ldb-contact-name a")
            If .Length Then R = R + 1: Cells(R, 1) = .item(0).innerText
        End With

        With post.getElementsByClassName("ldb-phone-number")
            If .Length Then Cells(R, 2) = .item(0).innerText
        End With
    Next post
Next p
End Sub

---

但它似乎只适用于windows。我怎样才能让它在MAC上工作？

似乎Office for MAC上的HTTP请求被破坏了。可能有效。或者尝试一个具有重复项的shell：@ashleedawg，您可能的重复项已经5年了，很长时间了，并且它没有覆盖shell，只是

QueryTables

。也许类似，但对它的更新研究将解决新问题（因为微软不太关心Mac OS上的Office）。@ComputerVersteher-好的。我不确定，所以这是一个评论，而不是旗帜。@ashleedawg，继续清理。我倾向于关注那些我应该避免的糟糕和愚弄的问题（但我喜欢帮助：（）