Ver Mensaje Individual
  #1  
Antiguo 25-08-2010
lduron lduron is offline
Miembro
 
Registrado: jun 2006
Posts: 30
Reputación: 0
lduron Va por buen camino
Error al crear archivo de excel con delphi

Creo un archivo de excel con el siguiente código:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
Excel97, comObj;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Excel: OleVariant;
Libro: OleVariant;
Hoja: OleVariant;
begin
Excel := ComObj.CreateOleObject('Excel.Application');
Libro := Excel.WorkBooks.Add;
Hoja := Libro.ActiveSheet;
Hoja.Cells[1, 1] := 'PRUEBA';
Libro.SaveAs('c:\prueba.xls');
Excel.Quit;
end;
end.


Al querer abrir el office 2007 me da un error:

El archivo que intenta abrir "prueba.xls", tiene otro formato que el especificado por la extensión de archivo. Compruebe que el archivo no este dañado y procede de un origen de confianza antes de abrirlo. ¿Desea abrir el archivo ahora? Lo abro y lo veo bien, pero en el office 2003 lo abro y pone codigo no legible. Y lo necesito abrir en el office 2003.

Como lo puedo resolver?

Muchas Gracias!

Saludos!
Responder Con Cita