Fórum Ajuda comThread #351480

unit UthreadPrepara;

interface

uses
  Classes,SysUtils,ComObj,ExcelXP, Dialogs;

type
  ThreadPrepara = class(TThread)
  private
    { Private declarations }

  public
  Excel : Variant;
  procedure preparafile;

  protected
    procedure Execute; override;
  end;

implementation

uses Umain;



{ ThreadPrepara }

procedure ThreadPrepara.Execute;
begin
   if Terminated then
  begin
   exit;
  end;
 preparafile;
end;


procedure ThreadPrepara.preparafile;
var
De,Ate : String;
FileXLS : String;
begin
  { Place thread code here }

  try

  Form1.OpenXLS.Execute;

  Excel := CreateOleObject(´Excel.Application´);//o erro para aqui
  FileXLS := Form1.OpenXLS.FileName;
  Excel.WorkBooks.open(FileXLS);
  Excel.Visible := True;
  De := ´A1´;
  Ate := StringReplace(Excel.ActiveCell.SpecialCells(xlLastCell).Address,´$´,´´,[rfReplaceAll]);
  Excel.Range[´A1´].Select;
  Excel.Range[De,Ate].Name := ´Import´;
  Excel.Range[´Import´].NumberFormat := ´@´;
  Excel.ActiveWorkBook.Save;
  Excel.Quit;
except
  Excel.Quit;
  ShowMessage(´houve erro!!´);
  end;
end;

end.