使用 MSXML2.XMLHTTP 获取数据

Question

我正在尝试使用 MSXML2.XMLHTTP 获取数据 但它没有工作

有什么想法吗？

Sub getdata

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As String
Dim sht As Worksheet


Application.DisplayAlerts = False
Set sht = ActiveSheet


    On Error Resume Next
    website = "https://shopee.co.id/AFI-EC-Tshirt-Yumia-(LD-90-P-57)-i.10221730.5568491283"
    Set request = CreateObject("MSXML2.XMLHTTP")

   request.Open "GET", website, False
   request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
   request.send
   response = StrConv(request.responseBody, vbUnicode)
   html.DocumentElement.innerHTML = response

    
    price = html.querySelector("div.AJyN7v")(0).innerText
    
    Debug.Print price
    
    Application.StatusBar = ""
    On Error GoTo 0
Application.DisplayAlerts = True``
End Sub

我做了很多方法，但仍然没有工作， 希望有人可以帮助我

Answer 1

该页面上的几乎所有内容都需要加载 javascript。 Javascript 不能与 xmlhttp 请求一起运行到登陆页面，所以价格永远不会被检索到..

正在从返回 json 的附加 API 调用中动态检索价格。

如果您检查 url，您将获得以下信息：

https://shopee.co.id/AFI-EC-Tshirt-Yumia-(LD-90-P-57)-i.10221730.5568491283

最后一组连续数字是产品 ID，即5568491283。

如果你打开开发工具的网络选项卡F12，然后按F5刷新更新页面的网络流量，然后检查xhr only流量，然后在搜索中输入你的产品id框，检索到的第一个结果是返回价格的 xhr：

https://shopee.co.id/api/v2/item/get?itemid=5568491283&shopid=10221730

响应是 json，因此您需要一个 json 解析器来提取结果（或在字符串上使用正则表达式 - 不太可取）

在标题子选项卡中，您可以查看有关发出的 xhr 请求的信息。

检查条款和条件以查看是否允许抓取以及是否有用于检索此数据的公共 API。