6 replies to this topic

[TMFV]

Buenas noches mis estimados...

 

Hace tiempo no me conectaba por esté medio, pero se me ha presentado el siguiente escenario...

NECESITO GENERAR UN EXCEL APARTIR DE UNA TABLA, SIN HACER USO DE LA APLICACION EXCEL.

 

Los datos ya están cargados en un StringGrid, que he obtenido de un SQL.

Paso a dejarles una porción del dos código que estoy intentando ejecutar actualmente para hacer dicha exportación usando el componente XLSReadWrite (después de muchos intentos sin resultado favorable, vengo por ayuda de los duros...    ), de verdad os necesito.

 

delphi

procedure TForm1.exportarTablaXLS;
var 
 i,j:Integer;
begin
  leyendoCeldas; 
  for i:=0 to tabla.RowCount-1 do begin
    for j:=0 to tabla.ColCount-1 do begin
      XLSExcel[0].AsString[j,i]:= tabla.Cells[j,i]; 
      XLSExcel.Calculate;
      XLSExcel[0].CalcDimensions;                                  
    end;  
    Next;                          
  end;  
    XLSExcel.Filename:= 'D:\Documents\prueba.xlsx'; 
    XLSExcel.Write;   
end;

delphi

procedure TForm1.leyendoCeldas;
var
  C,R: integer;
begin
  XLSExcel.Filename:= 'D:\Documents\prueba.xlsx'; 
  XLSTable.Open(1);
  for R:=0 to tabla.RowCount-1 do begin
    for C:=0 to tabla.ColCount-1 do begin
      //XLSExcel[0].AsString[C,R]:= 'ff';
      XLSExcel[0].InsertRows(R,tabla.RowCount);
    end;
    XLSExcel.Write;
    Next;
  end;

Realmente no se como trabajar ese componente para escribir los datos de mi StringGrid, en el excel....

Ayuda porfavor, a cualquiera que desee ayudar. PLEASE

 

LOS NECESITO, Aparte que la ayuda en este tema en la web es casi que nula, ya sea en ingles o español.... 

 

 

 

[egostar]

Hola TMFV,

 

Tal vez te ayude este hilo.

 

 

Saludos

[TMFV]

Hola gente, ya logré solucionar el tema...

 

Les comparto mi solución....

delphi

procedure TForm1.llenarTabla;
var
  col, fil: Integer;
  C,R: integer;
  Ref: string;
  Cnt: integer;
  CellType: TXLSCellType;
  I: Integer;
begin
  for fil := 0 to 170 do begin  //hay que establecer las filas del stringGrid
    for col := 0 to 15 do begin //hay que establecer las columnas del stringGrid
       XLSExcel[0].AsString[col,fil]:= tabla.Cells[col,fil]; //TIPO_ACUM';
       XLSExcel.Calculate;
       Cnt := 0;
       XLSExcel[0].CalcDimensions;
        for R := (XLSExcel[0].FirstRow) to XLSExcel[0].LastRow do begin
          for C := XLSExcel[0].FirstCol to XLSExcel[0].LastCol do begin
            CellType := XLSExcel[0].CellType[C,R];
            if CellType <> xctNone then begin
            Ref := ColRowToRefStr(C,R);
            //XLSExcel[0].AsString[C,R] := Ref;
             {
            case CellType of
              xctBlank         : begin
                tabla.Cells[C,R] := 'Null';
              end;
              xctString        : begin
                tabla.Cells[C,R]:= XLSExcel[0].AsString[C,R];
              end;
              xctFloat         : begin
                tabla.Cells[C,R] := FloatToStr(XLSExcel[0].AsFloat[C,R]);
              end;
            end;  
            }
            Inc(Cnt);
          end;
        end;
      end;
    end;
    XLSExcel.Filename:= 'D:\Documents\prueba.xlsx'; 
              XLSExcel.Write;   
  end;
  ShowMessage('Archivo creado');
end;

Si alguien me puede ayudar a ponerlo mas profesional y mejorarlo, cualquier ayuda es bienvenida

[TMFV]

Hola TMFV,

 

Tal vez te ayude este hilo.

 

 

Saludos

 

Hola egostar, gracias por responder, ya lo había checado...

Pero no es util, pues la idea es no hacer uso de la aplicación de excel.

 

Gracias de igual manera.

[egostar]

Hola egostar, gracias por responder, ya lo había checado...

Pero no es util, pues la idea es no hacer uso de la aplicación de excel.

 

Gracias de igual manera.

 

En ese hilo hay un post (el No. 8 específicamente)  donde muestra como generar un archivo Excel sin tener Excel instalado, pensé que te iba a servir.

 

Saludos

[TMFV]

Hola TMFV,

 

Tal vez te ayude este hilo.

 

 

Saludos

 

Hola egostar, espero tengas un lindo día. Resulta que el código realizado con XLSReadWrite II me salió bien, pero tiene una marca de agua imposible de quitar, por lo que me gustaría saber en ese hilo mencionado por usted AQUI #8 hacen referencia a una pagina para descargar una Unit, pero no me es posible descargarla, pues el sitio no esta habilitado, y no he podido encontrarla ningún lado, acepto cualquier ayuda. 

 

 

[egostar]

Hola egostar, espero tengas un lindo día. Resulta que el código realizado con XLSReadWrite II me salió bien, pero tiene una marca de agua imposible de quitar, por lo que me gustaría saber en ese hilo mencionado por usted AQUI #8 hacen referencia a una pagina para descargar una Unit, pero no me es posible descargarla, pues el sitio no esta habilitado, y no he podido encontrarla ningún lado, acepto cualquier ayuda. 

 

 

 

Hola

 

Si está disponible 

 

Saludos