lgs sonuç getir...

[pisagor26]

Geçen yıl yapılmış olan lgs sonuçlarını getirme programı bu sene tarih formatındaki değişiklikten dolayı çalışmıyor...Düzenleyebilir miyiz...Teşekkür ediyorum...

 

[halit3]

ie.document.getElementById("DOGUMTARIHI").Value = Format(Cells(a, 2).Value, "dd") & "." & Format(Cells(a, 2).Value, "mm") & "." & Format(Cells(a, 2).Value, "yyyy") 'Tarih textbox'a giriliyor

yukarıdaki bölümü silin onun yerine bunu ekleyiniz.

For t = 1 To ie.document.all("GUN").Length - 1
If ie.document.all.GUN(t).Text = Format(Cells(a, 2).Value, "dd") Then
ie.document.all("GUN").Focus
ie.document.all("GUN").selectedIndex = t
ie.document.all("GUN").onchange
Do Until ie.readyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Exit For
End If
Next t


For t = 1 To ie.document.all("AY").Length - 1
If ie.document.all.AY(t).Text = Format(Cells(a, 2).Value, "mm") Then
ie.document.all("AY").Focus
ie.document.all("AY").selectedIndex = t
ie.document.all("AY").onchange
Do Until ie.readyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Exit For
End If
Next t
For t = 1 To ie.document.all("YIL").Length - 1
If ie.document.all.YIL(t).Text = Format(Cells(a, 2).Value, "yyyy") Then
ie.document.all("YIL").Focus
ie.document.all("YIL").selectedIndex = t
ie.document.all("YIL").onchange
Do Until ie.readyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Exit For
End If
Next t

 

[pisagor26]

Çok teşekkür ettim...Elinize sağlık ...Giriş yapabiliyorum...fakat öğrenci ismi, puanı yüzdelik dilimlerini alabilirken ders bazında sınav sonuç bilgilerini alamıyorum...

 

[ÖmerBey]

Merhaba,
Sayın hocam internet sorgusuyla falan uğraşmayın bence, yönetici hesabından e-okul sınav işlemleri menüsünün raporlar kısmından toplu liste indirebilirsiniz.
Dilediğiniz verileri formülle ya da makroyla başka bir çalışma kitabına aldırabilirsiniz.
İyi çalışmalar...

 

[kayserciyes]

Valla harika olmuş
Yalnız Ders doğru yanlış ve sıralama bilgilerini de eklerseniz cidden büyük bir hizmet yapmış olacaksınız

 

[kayserciyes]

Merhaba,
Sayın hocam internet sorgusuyla falan uğraşmayın bence, yönetici hesabından e-okul sınav işlemleri menüsünün raporlar kısmından toplu liste indirebilirsiniz.
Dilediğiniz verileri formülle ya da makroyla başka bir çalışma kitabına aldırabilirsiniz.
İyi çalışmalar...

'Hocam Toplu Rapor bulunmuyor orada da yine TC ile tek tek giriliyor
ama siz derseniz ki "bu makroyu ben oraya uygular oradan alırım" daha iyi olur

ama Halit hocam en azından şu ders verilerini alma kısmını düzenlerse güzel olur

 

[ÖmerBey]

Hocam Toplu Rapor bulunmuyor orada da yine TC ile tek tek giriliyor

Tc'yi boş geçip tamama basarsanız görürsünüz.

 

[kayserciyes]

Tc'yi boş geçip tamama basarsanız görürsünüz.

Hemen deneyeceğim

 

[kayserciyes]

Hemen deneyeceğim

Evet oluyor hocam Teşekkür ederim
peki hocam sayfaları liste haline dönüştürmek için bir formül veya kod yazabildiniz mi

 

[halit3]

Çok teşekkür ettim...Elinize sağlık ...Giriş yapabiliyorum...fakat öğrenci ismi, puanı yüzdelik dilimlerini alabilirken ders bazında sınav sonuç bilgilerini alamıyorum...

bu kodu bir dene

Dim puan() As String

Sub baslat()
'On Error Resume Next
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
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"

For t = 1 To ie.document.all("GUN").Length - 1
If ie.document.all.GUN(t).Text = Format(Cells(a, 2).Value, "dd") Then
ie.document.all("GUN").Focus
ie.document.all("GUN").selectedIndex = t
Do Until ie.readyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Exit For
End If
Next t


