Excel'e web'de belirli bir sayfadan kısmi veri çekme

[tropique]

Merhaba,

Bir hücreye girilen veriye göre belirli bir web sayfasının belirli bir kısmından veri getirmek için nasıl bir yol/yöntem izlemeliyiz?

Mesela A2 hücresine girdiğim "9503770" IMO numarası değeri, "

FATIH, Drilling Ship - Gemi detayları ve güncel harita konumu - IMO 9503770 - VesselFinder

FATIH (IMO 9503770, MMSI 271046008) gemisi 2011 yılında inşa edilmiş olan ve halen Turkey bayrağı altında bulunan bir Drilling Ship gemisidir.

www.vesselfinder.com

" adresindeki gemi bilgileri kısmında altta GT (groston) yazan başlığın karşısındaki değeri B2 ye getirmesini istiyorum. Sayfa adresindeki son kısımdaki sayısal ifade excelden gelen bilgiye göre değişken oluyor.

Bu işlem alt alta başka IMO numaraları için de yapılabilmeli. Çok fazla (1000'lerce) satır veri içeren bir tablo var.




Örnek sayfa görseli




Veri menüsünde web'den veri al dediğimde sayfadaki diğer ihtiyacım olmayan bilgileri de getiriyor. Aklıma html kodalrı içinde ilgili kısma erişmek fikri geliyor ama nasıl olacağı konusunu bilemiyorum.

Bu konuda bilgisi, tecribesi olanlar varsa yardımcı olabilir mi?

Teşekkürler. Selam ve saygılarımla.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub kod()
Dim x As Object, h As Object
Dim a As Long

Set x = CreateObject("MSXML2.XMLHTTP")
Set h = CreateObject("HTMLFile")
For a = 2 To Cells(Rows.Count, "A").End(3).Row
    With x
        .Open "GET", "https://www.vesselfinder.com/tr/vessels/details/" & Cells(a, "A"), False
        .Send
    End With
    DoEvents
    h.Body.InnerHtml = x.ResponseText
    Cells(a, "B").Value = h.getElementsByTagName("table")(1).Rows(5).Cells(1).innertext
Next
x.abort
End Sub

 

[tropique]

Çok teşekkür ederim Ömer Bey, elinize sağlık.Allah razı olsun

 

[ÖmerBey]

Rica ederim,
Allah hepimizden razı olsun.
İyi çalışmalar...