Excel:=CreateOleObject('Excel.Application') ile ...

[ovural]

Excel:=CreateOleObject('Excel.Application') ile ... excel baglandıgımda ..


kac satırda kayıt var nasıl ogrenirim ?

birinci sutunu

Kod: Tümünü seç

var i:integer;
i:=1;
while Excel.Sheets[1].Cells[i,1]<>'' do
  inc(i);
// i-1 boş olmayan satırların sayısı 

şeklinde kontrol etsemde birinci sutun bos olanlar var ..
bos hucre buldumu kalıyor ..

[husonet]

viewtopic.php?t=871&highlight=excel

İf in kullanım şekline bir bak

Kolay Gelsin...

[ovural]

buldum ...

Excel.WorkBooks[1].Sheets[1].UsedRange.Rows.Count

[takkus]

kullanılan kolon sayısını belirlemek için de böyle bir excel özelliği(güzelliği) var mı acaba?

Kod: Tümünü seç

Sayfa1.Cells(10, 2) = Sayfa1.UsedRange.Columns.Count

excelde bu makro kullanılan kolon sayısını veriyor ama;

Kod: Tümünü seç

degisken:=Excelapp.WorkBooks[1].Sheets[1].UsedRange.colums.count

kodu delphi de çalışmıyor ve şu hatayı veriyor

Kod: Tümünü seç

project project1.exe raised exception class EOleError with message 'Method colums' not supported by automation object'. 

[takkus]

"columns" yerine "colums" yazıyormuşum

Kod: Tümünü seç

Excelapp.WorkBooks[1].Sheets[1].UsedRange.colums.count

kodu da takır takır çalışıyor
bir harf n(e)leri değiştiriyor