Delphi DBgrid excele Aktarma

				
					procedure TForm2.ExcelAktar1Click(Sender: TObject);

var
  v, sayfa: variant; { v excel prg, sayfa calisma sayfasi }
  say, i: integer;
begin
  say := OraQuery1.recordcount; // query kayit sayisi
  v := createoleobject('excel.application'); // exceli oluştur
  v.workbooks.Add; // yeni calisma kitabini ekle
  sayfa := v.workbooks[1].worksheets[1];
  // Sayfa Başlıklarını Oluştur
  OraQuery1.first;
  sayfa.cells[1, 1] := 'Hasta Verileri ';
  sayfa.cells[1, 2] := 'Tarih ' + DateTimeToStr(now);
  sayfa.cells[2, 1] := 'Adi';
  sayfa.cells[2, 2] := 'Soyadi';
  sayfa.cells[2, 3] := 'Dosya No';
  sayfa.cells[2, 4] := 'Protokol No';
  sayfa.cells[2, 5] := 'Poliklinik';
  sayfa.cells[2, 6] := 'Doktor ';
  sayfa.cells[2, 7] := 'Kurum';

  for i := 1 to say do
  begin
    // Grid içeriği
    // Gridden istenen verileri excel hücrelerine yerleştir
    sayfa.cells[i + 2, 1] := OraQuery1.FieldByName('adi').Text;
    sayfa.cells[i + 2, 2] := OraQuery1.FieldByName('soyadi').Text;
    sayfa.cells[i + 2, 3] := OraQuery1.FieldByName('dosya_no').Text;
    sayfa.cells[i + 2, 4] := OraQuery1.FieldByName('protokol_no').Text;
    sayfa.cells[i + 2, 5] := OraQuery1.FieldByName('BOLUM_ADI').Text;
    sayfa.cells[i + 2, 6] := OraQuery1.FieldByName('ADI_SOYADI').Text;
    sayfa.cells[i + 2, 7] := OraQuery1.FieldByName('KURUM_ADI').Text;

    OraQuery1.next; // Sonraki Kayıt
  end;
  v.visible := true; // Exceli acip verileri goster
  sayfa.Columns.AutoFit; // sutun genişliğini ayarla

end;