Excel 刮取表

Question

我是 excel vba 的新手。 我有这个问题：

我想要 excel 检查物品的可用性 @ 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 问题，我还没有尝试过；)