Question

几天来我一直在寻找答案。请帮忙。

<div class="FBOSearchResultsItemPricingTablePrice">$3.8391</div>

我只需要从网站上的此字符串中提取“ $ 3.8391”，并将其填充到Excel中的单元格中即可。

到目前为止，这就是我所拥有的，所有这些都完全可以满足我的需要。我已经打开网页，登录并搜索位置，但是，我似乎无法获得这个简单的数字！

（为了保护我的信息，我显然更改了代码中的用户名/密码）

Sub login()
    Dim IE As Object
    Dim doc As Object
    Set IE = CreateObject("InternetExplorer.application")
    IE.AddressBar = 0
    IE.StatusBar = 0
    IE.Toolbar = 0
    IE.Visible = True
    IE.navigate "https://www.avfuel.com/login"
    Do Until Not IE.busy: DoEvents: Loop
    Set doc = IE.document
    Do While doc.ReadyState <> "complete": DoEvents: Loop
    doc.getElementsByName("dnn$ctr2046$Login$Login_AvfuelAuth$txtUserName")(0).Value = "XXXX"
    doc.getElementsByName("dnn$ctr2046$Login$Login_AvfuelAuth$txtPassword")(0).Value = "XXXXX"
    doc.getElementById("dnn_ctr2046_Login_Login_AvfuelAuth_cmdLogin").Click
    Application.Wait (Now + TimeValue("00:00:05"))
    doc.getElementsByName("dnn$ctr618$Loader$ctl00$txtAirportSearchInput")(0).Value = "bfl"
    doc.getElementById("dnn_ctr618_Loader_ctl00_hlSearchPageAirport").Click
    Application.Wait (Now + TimeValue("00:00:05"))
End Sub

Answer 1

尝试一下

Cells(1,1) = doc.getElementsByClassName("FBOSearchResultsItemPricingTablePrice")(0).innerText

Answer 2

或使用CSS选择器

例如

[A1] = doc.querySelector(".FBOSearchResultsItemPricingTablePrice").innerText

“。”是上课的。

Div类的VBA代码

2 个答案: