Belirli bir internet sayfasının Bir kısmındaki veriyi almak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
28 Tem 2022
Mesajlar
4
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,
Şirketimizin internet sayfasında müşteri profillerine girdiğimde sağ köşedeki telefon kısmının excel sayfasına gelmesini istiyorum.

Şirket bilgileri gizli bu yüzden paylaşamıyorum bana en yakın s,ite içeriği sahibinden.com bu yüzden örnek olarak bu siteleri vereceğim.

Örneğin,
Manisa 2.El Arabalar ve Satılık Sıfır Km Otomobil Fiyatları sahibinden.com'da

sayfasında bir profile tıkladığımda sağ köşedeki telefon excel sayfasına gelsin.

Sayfa sabit ama bir profile tıkladığımızda profillerin html kodları her profil için değişiyor bu yüzden kodu yazamadım. Ben yazdığımda numara excel sayfasına geliyor ama sadece o profil için geliyor =)

Sarı işaretli alan gibi.

Ekli dosyayı görüntüle 1933
 

Ekli dosyalar

  • Ekran Alıntısı.webp
    Ekran Alıntısı.webp
    46.6 KB · Görüntüleme: 91
<span class="pretty-phone-part show-part">0 (537) 820 00 XX</span>

örneğin Bu etiket arasındaki numarayı almak istiyorum. umaraım anlatabilmişimdir
 
C++:
Sub Web_XmlHttp()

Set xmlHTTPReq = CreateObject("MSXML2.XMLHTTP")
Set htmldoc = CreateObject("htmlFile")

    postURL = "https://www.sahibinden.com/ilan/vasita-otomobil-mercedes-benz-bebekler-bebegi-satilik-degisen-sadece-seneler-711662459/detay"
    With xmlHTTPReq
        .Open "GET", postURL, False
        .Send
    End With

    With htmldoc
        .body.innerHTML = xmlHTTPReq.responseText
    End With

Set idi = htmldoc.getElementById("phoneInfoPart")
MsgBox idi.getElementsByTagName("span")(0).innerText

End Sub
 
C++:
Sub Web_XmlHttp()

Set xmlHTTPReq = CreateObject("MSXML2.XMLHTTP")
Set htmldoc = CreateObject("htmlFile")

    postURL = "https://www.sahibinden.com/ilan/vasita-otomobil-mercedes-benz-bebekler-bebegi-satilik-degisen-sadece-seneler-711662459/detay"
    With xmlHTTPReq
        .Open "GET", postURL, False
        .Send
    End With

    With htmldoc
        .body.innerHTML = xmlHTTPReq.responseText
    End With

Set idi = htmldoc.getElementById("phoneInfoPart")
MsgBox idi.getElementsByTagName("span")(0).innerText

End Sub
 
Hocam çok güzel çalışıyor. tek eksiği benim o an chorome ekranındaki açık sayfada olan numarayı alması lazım. Yani değişken html. Ve hücreye yapıştırırsa süper olur
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt