Exportar de delphi a un libro de exel

[zvf]

Gracias a su ayuda, ya tengo claro como exportar los datos a una hoja de exel. Pero me queda una duda:
¿Como puedo decirle en que hoja lo ponga?, es decir si quiero que algunos datos los ponga en la hoja1 y otros en la hoja2 y asi sucesivamente.
Hasta ahorita tengo el siguiente codigo, que solamente me inserta todos los datos del stringGrid en la hoja1.

Código Delphi [-]
procedure TForm1.ExportaExcel(const StringGrid1 : TstringGrid; const c0,r0,c1,r1 : Integer);
var i, Linea : Integer;
    c : TCursor;
    Excel, ExcelDoc, WS : Variant;
begin
  c             := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  with StringGrid1 do begin
    try
      coinitialize(nil);
      Excel         := CreateOleObject('Excel.Application');
      ExcelDoc      := Excel.Workbooks.Add;
      WS            := ExcelDoc.ActiveSheet;
      Excel.Visible := true;
      for linea:=r0 to r1 do begin
       for i := c0 to c1 do begin
        ws.Cells.Item[linea+1, i+1]:= cells[i, linea];
       end;
      end;
      ws.cells.entirecolumn.autofit;
    finally
      screen.Cursor := c;
    end;
  end;
end;

¿Que me faltaria agregarle para lograr lo que quiero?

[[kuan-yiu]]

Código Delphi [-]
  ExcelDoc.workbooks[1].worksheets[hoja].Activate;

Donde "hoja" es el número de hoja de excel en el que quieres escribir.

Código Delphi [-]
  ExcelDoc.workbooks[1].worksheets[hoja].name := 'miNombre';

Y así si le quieres cambiar el nombre a la hoja, para que ponga otro en lugar del "hoja1" que pone por defecto.

[[kuan-yiu]]

A ver, que creo que me he liado con los nombres de las variables. Es que yo genero un documento con múltiples hojas y parte del código no es mío, así que me lío un poco.

Código Delphi [-]
  ExcelApp,      // Excel application
  WorkBook,      // Excel workbook
  WorkSheet: Variant ; // Excel sheet in workbook

Código Delphi [-]
  // Inicializo variables.
// ...

  // Creo la instancia de Excel
      try
        ExcelApp := CreateOLEObject('Excel.Application') ;
      except
        MessageDLG('Imposible iniciar Excel',mtError,[mbOK],0) ;
        Raise ;
      end ;
      {$IFDEF IAMDEBUGGING}
      ExcelApp.Visible := True ;
      {$ENDIF}
      ExcelApp.WorkBooks.Add;

  // Ahora le añado tantas hojas como necesite.
// ...

  // Esto va dentro de un bucle porque proceso cada hoja de forma consecutiva
          ExcelApp.workbooks[1].worksheets[hoja].Activate;
          ExcelApp.workbooks[1].worksheets[hoja].name := nombre;
          WorkBook := ExcelApp.ActiveWorkBook ;   // Get the active workbook
          WorkSheet := WorkBook.ActiveSheet;      // Get the active sheet

  // Ahora relleno la hoja actual e incremento los contadores.
// ...

[zvf]

Muchas gracias por tu ayuda!!!

Voy a probarlo y les vuelvo a molestar con mis dudas por aqui al rato.

GRACIAS POR SU TIEMPO!!!!!!!!

[zvf]

GRACIAS, GRACIAS, GRACIAS !!!!

Ya lo probe y funciona de maravilla, gracias por su tiempo y por compartir sus conocimientos.

Gracias a todos!!!

[zvf]

Por último, en donde puedo encontrar documentacion sobre los metodos, funciones y propiedades que se utilizan para abrir y trabajar con documentos en excel?

Gracias !!!

[[kuan-yiu]]

Empezado por zvf

Por último, en donde puedo encontrar documentacion sobre los metodos, funciones y propiedades que se utilizan para abrir y trabajar con documentos en excel?

¿?... Si te refieres para hacerlo desde Delphi puedes buscar en este mismo foro, hay varios mensajes en los que se referencian una serie de páginas que a mi me resultaron muy útiles.
Si te refieres al uso de excel puedes encontrarlo en casi cualquier biblioteca pública