dbgrid başlıkları çıkmıyor ?

[kodcuminik]

merhaba

forumdaki üstatların yazmış oldugu aşagıdaki kod ile

dbgrid içerisndeki bilgileri excele atabiliyorum

ama dbgrid başlıkları çıkmıyor yani sutun başlıkları excele import edilmiyor sadece içerigi gidiyor

nasıl birşey eklemeliyiz ki sutun başlıklarıda execele gitsin ?

teşekkürler.

Kod: Tümünü seç

procedure TForm4.BitBtn1Click(Sender: TObject);
var

i,Adet:integer;
uygulama:variant;

begin
Table1.Open;
Adet:=Table1.RecordCount;
uygulama:=CreateOleObject('Excel.Application');
uygulama.visible:=true;
uygulama.WorkBooks.Add;

Table1.First;
for i:=2 to Adet+1 do begin
uygulama.ActiveSheet.Cells[i,1] := DBGrid1.Columns[0].Field.Text;
uygulama.ActiveSheet.Cells[i,2] := DBGrid1.Columns[1].Field.Text;
uygulama.ActiveSheet.Cells[i,3] := DBGrid1.Columns[2].Field.Text;
uygulama.ActiveSheet.Cells[i,4] := DBGrid1.Columns[3].Field.Text;
uygulama.ActiveSheet.Cells[i,5] := DBGrid1.Columns[4].Field.Text;
uygulama.ActiveSheet.Cells[i,6] := DBGrid1.Columns[5].Field.Text;
uygulama.ActiveSheet.Cells[i,7] := DBGrid1.Columns[6].Field.Text;
uygulama.ActiveSheet.Cells[i,8] := DBGrid1.Columns[7].Field.Text;

Table1.Next;
end;
end;

[Lost Soul]

merhaba

forumdaki üstatların yazmış oldugu aşagıdaki kod ile

dbgrid içerisndeki bilgileri excele atabiliyorum

ama dbgrid başlıkları çıkmıyor yani sutun başlıkları excele import edilmiyor sadece içerigi gidiyor

nasıl birşey eklemeliyiz ki sutun başlıklarıda execele gitsin ?

teşekkürler.

Kod: Tümünü seç

procedure TForm4.BitBtn1Click(Sender: TObject);
var

i,Adet:integer;
uygulama:variant;

begin
Table1.Open;
Adet:=Table1.RecordCount;
uygulama:=CreateOleObject('Excel.Application');
uygulama.visible:=true;
uygulama.WorkBooks.Add;
Table1.First;
for i:=2 to Adet+1 do begin
uygulama.ActiveSheet.Cells[i,1] := DBGrid1.Columns[0].Field.Text;
uygulama.ActiveSheet.Cells[i,2] := DBGrid1.Columns[1].Field.Text;
uygulama.ActiveSheet.Cells[i,3] := DBGrid1.Columns[2].Field.Text;
uygulama.ActiveSheet.Cells[i,4] := DBGrid1.Columns[3].Field.Text;
uygulama.ActiveSheet.Cells[i,5] := DBGrid1.Columns[4].Field.Text;
uygulama.ActiveSheet.Cells[i,6] := DBGrid1.Columns[5].Field.Text;
uygulama.ActiveSheet.Cells[i,7] := DBGrid1.Columns[6].Field.Text;
uygulama.ActiveSheet.Cells[i,8] := DBGrid1.Columns[7].Field.Text;

Table1.Next;
end;
end;

Kod: Tümünü seç

procedure TForm4.BitBtn1Click(Sender: TObject);
var

i,Adet:integer;
uygulama:variant;

begin
Table1.Open;
Adet:=Table1.RecordCount;
uygulama:=CreateOleObject('Excel.Application');
uygulama.visible:=true;
uygulama.WorkBooks.Add;



// Başlıkları listeleyen kısım. değişkenleri aşağıda verdiğiniz
// döngüye göre değerlendirdim.
for i := 1 to DBGrid1.Columns.Count do
uygulama.ActiveSheet.Cells[1,i] :=DBGrid1.Columns.Items[0].Title.Caption;



Table1.First;
for i:=2 to Adet+1 do begin
uygulama.ActiveSheet.Cells[i,1] := DBGrid1.Columns[0].Field.Text;
uygulama.ActiveSheet.Cells[i,2] := DBGrid1.Columns[1].Field.Text;
uygulama.ActiveSheet.Cells[i,3] := DBGrid1.Columns[2].Field.Text;
uygulama.ActiveSheet.Cells[i,4] := DBGrid1.Columns[3].Field.Text;
uygulama.ActiveSheet.Cells[i,5] := DBGrid1.Columns[4].Field.Text;
uygulama.ActiveSheet.Cells[i,6] := DBGrid1.Columns[5].Field.Text;
uygulama.ActiveSheet.Cells[i,7] := DBGrid1.Columns[6].Field.Text;
uygulama.ActiveSheet.Cells[i,8] := DBGrid1.Columns[7].Field.Text;

Table1.Next;
end;
end;