VBAのスクラップ・ディグ・クラス

Question

私は値段の高い製品を比較しようとしています。私はコードをいくつかのWebを擦ってうまく動作しているが、私はdivクラスの中に "価格"をもたらすデータを持っているカップルがあり、私のコードはそれをもたらすことができません。私はこれに取り組んでいたが、それでも私はどのように把握できない。あなたの誰かが私にこれを助けることができれば、私は感謝するでしょう。 は、ここでは、製品の1のウェブれる：私は小さな価格のウィッヒをプルする必要がある https://www.jumbo.com.ar/Comprar/Home.aspx?#_atCategory=false&_atGrilla=true&_query=chivas%20regal は言う：「###（価格）ポル・litro」コードを見てWICHがある：

$ 1025.33ポルLtの

しかし、内部で

私のコードがある後previus 16、他の事業部を持っている意味：オブジェクト

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（「製品価格あたりの単位として 薄暗いIE 「）（0）Doesn'tが動作

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

Answer 1

を.innerText！...多分私はコレクションとして暗くする必要がありますか？...また、上記のバージョンせずに私は価格を得ることができますが、として 『』 00.0 ... iは整数としてDDAを暗く場合.AND ...コード、オブジェクト セット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（AS薄暗いIE

間違っています"product-price"） '0）.innerText ' 各要素についてdダ ます。Debug.Print Element.innerText 次

End Subのは