时间戳

首页 > 解决方案 > Div 类的 VBA 代码

excel - Div 类的 VBA 代码

问题描述

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

<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

标签： excelvba

解决方案

试试这个

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

推荐阅读