veri çekme

[Kusta]

Selamlar,
Arkadaşlar bizim sistemden sorgulama yapıp sonuca kadar ilerliyorum fakat aşağıdaki koddaki verileri excele aktaramıyorum.. Burada yapmak istediğim “Ad” yazanı “B” sütununa, “Soyad” yazanı “C”, “Baba Adı” “D”, “Anne Adı” “E”, “Doğum Yıl” “F” ye yazsın istiyorum.

Şimdiden teşekkür ederim.



<td rowSpan=”1” colSpan=”1”>
<div>
<table align=”center” class=”Grid” id=”ctl02_ctlDataGrid” style=”WIDTH: 100%; BORDER-COLLAPSE: collapse; COLOR: #333333” cellSpacing=”0” cellPadding=”4”>
<tbody>
<tr align=”left” style=”FONT-WEIGHT: bold; COLOR: white; BACKGROUND-COLOR: #5d7b9d”>
<th rowSpan=”1” colSpan=”1” scope=”col></th>
<th rowSpan=”1” colSpan=”1” scope=”col>T.C. Kimlik No</th>
<th rowSpan=”1” colSpan=”1” scope=”col>Ad</th>
<th rowSpan=”1” colSpan=”1” scope=”col>Soyad</th>
<th rowSpan=”1” colSpan=”1” scope=”col>Baba Adı</th>
<th rowSpan=”1” colSpan=”1” scope=”col>Anne Adı</th>
<th rowSpan=”1” colSpan=”1” scope=”col>Doğum Yıl</th>
</tr>
<tr style=”COLOR: #333333; BACKGROUND-COLOR: #f7f6f3”>
<td rowSpan=”1” colSpan=”1”>…</td>
<td rowSpan=”1” colSpan=”1”>12345678901</td>
<td rowSpan=”1” colSpan=”1”>KADİR</td>
<td rowSpan=”1” colSpan=”1”>GÖRKEM</td>
<td rowSpan=”1” colSpan=”1”>ALİ</td>
<td rowSpan=”1” colSpan=”1”>AYŞE</td>
<td rowSpan=”1” colSpan=”1”>1982</td>
</tr>

 

[Necdet]

Sizin sistem?

 

[Kusta]

Kurumsal bir sayfa. Server dan giriş yapılabiliyor. Siz göremezsiniz diye o şekilde yazdım. Yazdığım kod aşağıda kırmızı olan yerde bir hata var. Verileri excele aktarmıyor. O yüzden yukarıda sıkıntı yaşadığım yerlerin kodlarını sayfadan alarak yazdım. onlar doğrultusunda aşağıdaki kırmızı renkli alana ne yazmam gerektiğini bulamadım.
Yardımcı olursanız sevinirim.
Şimdiden teşekkür ederim.

Sub Arama()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://.................................."
IE.Width = 1500
IE.Height = 1000
IE.Visible = True
While IE.Busy
DoEvents
Wend
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
If Cells(i, "A") = "" Then
Cells(i, "B") = "TC yaz"
Else
IE.document.getElementById("ctl02_ctlCriteriaControl_ctlTCKimlikNo").Value = Cells(i, "A")
IE.Visible = True
While IE.Busy
DoEvents
Wend
Set TrackID = IE.document.getElementById("ctl02_ctlPageCommand_CommandItem_Search")
IE.document.getElementById("ctl02_ctlPageCommand_CommandItem_Search").Click
IE.Visible = True
While IE.Busy
DoEvents
Wend
Cells(i, "B") = IE.document.getElementById("ctl02_ctlDataGrid").Value
Cells(i, "C") = IE.document.getElementById("ctl02_ctlDataGrid").Value
IE.Visible = True
While IE.Busy
DoEvents
Wend
End If
Next
IE.Quit