Exportar de delphi a un libro de exel

[[Bicho]]

Hola, soy el autor del truco. Te pido disculpas tanto a tí como a todos los del foro y que han podido usar el truco, que seguro que no les ha funcionado. Para que la función coinitialize funcione hay que añadir al uses ActiveX, y la función Alltrim la he quitado ya que es una función propia de mi trabajo y la suelo usar para mis programas, pero básicamente consiste en quitarle todos los espacios que contenga el string que se le pasa por parámetro, tanto a la izquierda, derecha o en cualquier posición del string.

Ya he modificado el truco y espero que ahora os funcione.

Nuevamente pido disculpas por las molestias ocasionadas.

Saludos

[aledieb]

Para reemplazar la función alltrim se puede utilizar la función TRIM de delphi que esta en SysUtils.

[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!!!