web sitesinden veri çekme

[chakistes]

merhaba arkadaşlar web sitesinden tablo olarak excele verileri indiriyorum fakat sitedeki orjinal renginde td değerine göre eklenmesini istiyorum

sitedeki değerler
<td align="center" style="color:Green;font-weight:bold;">1</td>
background-color:#FFDCDC;
style="background-color:#FFDCDC;"
style="color:Blue;font-weight:bold;"
td align="center"style=color:


kullandığım kod

Dim başlangıç As Integer
başlangıç = 2


DoEvents
For i = 0 To 100

Sheets("sayfa2").Range("a" & (başlangıç)).Value = UserForm1.WebBrowser1.Document.getElementById("Table666").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(1).innerText
Sheets("sayfa2").Range("b" & (başlangıç)).Value = UserForm1.WebBrowser1.Document.getElementById("Table666").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(2).innerText

DoEvents
başlangıç = Sheets("sayfa2").Cells(Rows.Count, 1).End(xlUp).Row + 1
DoEvents

 

[chakistes]

merhaba arkadaşlar daha önce açmış olduğum sıkıntı devam etmektedir. web sitesindeki renk kodu ektedir