Emekli Sandığı

[Karanlik1]

Merhabalar,

Haluk beyin (http://www.excel.web.tr/showthread.php?t=17204), emekli sandığı dosyasını "http://www.emekli.gov.tr/BorcGorme" sayfası sorgulamasına da uygulamaya çalıştım fakat sanıyorum ki html gövdesinin parse edilmesi olayını anlayamadığım için yapamadım. Bilen arkadaşlar dosyaya bakıp diğer varsa diğer hatalarımı ve parse olayını biraz olsa da anlatıabilirse çok sevinirim.

Saygılar

 

[Recep İpek]

Kodları aşağıdaki şekilde uyarlayınız.

Const URL As String = "http://www.emekli.gov.tr/BorcGorme"

Sub Test()
    '
    'Emekli Sandigi' ndan sorgulama ....
    '29/06/2006 - Raider ®
    '
    Dim Data(1 To 3) As String
    Dim IE As Object
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
    Dim RetVal As Variant
        
    Data(1) = Range("A1")
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Navigate URL
        Do Until IE.ReadyState = 4: DoEvents: Loop
        With .document.all
            .kullanici.sicil.Value = Data(1)
        End With
        IE.document.Forms(0).Elements("submit").Click
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop
        
        On Error GoTo ErrHandler:
        Set HTML_Body = IE.document.body
        Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
        Set MyTable = HTML_Tables(4)
        
        Range("b1") = MyTable.Rows(2).Cells(0).InnerText
        Range("c1") = MyTable.Rows(2).Cells(1).InnerText
        Range("d1") = MyTable.Rows(2).Cells(2).InnerText
        Range("e1") = MyTable.Rows(2).Cells(3).InnerText
        Range("f1") = MyTable.Rows(2).Cells(4).InnerText
        
        Range("b2") = MyTable.Rows(3).Cells(0).InnerText
        Range("c2") = MyTable.Rows(3).Cells(1).InnerText
        Range("d2") = MyTable.Rows(3).Cells(2).InnerText
        Range("e2") = MyTable.Rows(3).Cells(3).InnerText
        Range("f2") = MyTable.Rows(3).Cells(4).InnerText
        
        Range("b3") = MyTable.Rows(4).Cells(0).InnerText
        Range("c3") = MyTable.Rows(4).Cells(1).InnerText
        Range("d3") = MyTable.Rows(4).Cells(2).InnerText
        Range("e3") = MyTable.Rows(4).Cells(3).InnerText
        Range("f3") = MyTable.Rows(4).Cells(4).InnerText

        '.......

    End With
    
    GoTo SafeExit:
ErrHandler:
    MsgBox "Bilgi bulunamadi", vbCritical, "Kullanicinin dikkatine..."
SafeExit:
    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing
    Set HTML_TableRows = Nothing
    Set HTML_TableDivisions = Nothing
    Set IE = Nothing
End Sub

 

[schworse]

Bağkur içinde olabilirmi acaba

Arkadaşlar aynı işlem bağkur içinde yapılabilir mi?

teşekkürler kolay gelsin..

 

[Recep İpek]

Sn.Karanlik'ın verdiği linkte bununla ilgili bir çalışma var.

 

[Karanlik1]

Ellerinize sağlık sn. ripek, bide hangi tabloları nasıl bulduğunuzu anlarsam süper olucak

 

[Recep İpek]

İE açık durumunda iken View(Görünüm)>>Source(Kaynak) ekranında ilgili tablo yapısını bulabilirsiniz.