http://www.flashscore.com/match/I7JkNVHe...;full-time
bu lınkın verilerini makro ile excele almak istiyorum. Yardımcı olursanız sevinirim.

sayın siyahhayis,

Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,
lütfen örnek uygulamanızı ekleyiniz.

son olarak,
bir fikir vermesi amacı ile daha önceden mevcut olan aşağıda bağlantısı yazılı konuyu da inceleyebilirsiniz.

Webten Veri Alma

bilginize...iyi çalışmalar,saygılar.

ÖRNEK ÇALIŞMA DOSYAM AŞAĞIDA. FAKAT HEP Dim IE As New InternetExplorer HATASI VERIYOR. BEN GOOGLE CHROME KULLANIYORUM AMA BUNUNLA DA İLGİLİ DEĞİL SANIRIM. İE DENDE AÇTIM OLMADI.
ADRESTE RENK ILE ISARETLI BOLUM ÖZEL DEGERLER. BU HER MAÇ ICIN DEGISIYOR. BUNU BEN BULABILIYORUM.
Sub Test()

Dim URL As String
Dim IE As New InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim dictObj As Object: Set dictObj = CreateObject("Scripting.Dictionary")
Dim tRowID As String

URL = "http://www.flashscore.com/match/02yaghdh/#odds-comparison;ht-ft;full-time"

With IE
.Navigate URL
.Visible = True
Do Until .ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set HTMLdoc = .Document
End With

With HTMLdoc
'Target the set of tables.
Set tblSet = .getElementById("fs-results")
'Index starts at 0. World Cup Playoffs is (0), World Cup is (1),
'Qualifiers is (2), etc... Targeting tbody right away, as there is
'only one (1) tbody tag per row anyway.
Set mTbl = tblSet.getElementsByTagName("tbody")(1)
Set tRows = mTbl.getElementsByTagName("tr")
With dictObj
'If if value is not yet in dictionary, store it.
For Each tRow In tRows
'Remove the first four (4) characters.
tRowID = Mid(tRow.getAttribute("id"), 5)
If Not .Exists(tRowID) Then
.Add tRowID, Empty
End If
Next tRow
End With
End With

'Print out each of the ID values.
For Each Key In dictObj
Debug.Print Key
Next Key

Set IE = Nothing

End Sub

FORMULUN IÇINDE INGILIZCE AÇIKLAMALARIDA MEVCUTTUR. SILMEDIM. SIMDIDEN TEŞEKKUR EDERIM.

sayın siyahhayis,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.

son olarak;
lütfen örnek uygulamanızı ekleyiniz.

bilginize...iyi çalışmalar,saygılar.