Sn. Ripek'in şu başlıktaki dosyasını benim işyerindeki bilgisayarımda çalışmadığından SSK'nın sitesine işyeri kodu ve şifresi ile giriş yaptıktan sonra çalışan bu adresteki sorgulama ekranına uyarlamaya çalıştım. Dosya kendiliğinden sorgulama sayfasına gidip, veriyi girip sonuç sayfasını getiriyor ancak gelen verileri parse edip excel' e getirtemedim. Bu başlıktaki yine sn. Ripek'in dediği şeyi yaparak ekte verdiğim sayfada verilerin olduğu tabloyu 4. olarak saydım ama denemelerim sonuçsuz kaldı. Aşağıda verdiğim makroyu nasıl değiştirmem gerekiyor?
Sağolun..
Sağolun..
Kod:
Set HTML_Body = IE.document.body
Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
Set MyTable = HTML_Tables(0)
Range("b5") = MyTable.Rows(0).Cells(0).InnerText
Range("c5") = MyTable.Rows(0).Cells(1).InnerText
Range("d5") = MyTable.Rows(0).Cells(2).InnerText
Range("e5") = MyTable.Rows(0).Cells(3).InnerText
Range("f5") = MyTable.Rows(0).Cells(4).InnerText
Range("b4") = MyTable.Rows(1).Cells(0).InnerText
Range("c4") = MyTable.Rows(1).Cells(1).InnerText
Range("d4") = MyTable.Rows(1).Cells(2).InnerText
Range("e4") = MyTable.Rows(1).Cells(3).InnerText
Range("f4") = MyTable.Rows (1).Cells(4).InnerText