- Katılım
- 28 Şubat 2019
- Mesajlar
- 6
- Excel Vers. ve Dili
- Excel 2016, Turkce ve İngilizce karisik
Merhabalar herkese,
Şöyle bir şey yapmak istedim, girilen kullanıcı adının instagram hesabına gidip, oradaki takipçi sayısını class name'den çektirmekti amacım.
Fakat
Runtime error "91":
Object variable or With block variable not set
hatasını alıyorum.
Sanırım html incele yapıp aldığım class name veya span class name kısımlarında problem yaşıyorum hatayı anlayamadım. Renklendirdiğim satırda hata alıyorum. (örnekteki class name o an denediğim bir classname idi, 1-2 tane daha farklı classname den bilgi çekmeye çalıştım ama hep aynı hatayı aldım.)
Destek rica ederim.
Yazdıgım vba kodu aşağıdadır:
Private Sub CommandButton1_Click()
kadi = Range("B1")
Dim ie As New InternetExplorer
ie.Visible = False
ie.navigate "instagram.com/" & kadi
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument
Set doc = ie.document
takipci = doc.getElementsByClassName("rhpdm")(0).innerText
Range("B2") = takipci
End Sub
Şöyle bir şey yapmak istedim, girilen kullanıcı adının instagram hesabına gidip, oradaki takipçi sayısını class name'den çektirmekti amacım.
Fakat
Runtime error "91":
Object variable or With block variable not set
hatasını alıyorum.
Sanırım html incele yapıp aldığım class name veya span class name kısımlarında problem yaşıyorum hatayı anlayamadım. Renklendirdiğim satırda hata alıyorum. (örnekteki class name o an denediğim bir classname idi, 1-2 tane daha farklı classname den bilgi çekmeye çalıştım ama hep aynı hatayı aldım.)
Destek rica ederim.
Yazdıgım vba kodu aşağıdadır:
Private Sub CommandButton1_Click()
kadi = Range("B1")
Dim ie As New InternetExplorer
ie.Visible = False
ie.navigate "instagram.com/" & kadi
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument
Set doc = ie.document
takipci = doc.getElementsByClassName("rhpdm")(0).innerText
Range("B2") = takipci
End Sub