merhabalar.
arkadaşlar aşağıdaki kod ile dbgriddeki değerleri excele aktarıyorum.sorunum şu ben aktarım yaparken exceldeki hucrelerin boyutlarını ve renklerini değiştirmek istiyorum.bunu nasıl yapabilirim.
kod:
var
v,sayfa:variant;
i,d,k:integer;
r:variant;

begin

table1.First; v:=createoleobject('excel.application');
v.workbooks.add;
sayfa:=v.workbooks[1].worksheets[1];
r:=v.activeworkbook.worksheets[1].cells[1];
k:=0;
repeat
r.cells[1,k+1]:=Table1.Fields[k].DisplayLabel;
k:=k+1;
until k=table1.Fields.Count;
i:=0;
d:=0;
while Not Table1.eof do
begin
i:=i+1;
d:=d+1;
r.cells[1+d,i]:=Table1.FieldByName('isim').AsString;
r.cells[1+d,i+1]:=Table1.FieldByName('soyisim').AsString;
r.cells[1+d,i+2]:=Table1.FieldByName('tel').AsString;
r.cells[1+d,i+3]:=Table1.FieldByName('cep').AsString;
r.cells[1+d,i+4]:=Table1.FieldByName('e_mail').AsString;
r.cells[1+d,i+5]:=Table1.FieldByName('adres').AsString;

Table1.Next;
i:=0;
end;
v.visible:=true;
end;
__________________