- Katılım
- 11 Şubat 2010
- Mesajlar
- 202
- Excel Vers. ve Dili
- 13 türkçe
- Altın Üyelik Bitiş Tarihi
- 21-01-2022
selamlar,
okul olarak lgs sonuclarını toplu almak isityor
uz. geçen sene kullandığımız bu kodu bu sene çalıştıramadık. yardımlarınızı rica ediyoruz.
okul olarak lgs sonuclarını toplu almak isityor
Kod:
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