IMDB'den veri cekme

[bthn35]

Merhaba,
A2 hücresinde IMDB ID ile Orijinal Adı,Türçe Adı,Yılı ve Puanını çelebilemek istiyorum, mümkün mü?

https://s2.dosya.tc/server10/lgnx5s/Ornek.xlsx.html

 

[metehan8001]

Aşağıda resimde göreceğiz şekilde sadece Türkçe adı hariç yapılmış kodlarınız.

Sub Web_XmlHttp()
    'Not: Excel > VBA > Tools > References > MicrosoftHTML Object Library işaretlemeniz gerekmektedir.

    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

 

[bthn35]

Merhaba,
Aşağıdaki hatayı alıyorum.

 

[Haluk]

Merhaba,
Aşağıdaki hatayı alıyorum.

Kodun başındaki notu okudunuz mu ?

.

 

[bthn35]

Okumadım çünkü bana ait bir not olduğunu bilmiyordum. Teşekkür ederim şimdi çalıştı.

 

[lion71]

merhabalar, tabloya film süresi ve başrol oyuncularını(stars) da ekleyebilir miyiz acaba? örnek dosya ektedir.

ornek-2.xlsx dosyasını indir - download

ornek-2.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[MrExcelMr]

Kodun başındaki notu okudunuz mu ?

.

Haluk Bey müsaitseniz kodları kontrol edebilir misiniz. Verileri almıyor. Kodu paylaşan üye yasaklı görünüyor. Teşekkürler.

 

[Haluk]

4 No'lu mesajımdaki uyarıyı gördünüz mü?

.

 

[MrExcelMr]

4 No'lu mesajımdaki uyarıyı gördünüz mü?

.

Haluk Bey,

Excel > VBA > Tools > References > MicrosoftHTML Object Library işaretli,
Sayfadan herhangi bir bilgi gelmiyor. Msgbox açılıp tamamlandı. Uyarısı veriyor.

 

[Haluk]

Bilemiyorum.... ama bir bakayım.

.

 

[Haluk]

Herhangi bir sorun yok, kodlar çalışıyor...!

Sizin sayfa üzerinde A sütununda veri yoksa, kodun bir şey getirmemesi normal bir durumdur tabii....

.

 

[MrExcelMr]

Pardon Haluk Bey Top50 listesini getiriyor zannettim.

 

[lion71]

Haluk bey, kodlar imdb sayfasının yeni halinden ötürü olsa gerek düzgün çalışmıyor. Kontrol edebilir misiniz acaba?