Delphi ile Excelden Son Satırı Çekme Sorunu

harezmi

merhaba arkadaşlar aşağıdaki kod bloğu ile excel sayfasındaki iki sütunda bulunan verileri programa sorunsuz bir şekilde çekiyorum.
sorun şuki exceldeki son satır gelmiyor. bir türllü doğru kodu yazamadım until'a yardımcı olursanız sevinirim herkese iyi çalışmalar.

 i:=1;
    Repeat
        stringgrid1.Cells[1,i]:=uygulama.ActiveSheet.cells[i,1].Value;
        stringgrid1.Cells[2,i]:=uygulama.ActiveSheet.cells[i,2].Value;
            inc(i);
   until uygulama.ActiveSheet.cells[i,1].value='';//boş hücreye kadar oku
  end;

Halil Han BADEM

harezmi Until bittikten hemen sonra son satır sayısı ile sadece datayı çekin. Yani son satırı until ile değil kendiniz kod ile çekiniz.

Halil Han BADEM

harezmi Son satırı bulmak için burada geçen fonksiyonu kullanabilirsin.

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;

//"A" sutunu için.
SonSatir := ExcelSonSatir(1)+1;

İyi çalışmalar 🤟

harezmi

yani şöyle bir şey mi dediğiniz

   tr:=excelsonsatir(1);
    i:=1;
    while i<tr+1 do
      begin
        stringgrid1.Cells[1,i]:=uygulama.ActiveSheet.cells[i,1].Value;
        stringgrid1.Cells[2,i]:=uygulama.ActiveSheet.cells[i,2].Value;
        inc(i);
        form3.Caption:='Toplam '+inttostr(i)+' Adet Kelimeniz Var';
      end;
      
        stringgrid1.Cells[1,i+1]:=uygulama.ActiveSheet.cells[i-1,1].Value;
        stringgrid1.Cells[2,i+1]:=uygulama.ActiveSheet.cells[i-1,2].Value;

Halil Han BADEM

harezmi

 tr:=excelsonsatir(1);
    i:=1;
    while i<tr+1 do
      begin
        stringgrid1.Cells[1,i]:=uygulama.ActiveSheet.cells[i,1].Value;
        stringgrid1.Cells[2,i]:=uygulama.ActiveSheet.cells[i,2].Value;
        inc(i);
        form3.Caption:='Toplam '+inttostr(i)+' Adet Kelimeniz Var';
      end;
      
        stringgrid1.Cells[1,i+1]:=uygulama.ActiveSheet.cells[i-1,1].Value;
        stringgrid1.Cells[2,i+1]:=uygulama.ActiveSheet.cells[i-1,2].Value;

Evet istersen for döngüsü ile for i := 0 to excelsonsatir(1) + 1 do de halledebilirsin.

Halil Han BADEM

harezmi veya her şeyi geçip şu şekilde ilerle;

 tr:=excelsonsatir(1);
    i:=1;
    while i<tr+1 do
      begin
        stringgrid1.Cells[1,i]:=uygulama.ActiveSheet.cells[i,1].Value;
        stringgrid1.Cells[2,i]:=uygulama.ActiveSheet.cells[i,2].Value;
        inc(i);    
      end;

stringgrid1.Cells[1,tr + 1]:=uygulama.ActiveSheet.cells[tr + 1,1].Value;
stringgrid1.Cells[2,tr +1]:=uygulama.ActiveSheet.cells[tr + 1 ,2].Value;   
form3.Caption:='Toplam '+inttostr(tr + 1)+' Adet Kelimeniz Var';

harezmi

sorunu tespit ettim

stringgrid.rowcount:=excelsonsatir(1)

bu yüzden son satır görünmüyordu şu şekilde değiştirince problem çözüldü

stringgrid.rowcount:=excelsonsatir(1)+1

Halil Han BADEM

harezmi Bu mesajın üstünde ki mesajda onu belirttim zaten tr + 1 yapman gerekiyordu.