Linkedinden Veri Çekmek

[baydeniro]

Merhaba Arkadaşlar,

aşağıdaki kodlarla Linkedinden veri çekmeye çalışıyorum. Kodda yazılı olan John Goodall isimli kullanıcının sayfasını açabiliyorum ama veri çekemiyorum.


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = Range("Kelime").Row And _
Target.Column = Range("Kelime").Column Then

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "https://www.linkedin.com/in/john-goodall-50a11527/" & amp, Range("Kelime").Value

Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument
Set doc = IE.document
Dim sDD As String

Sonuc = Trim(doc.getElementsByTagName("h1")(0).innerText)
MsgBox Sonuc

Range("Sonuc1").Value = doc.getElementsByTagName("h1")(0).innerText
Range("Fiyat1").Value = doc.getElementsByClassName("price product-price")(0).innerText

Columns.AutoFit

End If
End Sub

 

[baydeniro]

Örnek dosya linki : http://s8.dosya.tc/server5/l2i0bn/WEBDEN.xls.html

 

[baydeniro]

Merhaba Arkadaşlar,

aşağıdaki kodlarla Linkedinden veri çekmeye çalışıyorum. Kodda yazılı olan John Goodall isimli kullanıcının sayfasını açabiliyorum ama veri çekemiyorum.