Problema al utilizar mxexport para generar .xls
 

Hola. He estado toda la tarde pegándome con este tema.

He descargado los instaladores del FTP: mxnativeexcel125 y mxexports238.

Los instalo. Instalo los componentes en el Delphi 2007. Cargo el programa y lo compilo aparentemente sin problemas, pero...

Le doy que me genere el fichero xls, me lo genera. Pero cuando lo intento abrir con el excel. Me dice que el fichero está dañado y no es capaz de abrirlo.

¿Se le ocurre a alguien qué puedo mirar o hacer?.

Si en lugar de .xls, escojo .doc, .html, etc me los exporta correctamente...

Adjunto el fichero generado para ver si ayuda a resolver el misterio.

Gracias anticipadas...

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.

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;

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

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.