從VBA的刮劃級

我正在努力比較價格產品，試圖讓我的價格。我有一個代碼很適合刮一些網頁，但我有一對夫婦有我想在Div類中帶來「價格」的數據，我的代碼不允許我帶上它。我正在研究這個，但我仍然不知道如何。如果有人能幫助我，我會很感激。這裏是產品的一個的網頁： https://www.jumbo.com.ar/Comprar/Home.aspx?#_atCategory=false&_atGrilla=true&_query=chivas%20regal 我需要拉小的代價至極說：「###（價格）POR litro」至極看代碼是：從VBA的刮劃級

$ 1025.33 POR LT

但是內，平均有16 previus其他分區後

我的代碼是：昏暗IE作爲對象

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（「產品價格每單位「）（0）.innerText

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

來源

2016-11-30 MarinaMontero

可以使用'設置元素= ie.document.getElementsByClassName（「格里拉-PRODUCTO-unidades」）'創建元素的集合。這應該返回所有元素，然後遍歷每個元素以返回內聯文本。喜歡：'對元素Debug.Print Element.Innertext下的每個元素下' –

謝謝瑞安......我正在測試，但沒有工作，我該怎麼做我必須調暗元素？ – MarinaMontero

Doesn't工作！......也許我有暗淡的收集？...還沒有上述版本，我可以得到價格，但爲‘00.0’.. 。而如果我暗淡DDA作爲整數...的代碼是錯誤的

昏暗IE作爲對象集IE =的CreateObject（「InternetExplorer.Application」）

IE.Visible = False 


IE.navigate "https://www.jumbo.com.ar/Comprar/Home.aspx?#_atCategory=false&_atGrilla=true&_id=24133" 
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」）'0）.innerText ' 對於每個元素在d噠 Debug.Print Element.innerText 接着

結束子

來源

2016-12-02 15:13:29 MarinaMontero

從VBA的刮劃級

回答

相關問題