[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. Возможно он отсутствует в текущей книги либо все макросы отключены.

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

[Ildar-tsr]

А что произойдет если поместить этот макрос в книгу и попытаться выполнить его? Я имею в виду вручную, мимо делфи.

[Zhigalov]

Сообщение от Ildar-tsr

А что произойдет если поместить этот макрос в книгу и попытаться выполнить его? Я имею в виду вручную, мимо делфи.

Макрос работает.

[Zhigalov]

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

Код:

E.Application.Run( 'Kotel' );

По какой причине я понять не могу. Ежели запустить в ручную макрос то все отробатывает идеально.

[Ildar-tsr]

Код:

E.Run('Kotel');

[Zhigalov]

Да не я нащел ошибку E.Run('Kotel') - в коде прописано на латинском. В макросе черт пойми как чет то русской чето латниское в слове Kotel вот и не отрабатывало.