Sınav Değerlendirmesi

[vasifokur]

Öncelikle herkese iyi akşamlar. Okulumuzda sınıflar arasındaki başarıyı daha iyi analiz edebilmek için bir çalışma yapmak istiyorum. er şube öğretmeni kendi sınıfına ait sınav değerlendirmesi yapıyor. Ben bu değerlendirmeleri bir araya toplamak istiyorum. Üç sınıfın verileri bana verildiğinde bu verileri aynı sayfada nasıl toplayabiliriz ? Örnek dosyaları ekliyorum. Tardımcı olmak isteyenler şimdiden sonsuz teşekkürlerimi sunarım.

 

[Mehmet Şahin]

Merhaba,
Ekteki dosyayı inceleyiniz. Çoklu dosya seçebilirsiniz. İyi geceler.

 

[vasifokur]

Sn Dentex , gönderdiğiniz dosyayı biraz önce açtım. Hata verdi. Tekrar bakmanızı rica etsem...

 

[Mehmet Şahin]

Merhaba,
hata mesajını ekleyebilirmisiniz?

 

[vasifokur]

Dim exc_conn As String
Dim dosya_ac As Variant
Dim yol As String
Private Sub not_al()
Dim sh As Worksheet, s, son As Long
Dim rs As Object
Set rs = New ADODB.Recordset
Set sh = ThisWorkbook.Sheets("Sayfa1")
son = sh.[a65536].End(3).Row
dosya_ac = Application.GetOpenFilename _
(FileFilter:="Text Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Lütfen Dosya Seçin!")

If TypeName(dosya_ac) = "Boolean" Then
MsgBox "Dosya Seçimi yapılmadı!"
Exit Sub
End If
Application.ScreenUpdating = False
sh.Range("a2:d" & son + 1).ClearContents
sat = 2

sat = 2 kısmında hata veriyor ve şöyle bir uyarı çıkıyor

compile error
can't find projed or library

 

[Mehmet Şahin]

Merhaba,
2 no'lu mesajdaki dosyayı güncelleyip, gereksiz referansları çıkardım. Tekrar denermisiniz.

 

[vasifokur]

Sayın Dentex, öncelikle yardımlarınız için çok teşekkür ederim. Dosya istediğim gibi olmuş. Ellerinize sağlık

 

[Mehmet Şahin]

Merhaba,
üç dosyayı birlikte seçebilirsiniz. Hepsini alt alta alacaktır. Yok yinede ayrı zamanlarda sorgulayıp öncekileri silmesin derseniz, not_al prosedürünü aşağıdaki şekilde değiştirerek deneyiniz. Kolay gelsin.

Private Sub not_al()
Dim sh As Worksheet, s, son As Long
Dim rs As Object
Set rs = New ADODB.Recordset
Set sh = ThisWorkbook.Sheets("Sayfa1")
    dosya_ac = Application.GetOpenFilename _
      (FileFilter:="Text Files (*.xls), *.xls", _
      MultiSelect:=True, Title:="Lütfen Dosya Seçin!")

    If TypeName(dosya_ac) = "Boolean" Then
        MsgBox "Dosya Seçimi yapılmadı!"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    sat = sh.[a65536].End(3).Row + 1
    For wbk = LBound(dosya_ac) To UBound(dosya_ac)
         Set conn = econn(dosya_ac(wbk))
         conn.CursorLocation = adUseClient
            sqlStr = "select * from [Sayfa1$]"
            rs.Open sqlStr, conn, 1, 1
            If rs.EOF = True Then GoTo sn
                Do While Not rs.EOF
                  For j = 1 To 4
                    sh.Cells(sat, j) = rs.Fields.Item(j - 1).Value
                  Next j
                sat = sat + 1
                rs.MoveNext
                Loop
                rs.Close: conn.Close
sn:
    Next wbk
    Application.ScreenUpdating = True
Set rs = Nothing: Set conn = Nothing
Set sh = Nothing
Erase dosya_ac
End Sub