Exportar a excel con mas de 1 hoja

[Perio]

Hola.

Ya el titulo lo dice todo, no puedo lograr exportar documentos excel con mas de una hoja, estube buscando en el foro y ya alguien pregunto por este tema pero en el 2003, tal vez ajguien pueda contestar ahora...

Probe tambien mirando el codigo de una macro autogenerada pero no me funciono.

Un saludo.
Perio

[Fernando]

Hola Foromaniaco:

Visita la página www.delphi.com.ar de nuestro compañero idem.

Saludos.

[Perio]

Hola fernado:

Te agradesco mucho la respuesta, pero no encontre nada de exportaciones excel en www.delphi.com.ar (http://www.delphi.com.ar), recirri un poco los ejemplos pero no encontre nada...

Saludos
Perio

[Perio]

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í :


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;
//Abre un nuevo workbook
XApp.WorkBooks.Add(-4167);
//Agrega una hoja
XApp.WorkBooks[1].WorkSheets.add;
//Nombra las hojas
XApp.WorkBooks[1].WorkSheets[1].Name:='Sheet1';
XApp.WorkBooks[1].WorkSheets[2].Name:='Sheet2';
//Referencia a cada hoja con una variable
sheet := XApp.WorkBooks[1].WorkSheets['Sheet1'];
sheet2 := XApp.WorkBooks[1].WorkSheets['Sheet2'];
//carga datos
for i := 0 to 10 do
begin
sheet.Cells[1,i+1]:='Titulo';
sheet2.Cells[1,i+1]:='Titulo';
end;
//Carga datos
for r:=0 to 10 do
for c:=0 to 10 do
begin
//El rango de celdas está desplazado, con esto se acomoda
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;

[Fernando]

Hola Perio:

Parece ser que no buscaste bien.

www.delphi.com.ar

clic en Componentes

FireSoft ExportSuite

Salu2.

[Perio]

Ferbado:
Gracias por la respuesta y si tenias razon, no busqué bien. En realidad no encontre lo que me dijiste por que pensaba encontrar algo de código y vos te referias a componentes.
Éstos están interesantes por que como dice genera los xls en forma nativa sin necesitar office. Voy a tener que probarlos.

Saludos desde argentina

Perio

[roman]

Ferbado:


¡Cuídate ese resfriado! :D

// Saludos