Webden veri almak. Html içindeki veriyi almak.

[kisacaberk]

İyi geceler internette artık bulamadım sormak istiyorum.

Örnek olması ve nasıl bişey istediğim açısından çalışan iki vba makro kodum şu şekilde;

Sheets("Sayfa1").Range("C" & i) = Split(HTMLdoc.getElementsByClassName("product-info__price")(0).innerText, " ")
Sheets("Sayfa1").Range("E" & i) = HTMLdoc.getElementById("selectFirstVariationGroup").Item(1).innerText

htmlde gerekli class a ya da id ye ulaşıpbu verileri çekip text şeklinde istediğim satıra sütuna yazdırabiliyorum. Yani verileri alabiliyorum.
Yine bu şekilde aynı sayfadaki html in içinde bulunan resim urlsini almak ve Range ile istediğim hücreye bastırmak istiyorum.

Almak istediğim url nin bulunduğu html kod dizisi şu;

<img class="product__image swiper-lazy swiper-lazy-loaded" onerror="this.src='https://cdn.shopier.app/pictures_large/600icons-2.png';
this.srcset='https://cdn.shopier.app/pictures_large/600icons-2.png'"
 srcset="https://cdn.shopier.app/pictures_large/classmenboutique_74b61268f73c99758be430bc15877738.jpeg 2x"
src="https://cdn.shopier.app/pictures_large/classmenboutique_74b61268f73c99758be430bc15877738.jpeg">

src tagı içindeki .jpeg ile biten url yi almak istiyorum


Aslında bilene çok basit umarım vakit ayırıp yol gösterirsiniz teşekkürler şimdiden.

 

[kisacaberk]

@Haluk bey yardım eder misiniz

 

[Haluk]

URL'i verirseniz bakalım....

.

 

[kisacaberk]

URL'i verirseniz bakalım....

.

classmenboutique | Shopier

Kredi kartı ile güvenli şekilde alışveriş yapmak için tıklayın

www.shopier.com

şu şekilde bir sayfa. Buradaki ana fotoğrafın urlsini çekmek istiyorum. Sağ tıklayıp resmin urlsini kopyala diyince kopyalanan url yi. . Sayfaya ulaşıp beden bilgisi ya da başlığı zaten çekiyorum. Sayfada gözükmeyen Html kodlarının arasındaki bilgiyi çekmeyi yapamadım

 

[Haluk]

Öncelikle, VBA editöründe Tools>References bölümünden Microsoft HTML Object Library referansını ilave edin.



Daha sonra, aşağıdaki kodu kullanın....

Sub Test()
    Dim HTTP As Object, HTML As HTMLDocument, URL As String
    
    URL = "https://www.shopier.com/ShowProductNew/products.php?id=17667778"

    Set HTTP = CreateObject("MSXML2.XMLHTTP")
    Set HTML = New HTMLDocument
    
    HTTP.Open "GET", URL, False
    HTTP.send
    
    HTML.body.innerHTML = HTTP.ResponseText
    Set myImg = HTML.getElementsByClassName("product__thumb js-product-thumb")(0).getElementsByTagName("img")(0)
    
    Range("A1") = myImg.getAttribute("data-src")
    
    Set HTML = Nothing
    Set HTTP = Nothing
End Sub

.

 

[kisacaberk]

Öncelikle, VBA editöründe Tools>References bölümünden Microsoft HTML Object Library referansını ilave edin.



Daha sonra, aşağıdaki kodu kullanın....

Sub Test()
    Dim HTTP As Object, HTML As HTMLDocument, URL As String
   
    URL = "https://www.shopier.com/ShowProductNew/products.php?id=17667778"

    Set HTTP = CreateObject("MSXML2.XMLHTTP")
    Set HTML = New HTMLDocument
   
    HTTP.Open "GET", URL, False
    HTTP.send
   
    HTML.body.innerHTML = HTTP.ResponseText
    Set myImg = HTML.getElementsByClassName("product__thumb js-product-thumb")(0).getElementsByTagName("img")(0)
   
    Range("A1") = myImg.getAttribute("data-src")
   
    Set HTML = Nothing
    Set HTTP = Nothing
End Sub

.

Allah razı olsun hocam tam istediğim gibi oldu