Yardım Kapalı dosyadan veri alma

Sub Osma_Rapor()
    Dim con As Object, rs As Object, s As String, i As Integer
    Set con = CreateObject("adodb.connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
    s = "Select * From [Page 1$A:L]"
    Set rs = CreateObject("adodb.recordset")
    rs.Open s, con, 1, 1
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1) = rs.Fields(i).Name
    Next i
    If rs.RecordCount > 0 Then Range("A2").CopyFromRecordset rs
    con.Close
    Set con = Nothing: Set rs = Nothing: s = vbNullString
End Sub