Hola.
Ya lo pude resolver, (paresco un lunático, hago preguntas y me las contesto).
Lo resolvi de la sig manera, lo pongo para que si alguien lo necesite ya quede en el foro, o para ese que pregunto lo mismo en mayo del 2003, si todavia no lo pudo hacer
, se hace así :
Código Delphi
[-]
procedure TForm1.exportarExcel();
var
XApp:Variant;
sheet, sheet2:Variant;
r,c:Integer;
q:Integer;
row,col:Integer;
i:Integer;
begin
try
begin
XApp:=CreateOleObject('Excel.Application');
end;
except
showmessage('Cagaste, no tenes excel instalado.');
exit;
end;
XApp.WorkBooks.Add(-4167);
XApp.WorkBooks[1].WorkSheets.add;
XApp.WorkBooks[1].WorkSheets[1].Name:='Sheet1';
XApp.WorkBooks[1].WorkSheets[2].Name:='Sheet2';
sheet := XApp.WorkBooks[1].WorkSheets['Sheet1'];
sheet2 := XApp.WorkBooks[1].WorkSheets['Sheet2'];
for i := 0 to 10 do
begin
sheet.Cells[1,i+1]:='Titulo';
sheet2.Cells[1,i+1]:='Titulo';
end;
for r:=0 to 10 do
for c:=0 to 10 do
begin
row:=r+2;
col:=c+1;
sheet.Cells[row,col]:='Dato';
sheet2.Cells[row,col]:='Dato';
end;
XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Bold:=True;
XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Color := clblue;
XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Color := clblue;
XApp.WorkSheets['Sheet1'].Range['A1:K1'].Borders.LineStyle :=13;
XApp.WorkSheets['Sheet1'].Range['A1:K11'].HorizontalAlignment := 3;
XApp.WorkSheets['Sheet1'].Columns[1].ColumnWidth:=10;
XApp.WorkSheets['Sheet1'].Columns[2].ColumnWidth:=10;
XApp.WorkSheets['Sheet1'].Columns[3].ColumnWidth:=15;
XApp.WorkSheets['Sheet1'].Columns[4].ColumnWidth:=6;
XApp.WorkSheets['Sheet1'].Columns[5].ColumnWidth:=18;
XApp.WorkSheets['Sheet1'].Columns[6].ColumnWidth:=9;
XApp.WorkSheets['Sheet1'].Columns[7].ColumnWidth:=23;
XApp.WorkSheets['Sheet1'].Columns[8].ColumnWidth:=23;
XApp.WorkSheets['Sheet1'].Columns[9].ColumnWidth:=23;
XApp.WorkSheets['Sheet1'].Columns[10].ColumnWidth:=10;
xApp.caption := 'Exportado por Gracha-Expoted inc.';
XApp.Visible:=true;
end;