StringGridi Excel Dosyaya Gönderme

[naile]

StringAlignGrid için yaptım ama sanırım StringGrid için de çalışır.
Bir de Delphide gelen ExcelAppication componentini kullandım. Grid içindeki değerler okunarak açılan excel sayfasına yazdırılıyor.

Kod: Tümünü seç

procedure SendExcel(rapor_grid:TStringAlignGrid;ExcelApplication1:TExcelApplication);
var
  RangeE: Excel2000.Range;
  i,j, Row: Integer;
  Format: OleVariant;
begin
  ExcelApplication1.Visible [0] := False;
  ExcelApplication1.Workbooks.Add(null,0);
  RangeE := ExcelApplication1.ActiveCell;
  Format := '@';
  Row := 1;
   try
      for j := 0 to rapor_grid.RowCount - 1  do
      begin
        RangeE := ExcelApplication1.Range ['A' + IntToStr (Row),'A' + IntToStr (Row)];
        for i := 0 to rapor_grid.ColCount - 1  do
        begin
          RangeE.NumberFormat := Format;
          RangeE.Value := rapor_grid.Cells[i,j];
          RangeE := RangeE.Next;
        end;
        Inc (Row);
      end;
  finally
    ExcelApplication1.Visible [0] := True;
    ExcelApplication1.Disconnect;
  end;
end;

[mavsar]

Yukarıdakıi bilgilere ek olarak şunu da eklemek isterim. Delphiden export ettiğiniz bilginin (strin grid,dbgrid...) formatlı bir şekilde Excele gitmesini istiyorsanız. İlk önce sade bir export yapın. Ardından Excel de yapmak istediğiniz düzenlemeleri (kenarlık(border),yazı fontu...) yapın ve Visual Basic düzenleyicisi ile source görün. Ardından Delphi de aynı değişiklikleri yapın.

Tabi ExcelApplication nesnesi kullanrk yapacağınız export 500 row için bir problem olmaz fakat kayıt sayısı 10.000 veya üstü bir rakam ise bu durumda XLS dosya yapısını öğrenerek ona direk yazan bir fonksiyon veya unit yazın aksi takdirde performans sorunu çıkar. Demedi demeyin

[AliRiza]

Naile hanım burada excelapplication nesnesi ile formatlı göndermişsiniz..Ben bunu ole nesnesi ile yapmak istiyorum..
Bunu nasıl yaparım.Excel.range diye kullandığımda ole nesnesi desteklemiyor diye uyarı alıyorum..
_________________

[r_korkmaz44]

Arkadaşlar Dbgridten excele verileri nasıl aktarabiliriz. Şimdiden teşşekürler..

[naile]

Arkadaşlar Dbgridten excele verileri nasıl aktarabiliriz. Şimdiden teşşekürler..

OLE
ile