如何刮桌子？

Question

我想检查一个项目@www.bgstechnic.com/availability的可用性

例如“1195”

我编写了这个 VBA 代码：

Sub ImportMyData()

    Dim IE As New InternetExplorer
    
    IE.Visible = False
    IE.navigate "http://www.bgstechnic.com/availability?processed&F1244467957750MNRHTT=_"
    
    Do
        DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    
    IE.document.getElementById("item-numbers").Value = "1195"
    
    Set goBtn = IE.document.getElementById("bgs-submit")
    goBtn.Click
    
    Do
        DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    
    Dim sdd As String
    sdd = IE.document.getElementById("availability-results").innerText
    
    MsgBox sdd

End Sub

我需要在 Excel 中插入文本“有货，超过 50 件。有货”，但我找不到此子表的 ID (?)

Answer 1

您必须按类名进一步深入。试试这个：

sdd = IE.Document.getElementsByClassName("availability-desc")(0).innerText

这将从可用性列返回第 (0) 行的描述。这应该可以，但是（免责声明）由于一些 #!@#!# IE 问题，我没有尝试过；）