Excel alan başlığı eklemek !!

[ozcank]

Arkadaşlar Excel aktarım işlemini yapıyorum fakat bu koda başlık eklemem mümkün mü?
Müşteri adı - Müşteri Soyadı gibi ? Yardım ederseniz sevinirim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
var 
  v,sayfa:variant;{v excel prg, sayfa calisma sayfasi} 
  say,i:integer; 
begin 
  query1.open; 
  say:=query1.recordcount;//query kayit sayisi 
  v:=createoleobject('excel.application');//exceli yarat 
  v.workbooks.add;//yeni calisma kitabini ekle 
  sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata} 
  query1.first; 
  for i:=1 to say do 
    begin 
    sayfa.cells[i,1]:=query1ad.text; 
    sayfa.cells[i,2]:=query1soyad.text; 
    query1.next; 
    end; 
v.visible:=true;//Exceli acip verileri goster 
end;

[vkamadan]

Merhaba ,

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}
  say,i:integer;
begin
  query1.open;
  say:=query1.recordcount;//query kayit sayisi
  v:=createoleobject('excel.application');//exceli yarat
  v.workbooks.add;//yeni calisma kitabini ekle
  sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
  query1.first;
    sayfa.cells[1,1]:='Müşteri Adı';
    sayfa.cells[1,2]:='Müşteri Soyadı';
  
 for i:=2 to say do
    begin
    sayfa.cells[i,1]:=query1ad.text;
    sayfa.cells[i,2]:=query1soyad.text;
    query1.next;
    end;
v.visible:=true;//Exceli acip verileri goster
end; 

Kolay gelsin.

[ozcank]

Arkadaşlar i:=2 to say do dediğim halde excel ikinci satırından başlatamıyorum acaba nerde hata yapıyorum.İlk kısma başlık yazdırdıktan sonra ikinci satırdan verileri listelemek istiyorum bir türlü olmadı yardımcı olursanız çok sevinirim.

Kod: Tümünü seç

for i:=2 to say do 
    begin 
    sayfa.cells[i,1]:=query1ad.text; 
    sayfa.cells[i,2]:=query1soyad.text; 
    query1.next; 
    end; 
v.visible:=true;//Exceli acip verileri goster 
end;