excel'e aktarım problem

[mertcenk]

Kod: Tümünü seç

var
  v, sayfa: variant;
  i, d, k: integer;
  r: variant;
begin
  try
    dm1.QselKitap.First;
    v := CreateOleObject('excel.application');
    v.workbooks.add;
    sayfa := v.workbooks[1].worksheets[1];
    r := v.activeworkbook.worksheets[1].cells[1];
    k := 1;
    begin
      for k := 0 to 6 do
      begin
        r.cells[1, k + 1].font.color := clBlue;
        r.cells[1, k + 1].font.bold := true;
      end;
    end;
    begin
      r.cells[1, 1] := ('Sınav No');
      r.cells[1, 2] := ('Öğrenci No');
      r.cells[1, 3] := ('Öğrenci Adı');
      r.cells[1, 4] := ('Telefon No');
      r.cells[1, 5] := ('Kimlik No');
      r.cells[1, 6] := ('Dersane No');
    end;

    i := 0;
    d := 1;
    while not dm1.QselKitap.Eof do
    begin
      i := i + 1;
      d := d + 1;
      r.cells[1 + d, i] := dm1.QselKitap.FieldByName('Sinav_id').Asstring;
      r.cells[1 + d, i + 1] := dm1.QselKitap.FieldByName('st_no').AsString;
      r.cells[1 + d, i + 2] := dm1.QselKitap.FieldByName('st_adi').AsString;
      r.cells[1 + d, i + 3] := dm1.QselKitap.FieldByName('st_telefon_no').AsFloat;
      r.cells[1 + d, i + 4] := dm1.QselKitap.FieldByName('st_kimlikno').AsString;
      r.cells[1 + d, i + 5] := dm1.QselKitap.FieldByName('st_dershane_id').Asinteger;
      dm1.QselKitap.Next;
      i := 0;
    end;
    v.visible := true;

  except
  end;
end;

şeklinde excel e aktarım yapıyorum...excel dosyasına aktarıyor grid deki bilgileri..sonra excel dosyasını kapatıyorum..diyelimki kaydetme dedim...excelden çıkıyor ama görev yöneticisinde EXCEL uygulaması çalışıyor hala... bununla ilgili forumda bir yanıt vardı ama bulamadım

Teşekkürler

[ender_arslanturk]

Merhaba

Kod: Tümünü seç

v.Quit;

Saygılarımla,

[zengin]

s.a

Aslında Arkadaşım formda cok daha güzel örnekler fakat Ben yinede Sana yardımcı olayım Kodlarıyın sonuna

senin kodların ve devam et

Kod: Tümünü seç

 end;
 end;
  Excel.Quit;
  Excel := Unassigned;
        finally
            Screen.Cursor := crDefault;
        end;
         ShowMessage('Aylık Fiyat Listesi Başarı İle Yüklendi ?');
     end;