Sayın berduş hocam giftede gösterdiğim gibi recordcount nasıl çıkıyor.Normalde A sütunu ekledim koda B sütununa birşey yazıncada ondaki veriye görede değişiyor.

Option Compare Database



Dim Rs As Object

Dim Con  As Object

Dim sConn As String

Dim KayitSayisi As Integer

Dim KitapAdVeYol As String





Public Function test()

    Call SonHucreNo

End Function



Function SonHucreNo()



    KitapAdVeYol = CurrentProject.Path & "\kapali.xlsx"

    'On Error Resume Next

    sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & KitapAdVeYol & "" & _

                ";Extended Properties=""Excel 12.0 Xml;HDR=No;imex=1"";"

    

    Set Con = CreateObject("Adodb.Connection")

    Con.Open sConn

    

    sSql = "select f1 from [Sayfa1$A:A]"

    

    Set Rs = CreateObject("adodb.recordset")

    

    Rs.Open sSql, Con, 3, 1

    KayitSayisi = Rs.RecordCount



    Rs.Close

    Con.Close

    Set Rs = Nothing

    Set Con = Nothing

    



End Function