Başlık olayı eklenmezse 65536 dan sonrası için hata veriyor biliyorum.
Hdr=Yes yerine Hdr=No ve [F1],[F2] gibi oldu ayrıyeten 3 olanlarda 4 ile değiştirildi.
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yahya & ";extended properties=""excel 12.0;hdr=No;imex=1"""
Kod:
sSql = "select [F1],[F2],[F3] from [Sayfa1$B4:D] where [F1] Is Not Null" '
sSqlCount = "select count(*) from [Sayfa1$B4:D] " 'Exceldeki satir sayisi