Facebook tan ilgili tagları okutma

[cellswhite]

Merhabalar,

Dilim donduğunce sıkıntımı aktarmaya çalışacagım,Aşağıdaki kod ile Facebbok üzerinden Turkcell sayfasının beyeni ziyaret vs bilgisini içeren texti
Bunun yanında da "Turkcell'de Başkalarının Yakınlardaki Gönderileri Tümünü Gör" ifadesi altında görünen 4-5 satırlık alanı yazan ve metnin dokumunu yapmaya çalışıyorum . bu konuda eksiklerimi gidermemde yardımcı olabilirmisiniz.

İyi çalışmalar,

Aşağıdaki koddaki comment lerin oraya ne yazabiliriz,

Sub MARKASORGULA()
On Error Resume Next
Dim IE As Object
Dim aranan
Sheets("MARKA").Select
    Set IE = CreateObject("InternetExplorer.Application")
       With IE
    .Width = 1000
    .Height = 700
    .Left = 500
    .Navigate "https://www.facebook.com/Turkcell?fref=ts"
    .Visible = True
        Do Until .readystate = 4: DoEvents: Loop
        With .document.all
                         For i = 1 To IE.document.all.Length
'' Ornek Facebook içeriğinde Turkcell Markasına Bağlanıp
'' 3.060.457 kişi beğendi · 17.014 kişi hakkında konuşuyor · 3.566 kişi buradaydı örnek aşağıdaki gibi

'' Bunun yanında "Turkcell'de Başkalarının Yakınlardaki GönderileriTümünü Gör." ifadesi altındaki 4-5 adet mesajı
'' bu dokumleri yapmak istiyorum

'' ama kaçıncı item kaçıncı innertext bulamıyorum sayfanın tamammını almakta işimi zorlaştırıyor isteğim formatta gelmiyor.

''' Buralara eksikleri giderek kodları yazabilirmiyiz

'' Teşekkurler

                            Next i

            Do While IE.busy: DoEvents: Loop
            Do While Not IE.readystate = 4: DoEvents: Loop
        Application.Wait Now + TimeValue("00:00:01")
        End With
    .Quit
    End With
    Set IE = Nothing
End Sub

 

[cellswhite]

Selamlar,
Bu konuya bakma fırsatı olan arkadaşlar oldumu? Destek verebilmeniz mümkünmüdür.