Problema al utilizar mxexport para generar .xls

[Casimiro Noteví]

Mejor que pongas tu código.

[nincillo]

Empezado por Casimiro Notevi

Mejor que pongas tu código.

El código que estoy utilizando es el que viene como demo en el propio "paquete".

No toqué nada, únicamente le añadí al proyecto la carpeta donde buscar las librerías y le dí a compilar.

[nincillo]

Empezado por Casimiro Notevi

Mejor que pongas tu código.

He ido comentando partes del código del ejemplo y he conseguido "aislar" las partes que generan el problema. Con ellas comentadas, el fichero se genera correctamente.

A ver si así se os ocurre algo a alguno.

Un saludo

Código Delphi [-]
Procedure Tfrm_MainWindow.btn_StartClick( Sender: TObject );
Var
     I: Integer;
Begin
     With mxNativeExcel1 Do
     Begin
          NewFile;

          FileName := ChangeFileExt( ParamStr( 0 ), '' );
          AddFont( Label2.Font );
          AddFont( Label1.Font );

(* ------> Cualquiera de estas líneas provoca que el fichero resultante no sea reconocido por el excel
          SetHeader( 'Test Header' );
          SetFooter( '&N &P' );

          WriteLabel( 'This File was Create By Max''s Native Excel Component!' );
          ActiveFont := 1;
          WriteLabel( 2, 1, 'Please note that, this component is in Beta Test Phase' );
<--------- *)

          Row := 4;
          Column := 1;
          ActiveFont := 0;

          WriteNumber( 2147400000 );

          For I := 0 To 100 Do WriteInteger( I );

          Row := 7;
          Column := 1;
          For I := 0 To 100 Do
          Begin
               If I Mod 2 = 0 Then ActiveFont := 0 Else ActiveFont := 1;
               Shading := ActiveFont = 1;
               WriteInteger( Row + I, I * 2, I );
          End;

          Shading := FALSE;

          SetColumnWidth( 1, 53 );
          SetColumnWidth( 3, 10, 10 );

          Borders := [ ebTop, ebBottom, ebLeft, ebRight ];
          WriteBoolean( 6, 1, TRUE );
          WriteBoolErr( 7, 1, beNA );

          SetLeftMargin( 0.30 ); // ** This value has to be in inches **
          SetBottomMargin( 0.30 ); // ** This value has to be in inches **
          SetTopMargin( 0.30 ); // ** This value has to be in inches **
          SetRightMargin( 0.30 ); // ** This value has to be in inches **

          ProtectSheet( TRUE );

          CloseFile;

          SaveToFile;
     End;
End;

[nincillo]

¿Puede alguno de los miembros del foro confirmar que con estas librerías está pudiendo generar ficheros excel sin problemas?

¿Con qué versión de Delphi?

Es por intentar determinar si es solo un problema mío.

Gracias.

[Casimiro Noteví]

Por lo que sé, hay muchos compañeros que usan esos componentes en versiones de delphi incluso más nuevas que la 2007, sin problemas.

[nincillo]

Empezado por Casimiro Notevi

Por lo que sé, hay muchos compañeros que usan esos componentes en versiones de delphi incluso más nuevas que la 2007, sin problemas.

Estuve buscando por el foro las opciones posibles para generar. Xls sin tener Excel y vi que se hablaba de ésta en varios hilos. Pero al ser tan antiguos, no me atreví a postear en ellos.

A ver si alguien me puede iluminar un poco para seguir investigando o descartarlo.

Gracias.