Exportar a excel con mas de 1 hoja

[Perio]

Hola fernado:

Te agradesco mucho la respuesta, pero no encontre nada de exportaciones excel en 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í :

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;
  //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]

Empezado por Perio

Ferbado:

¡Cuídate ese resfriado!

// Saludos