[Zhigalov]

Код:

begin
 if OpenDialog1.Execute then
 begin
  Path:=OpenDialog1.FileName;
   end;
   if Path='' then
      begin ShowMessage('Файл не выбран');
            abort;
            end
            else
   E := CreateOleObject('Excel.Application');
   B := E.Workbooks.Open[path];
   E.Visible := True;
   i := E.VBE.ActiveVBProject.VBComponents.Count;
   E.VBE.ActiveVBProject.VBComponents.Add( 1 );
   B.VBProject.VBComponents.Import( 'C:\Kotel.bas' );
   E.Application.Run( 'Kotel' );
   E.Visible := True;
   B := E.ActiveWorkBook.Sheets;
   B.Item[2].Activate;
   OpenDialog1.Free;
   E:=unassigned;
end;

Выдает ошибку: Не удается выполнить макрос Kotel. Возможно он отсутствует в текущей книги либо все макросы отключены.

У меня доступ к макросам включен. И Макрос присутствует в текущей книге веть он туда импортируется. Подскажите как справится с данной проблемой.