toplu internetten veri alma

[xemdarx]

selamlar,
okul olarak lgs sonuclarını toplu almak isityor

Sub baslat()
    On Error Resume Next
    Set ie = New InternetExplorer
    ie.Visible = True
    If Range("A65536").End(xlUp).Row >= 3 And Range("B65536").End(xlUp).Row >= 3 Then  'Herhangi bir TC ve doğum tarihi değeri girilmişse devam edilecek
        
        For a = 3 To Range("A65536").End(xlUp).Row  'Girilen TC no adedi kadar for döngüsü (TC no değerleri 3. satırdan itibaren yazılıyor. Bu nedenle döngü 3 den başlıyor)
            
            If Cells(a, 1).Value > 0 And Cells(a, 2).Value > 0 Then 'TC ve doğum tarihi birlikte doluysa devam et.
                
                ie.navigate "http://sonuc.meb.gov.tr/"
                Do While ie.Busy Or ie.readyState <> 4: DoEvents: Loop
                ie.document.getElementById("TCNO").Value = Cells(a, 1).Value
                ie.document.getElementById("TCNO").FireEvent "onchange"
                ie.document.getElementById("GUN").Value = Format(Cells(a, 2).Value, "dd")
                ie.document.getElementById("AY").Value = Format(Cells(a, 2).Value, "mm")
                ie.document.getElementById("YIL").Value = Format(Cells(a, 2).Value, "yyyy")
                ie.document.getElementsName("Submit")(0).Click
                Do While ie.Busy Or ie.readyState <> 4: DoEvents: Loop
                Cells(a, 3).Value = ie.document.getElementsByTagName("table")(0).Children(0).Children(1).Children(1).innerText
                Cells(a, 3).Value = Cells(a, 3).Value & " " & ie.document.getElementsByTagName("table")(0).Children(0).Children(2).Children(1).innerText
                puan() = Split(ie.document.getElementsByTagName("table")(1).Children(0).Children(0).Children(1).innerText, ",")
                Cells(a, 4).Value = puan(0) & "," & puan(1)
                Cells(a, 5).Value = ie.document.getElementsByTagName("table")(1).Children(0).Children(1).Children(1).innerText
                Cells(a, 6).Value = ie.document.getElementsByTagName("table")(1).Children(0).Children(2).Children(1).innerText
                Cells(a, 7).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(1).Children(1).innerText
                Cells(a, 8).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(1).Children(2).innerText
                Cells(a, 9).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(1).Children(3).innerText
                Cells(a, 10).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(2).Children(1).innerText
                Cells(a, 11).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(2).Children(2).innerText
                Cells(a, 12).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(2).Children(3).innerText
                Cells(a, 13).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(3).Children(1).innerText
                Cells(a, 14).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(3).Children(2).innerText
                Cells(a, 15).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(3).Children(3).innerText
                Cells(a, 16).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(4).Children(1).innerText
                Cells(a, 17).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(4).Children(2).innerText
                Cells(a, 18).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(4).Children(3).innerText
                Cells(a, 19).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(5).Children(1).innerText
                Cells(a, 20).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(5).Children(2).innerText
                Cells(a, 21).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(5).Children(3).innerText
                Cells(a, 22).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(6).Children(1).innerText
                Cells(a, 23).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(6).Children(2).innerText
                Cells(a, 24).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(6).Children(3).innerText
            Else
                Cells(a, 3).Value = "EKSİK GİRİŞ"
            End If
        Next
    Else
        MsgBox "En az bir adet TC ve doğum tarihi değeri girmelisiniz."
        Exit Sub
    End If

uz. geçen sene kullandığımız bu kodu bu sene çalıştıramadık. yardımlarınızı rica ediyoruz.

 

[Erdem Akdemir]

Örnek TC ve doğum tarihi gerekli.

 

[Erdem Akdemir]

Aşağıdaki düzeltmeyi yapınca TAMAM tuşuna basacaktır.

ie.document.getElementsByName("Submit")(0).Click