Webden (internetten) Bilgi Alma

[dragon44760]

Herkese kolay gelsin.

Sn.Haluk beyin "http://www.excel.web.tr" adresine şifrelerin girdirilmesi olayında kullanmış olduğu kodları kullanarak baya bir yol katettim. Lakin web sayfasının kod kaynağını görüntülediğimde veri almam gereken kısımların id'si "f1:txtAdisoyadi" olduğundan ve bunları kod içersinde kullandığımda VBA bunları yani ":" farklı algılayıp istediğim sonucu vermiyor.

Örneğin şuanda aşağıdaki kodlar bilgi alabilmekteyim.

Set HTML_Body = IE.document.GetElementsByTagName("Body").Item(0)
Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
Set MyTable = HTML_Tables(1)
Set HTML_bottom = HTML_Body.GetElementsByTagName("bottom")

Sheets("Atama İşlemleri").Cells(ActiveCell.Row, 15).Value = HTML_Body.all.[COLOR="red"]etkIstTtr[/COLOR].innerHTML
Sheets("Atama İşlemleri").Cells(ActiveCell.Row, 33).Value = HTML_Body.all.[COLOR="Red"]etkBrlAdi[/COLOR].Value

Kırmızıyla işaretlediğim yerlere bilgi almak istediğim sayfanın kod bölümündeki ilgili tanımlamarı yaptığımda işe yaramıyor.

Bilgi almak istediğim bölümün kod kaynağı aşağıda. Kod kaynağındaki bölümleri nasıl ifade etmeliyim ki verileri çekebileyim.

<td colspan="3"><span id="[COLOR="red"]f1:txtAdisoyadi[/COLOR]" style="font-family: Arial; font-size: 9pt">Ali  YILMAZ</span></td>
<span id="[COLOR="red"]f1:txtGrvbsltrh[/COLOR]" style="font-family: Arial; font-size: 9pt">14/05/2008</span></td>

 

[dragon44760]

Arkadaşlar yok mu derdime derman olacak_?