Im Prinzip wird der Quellcode 1x pro Link ausgelesen..
bei 50 FB Links hätten wir 50 mal eine Zykluszeit von 23 sec.
über Call wird die URL aus der Excel Zelle abgerufen. Wenn das ergebnis ausgelesen wurden, wird es in eine andere Zelle eingefügt, fertig.
der Aufbau vom VBA Code ist für YT und FB gleich.
Sub FB_Likes_ermitteln()
Dim accessToken, antwort As String
Dim posLike, posKomma, likesAnzahl As Integer
Dim objHttp As Object
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
Call objHttp.Open("GET", graphURL, False)
' Request senden
Call objHttp.Send
' Antwort auslesen
antwort = objHttp.ResponseText
'Call MsgBox("Antwort von Facebook (JSON): " & antwort)
'Debug.Print antwort
'MsgBox InStr(antwort, "likecountreduced:")
X = UBound(Split(antwort, ">"))
For I = 0 To X - 1
'testen ob die Zahl überhaupt vorkommt
If InStr(1, antwort, "Personen gefällt das", vbTextCompare) = 0 Then Exit Sub
'jetzt die Zahl
Ergebnis = Trim(Split(antwort, "Personen gefällt das")(0))
Ergebnis = CLng(Right(Ergebnis, InStr(1, StrReverse(Ergebnis), ">") - 1))
Next I
End Sub
|