For s = 1 To ie.document.all("AYI").Length - 1
If ie.document.all.AYI(s).Text = Format(Cells(a, 2).Value, "mm") Then
ie.document.all("AYI").Focus
ie.document.all("AYI").selectedIndex = s
Do Until ie.readyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Exit For
End If
Next s

For t = 1 To ie.document.all("YIL").Length - 1
If ie.document.all.YIL(t).Text = Format(Cells(a, 2).Value, "yyyy") Then
ie.document.all("YIL").Focus
ie.document.all("YIL").selectedIndex = t
Do Until ie.readyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Exit For
End If
Next t

'ie.document.getElementById("DOGUMTARIHI").Value = Format(Cells(a, 2).Value, "dd") & "." & Format(Cells(a, 2).Value, "mm") & "." & Format(Cells(a, 2).Value, "yyyy") 'Tarih textbox'a giriliyor
ie.document.getElementsByName("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

sut = 7
For k = 1 To 6
Cells(a, sut).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(k).Children(1).innerText
Cells(a, sut + 1).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(k).Children(2).innerText
Cells(a, sut + 2).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(k).Children(3).innerText
'Cells(a, sut + 3).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(k).Children(4).innerText
sut = sut + 3
Next k


Else
Cells(a, 3).Value = "EKSİK GİRİŞ"
End If

ie.Quit: Set ie = Nothing
Next
Else
MsgBox "En az bir adet TC ve doğum tarihi değeri girmelisiniz."
Exit Sub
End If
MsgBox "İşlem Bitti" '
End Sub

 

[kayserciyes]

Halit bey teşekkür ederim harika olmuş

 

[kayserciyes]

Halit Hocam Bu konudaki diğer cevaplarınıza da baktım ama uyarlayamadım
Bu işlemin tam tersini sağlamak mümkün mü Kısaca özetleyip dosya ekleyeyim

Excel deki veriyi Web Sayfasına aktarmak yollamak istiyorum 3 bine yakın öğrencim var yoksa tek tek girmek gerekecek
Sayfa ilçe Meb Müdürlüğünün, Kullanıcı adı ve şifre ile giriş yapılıyor
Sınıf, Şube, Adı Soyadı- Puanı ve Yüzdeli dilim 5 ayrı sütundaki bilgiyi oraya aktarıp öğrenci öğrenci kaydetmek istiyorum
Linki bu şekilde
http://sb.melikgazivts.com/istatistik_lgs_yks/form


Resimde kide sitenin yapısı
Excel dosyasını da yüklüyorum
Halit Hocam yardımcı olursanız çok müteşekkir olurum

 

[dedenet]

LGS sonuç getir programının düzeltmelerden sonraki son halini yükleyenilirsiniz.

 

[kayserciyes]

LGS sonuç getir programının düzeltmelerden sonraki son halini yükleyenilirsiniz.

Evet O güzel bir çalışma ama benim dediğim Lgs Sonuçların siteden almak değil
Siteye veri yollamak İlçe Mebin Sayfasına exceldeki verileri girmek istiyorum

 

[dedenet]

Demek istediğim herhalde yanlış anlaşıldı.
"Geçen yıl yapılmış olan lgs sonuçlarını getirme programı bu sene tarih formatındaki değişiklikten dolayı çalışmıyor..." dediğiniz dosyanın düzeltilmiş halini kullanmak istiyorum. onu demek istedim

 

[kayserciyes]

Şimdi yoldayım ofise geçince yollarım

 

[halit3]

şifreli yerlere girme işlemi olmuyor.

 

[kayserciyes]

Üsdat şifresi var ama giriş yaptıktan sonra yinede mi olmuyor

 

[kayserciyes]

Arkadaşlar bu program ile kolay birşekilde binlerce öğrencinin sonucunu saniyeler içinde almıştık.
Malum yarın LGS açıklanacak bu dosya yine çalışıyor mu. Veya güncelleme mi gerekecek
Üsdatlar bir el atarlarsa yarın tüm Türkiye bunu arıyor olacak

 

[kayserciyes]

buna baka bilen kimse yok. mu