excelden vt ye kayıt atarken exceldeki satır sayısı

[zengin]

S.A. excelden firebird vt ye aktrama yapıyorum. aktarma yapılırken exeldeki toplam satır sayısı döngü sonu olarak veriliyor. exeldeki satır sayısın bulunup döngü sonuna atanması gibi birşey mümkünmü?

bunu

Kod: Tümünü seç

book, exel, sheet : variant;
exelsatir:string;
satir:intger;
exelsatir := sheet.cells[satir, 1]; 
sheet := book.worksheets[1]; 
for exelsatir = 1 to sheet eof do

şeklinde yapmak bir çözüm olabilirmi benimki sadece mantık ancak ben burada döngüde exeli baştan sona taratma için Table1.eof do gibi birşey düşündüm tabi bu exelde böyle olmayabilir.
bu konuda tecrübesi olan arkadaşlardan yardımlarını bekliyorum.

[fduman]

Bunu tespit için birkaç arkadaş burada kod vermişti. Arama kullanarak bulabilirsin.

[MicroChip]

evet forumda bayağı konuşulduduydu ado kullanabilirsin mesela