Excel IMDB veri çekme

[yunusrc]

Merhabalar,
Excel üzerinde izleyip beğendiğim ya da izleyeceğim filmleri bir tablo haline getirmeyi düşünüyorum.
Bununla ilgili forumda şöyle bir konu buldum; https://www.excel.web.tr/threads/imdbden-veri-cekme.181171/
İşimi gördü, fakat benim excel tablomda: Konu, Süre ve Yapımcı Ülke de olduğu için biraz eksik kaldı. Örnek verecek olursak tablom şu şekilde;

Bahsi geçen konudaki kod şu şekildeydi, bunu benim tabloma göre revize edebilirseniz çok sevinirim. Ve son not olarak aşağıdaki makro türkçe adı kısmını otomatik doldurmuyor.

Sub Web_XmlHttp()
 

    Dim xmlHTTPReq As Object
    Dim htmldoc As HTMLDocument
    Dim postURL As String

    Set xmlHTTPReq = CreateObject("MSXML2.XMLHTTP")
    Set htmldoc = New HTMLDocument
    For a = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        postURL = "https://www.imdb.com/title/" & Cells(a, 1) & "/"
   
        With xmlHTTPReq
            .Open "GET", postURL, False
            .Send
        End With
   
        htmldoc.body.innerHTML = xmlHTTPReq.responseText
        htmldoc.Close
       
    adi = htmldoc.getElementsByTagName("h1")(0).innerText
    Cells(a, 2) = Left(adi, Len(adi) - 8)
    Cells(a, 4) = Replace(Right(adi, 6), ")", "")
    ratin = htmldoc.getElementsByClassName("ratingValue")(0).innerText
    Cells(a, 5) = Left(ratin, Len(ratin) - 4)
    Cells(a, 6) = htmldoc.getElementsByTagName("time")(0).innerText
    Set direct = htmldoc.getElementsByClassName("credit_summary_item")(0)
    Cells(a, 7) = direct.getElementsByTagName("a")(0).innerText
Next
    Set htmldoc = Nothing
    Set xmlHTTPReq = Nothing
    MsgBox "   İşlem tamam", vbInformation + vbMsgBoxRtlReading, "Tamamlandı -  Feyzullah"
End Sub

 

[yunusrc]

Güncel.