Exportar de delphi a un libro de exel

[zvf]

HOLA A TODOS!!!

Con delphi, quiero crear un archivo que pueda ser abierto con exel correctamente, dividido por hojas, celdas y demas (claro en donde yo le indique).

Pero, como puedo hacerlo?

[nemesio]

Revisa este truco:http://www.clubdelphi.com/trucos/ind...ll=0&scrollb=0

[zvf]

MUCHAS GRACIAS!!!
Voy a revisarlo, y si tienen alguna otra sugerencia se los agradeceria mucho, porque creo que el truco solo sirve para crear una hoja, no un libro ¿o me equivoco?

[zvf]

HOLA!!!!
Estoy checando el truco que me sugeriste, solo que no entiendo algunas partes porque no esta comentado. Lo intento correr y me marca algunos errores como:
- coinitialize y alltrim no esta inicializado
- if pos('/', alltrim(cells[i, linea - 1])) <> 0 then begin //aqui marca que los tipos son incompatibles

Código Delphi [-]
procedure ExportaExcel(pStringGrid : TstringGrid; c0,r0,c1,r1 : Integer);
var ExLin, ExCol, i, Linea, AuxInteger : Integer;
    AuxFloat : Double;
    AuxFecha : tDatetime;
    c : TCursor;
    Excel, ExcelDoc, WS : Variant;
begin
  c             := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  with pStringGrid do begin
    try
      coinitialize(nil);
      Excel         := CreateOleObject('Excel.Application');
      ExcelDoc      := Excel.Workbooks.Add;
      WS            := ExcelDoc.ActiveSheet;
      Excel.Visible := true;
      ExCol         := 0;
      for i := c0 to c1 do begin
        inc(ExCol);
        ws.Cells.Item[1, ExCol]:= cells[i, 0];
      end;
      for linea := r0 to r1 do begin
        inc(ExLin);
        ExCol := 0;
        for i := c0 to c1 do begin
          inc(ExCol);
          try
            try
              if pos('/', alltrim(cells[i, linea - 1])) <> 0 then begin
                AuxFecha := strtodatetime(alltrim(cells[i, linea - 1]));
                ws.Cells.Item[ExLin, ExCol] := AuxFecha;
              end
              else AuxFecha := strtodatetime('GENERA EXCEPCION');
            except
              try
                AuxInteger := strtoint(alltrim(cells[i,linea-1]));
                ws.Cells.Item[ExLin,ExCol]:= AuxInteger;
              except
                try
                  AuxFloat := strtofloat(alltrim(cells[i,linea-1]));
                  ws.Cells.Item[ExLin,ExCol]:= AuxFloat;
                except
                  ws.Cells.Item[ExLin,ExCol]:= cells[i,linea-1];
                end;
              end;
            end;
          except end;
        end;
      end;
      ws.cells.entirecolumn.autofit;
    finally
      screen.Cursor := c;
    end;
  end;
end;

Código Delphi [-]
procedure ExportaExcel (pStringGrid : TstringGrid; c0,r0,c1,r1 : Integer);

Código Delphi [-]
ExportaExcel(StringGrid1, 0, StringGrid1.ColCount-1, 0, StringGrid1.RowCount-1);

No se si lo este mandando llamar bien o me equivoque en algo. O si me falta agregar alguna unit.

GRACIAS POR SU AYUDA!!!!!!!!

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