Question

我正在努力比较价格产品，试图以价格获得我的产品。我有一个代码，工作正常，以刮取一些网络，但我有一些有数据，我想在Div类中带来“价格”，我的代码不允许我带来它。我正在研究这个但仍然无法弄清楚如何。如果有人能帮助我，我会感激不尽。这是其中一个产品的网站： https://www.jumbo.com.ar/Comprar/Home.aspx?#_atCategory=false&_atGrilla=true&_query=chivas%20regal 我需要拉小价格说：“###（价格）por litro”看着代码是：

  <div class="product-price-per-unit">$1025.33 por Lt</div>

但是在里面，意味着在

后有其他16个Div

    <div id="quickview-modal" class="modal fade quick-view modal-scroller visible in" aria-hidden="false" style="display: block;">

我的代码是：

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "https://www.jumbo.com.ar/Comprar/Home.aspx?#_atCategory=false&_atGrilla=true&_query=chivas%20regal"

Application.StatusBar = "Loading, Please wait..."

Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop

Application.StatusBar = "Searching for value. Please wait..."

Dim dda As String
dda = IE.document.getElementsByClassName("product-price-per-unit")(0).innerText

ActiveSheet.Range("b2").Value = dda

从VBA刮掉Div Class

0 个答案: