|
Hola LuisDevis!
Muchas Gracias por ayudarme. Fíjate que lo hice de la siguiente manera:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, comObj, StdCtrls;
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: Variant;
Libro: Variant;
Hoja: Variant;
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.
Y aún con esto me sigue marcando lo mismo...no se que pasa?
|