excelde dolu olan satır sayısını öğrenmek

[AliRiza]

Kod: Tümünü seç

function excelsonsatir(AColumn: Integer): Integer; 
const 
  xlUp = 3; 
begin 
    Result := excel.Range[Char(96 + AColumn) + IntToStr(65536)].end[xlUp].Rows.Row; 
end; 
 

Arkadaşlar excelden veritabanına veri çekiyorum.Ancak satır sayısını for döngüsü ile sabit belirtiyorum.Bunun için excelde dolu olan satır sayısını öğrenmem gerekiyor.Forumda araştırdım.Yukarıdaki function'ı buldum ama functon döngüsel ole hatası veriyor.
Bu function'ı kullanan var mı.Veya bildiğiniz dolu satır sayısını öğreneceğim function var mı.

[Asri]

Sanırım değişken tanımların ile ilgibi bir sorun olabilir.

Kod: Tümünü seç

//Uses bölümüne eklenecek unitler
uses
 Variants,comobj;

var
Excel : Variant;
sonsatir:longint;

function excelsonsatir(AColumn: Integer): Integer;
const
  xlUp = 3;
begin
    Result := excel.Range[Char(96 + AColumn) + IntToStr(65536)].end[xlUp].Rows.Row;
end;

// Kullanımı   "A" sutunu için
sonsatir:=excelsonsatir(1)+1;

Ben bu şekilde kullanıyorum ve herhangi bir sorun yok.


iyi çalışmalar.