bu da @feraz hocamınkinden biraz farklı bir yöntem, sadece arşivde bulunsun istedim, ama verileri alırken türü metinmiş gibi alıyor, yeşil üçgenler kaplıyor ortalığı)

Sub VeriAl()

    

    Dim con As ADODB.Connection

    Set con = New ADODB.Connection

    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes;"""

    

    yol = ThisWorkbook.Path & Application.PathSeparator

    yol2 = Dir(yol & "*xlsx")

    

    txtAlan = "[0], [SİCİL], [Rütbesi], [KODU], [Adı SOYADI], [TELEFON], [BİRİM], [CİNSİYET], [DİĞER], [PAZARTESİ], [SALI], [ÇARŞAMBA], [PERŞEMBE], [CUMA], [CUMARTESİ], [PAZAR], [AÇIKLAMA]"

        

        With ThisWorkbook.Sheets("TümVeri")

        .Range("A2:Q" & Rows.Count).Clear

        Do Until yol2 = ""

             txtSql = "INSERT INTO  [TümVeri$] (" & txtAlan & ") " & _

                      "SELECT  " & txtAlan & " " & _

                      "FROM [MEMURLAR$] IN '" & yol & yol2 & "'[EXCEL 8.0;] " & _

                      "where ([SİCİL] Is Not Null);"

             con.Execute txtSql

        

        yol2 = Dir

        Loop

    End With



    con.Close: Set con = Nothing



    MsgBox "Bitti", vbInformation, "Bilgi"

End Sub