webden excele yazdırma

[Kusta]

Arkadaşlar internetten bağlandığım bir sayfadan excele veri çekmek istiyorum. tablo içerisinde yazanlar ve ID'si olanları çekip excele aktarabiliyorum fakat aşağıdaki kodda yer alan "Kalan Devamsızlığı:14" yazan kısmı excele aktaramıyorum. yardımcı olabilirmisiniz.

<div id="ctl03_pnTTTCalisanDevamTakipIslemleri">==$0


<div class="row-fluid">

::before

<div class="span7">

<strong class="text-info">Katılımcının;</strong><br>

<p>

<strong class="text-error">Kalan Devamsızlığı: 14</strong>

 

[veyselemre]

Arkadaşlar internetten bağlandığım bir sayfadan excele veri çekmek istiyorum. tablo içerisinde yazanlar ve ID'si olanları çekip excele aktarabiliyorum fakat aşağıdaki kodda yer alan "Kalan Devamsızlığı:14" yazan kısmı excele aktaramıyorum. yardımcı olabilirmisiniz.

Verdiğiniz bilgilerle en fazla bu kadar yardımcı olunabilir. Hangi yöntemle alıyor sunuz? Hangi siteden alıyor sunuz? Kodlarınız nerde?

 

[Kusta]

Verdiğiniz bilgilerle en fazla bu kadar yardımcı olunabilir. Hangi yöntemle alıyor sunuz? Hangi siteden alıyor sunuz? Kodlarınız nerde?

Ekli dosyayı görüntüle 222791

Kullandığım kod aşağıdaki şekilde ama tabloda olmadığı için mi çekemiyorum anlayamadım. siteye siz giremezsiniz malesef portal üzerinden bağlanıyoruz. Kırmızı ile yazdığım yerde sıkıntı var. Oraya ne yazmam gerekir. Şimdiden teşekkür ederim.

Sub Arama()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
Application.Wait Now + TimeValue("00:00:01")
ie.Navigate "https://portalint.kurum.local/Ttt/TttListe.aspx"
Application.Wait Now + TimeValue("00:00:01")
ie.Width = 1500
ie.Height = 1000
ie.Visible = True
While ie.Busy
DoEvents
Wend
ie.document.getElementById("ctl04_ctlAraTttKayitNo").Value = Range("P1")
ie.Visible = True
While ie.Busy
DoEvents
Wend
Set TrackID = ie.document.getElementById("ctl04_ctlCommandTttKayit_CommandItem_Search")
ie.document.getElementById("ctl04_ctlCommandTttKayit_CommandItem_Search").Click
ie.Visible = True
While ie.Busy
DoEvents
Wend
Set TrackID = ie.document.getElementById("ctl04_grvTttListe_ctl02_lnbSec")
ie.document.getElementById("ctl04_grvTttListe_ctl02_lnbSec").Click
ie.Visible = True
While ie.Busy
DoEvents
Wend
Set TrackID = ie.document.getElementById("ctl04_ctlCommandTttKayit_CommandItem_DevamTakipIslemleri")
ie.document.getElementById("ctl04_ctlCommandTttKayit_CommandItem_DevamTakipIslemleri").Click
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") = "veri gir"
Else
ie.document.getElementById("ctl04_ctlTcKimlikNo").Value = Cells(i, "A")
ie.Visible = True
While ie.Busy
DoEvents
Wend
Set TrackID = ie.document.getElementById("ctl04_ctlCommandTttCalisanListe_CommandItem_Search")
ie.document.getElementById("ctl04_ctlCommandTttCalisanListe_CommandItem_Search").Click
ie.Visible = True
While ie.Busy
DoEvents
Wend
Set TrackID = ie.document.getElementById("ctl04_grvTttCalisanDevamListe_ctl02_lnbSec")
ie.document.getElementById("ctl04_grvTttCalisanDevamListe_ctl02_lnbSec").Click
ie.Visible = True
While ie.Busy
DoEvents
Wend
Set TrackID = ie.document.getElementById("ctl04_ctlCommandTttCalisanListe_CommandItem_Listele")
ie.document.getElementById("ctl04_ctlCommandTttCalisanListe_CommandItem_Listele").Click
ie.Visible = True
While ie.Busy
DoEvents
Wend

Dim y As Long, z As Long, wb As Excel.Workbook, ws As Excel.Worksheet
Set wb = Excel.ActiveWorkbook
Set ws = wb.ActiveSheet
y = 2 'Column A in Excel
z = 1 'Row 1 in Excel
Do While ie.Busy: DoEvents: Loop
Do While ie.ReadyState <> 4: DoEvents: Loop
Set doc = ie.document
Set hTable = doc.GetElementsByTagName("table")
Set tb = hTable(3)
Set hBody = tb.GetElementsByTagName("tbody")
For Each bb In hBody
Set hTR = bb.GetElementsByTagName("tr")
For Each tr In hTR
Set hTD = tr.GetElementsByTagName("td")
y = 2 ' Resets back to column A
For Each td In hTD
ws.Cells(i, y).Value = td.innertext
y = y + 1
Next td
DoEvents
z = z + 1
Next tr
Next bb
End If
Next
ie.Quit
MsgBox "İŞLEM TAMAMLANMIŞTIR."
End Sub