Работа с файлами Excel

[Aleksandr_59]

В программе делаю доступ к данным в файле типа Excel:

implementation
uses UnitExcel, UnitMon, UnitPars01;

var
  bExcel, rb: boolean;
  sh: variant;

procedure OpenWorkBook(var E: variant);
var
  strEr, sP: String;
  i: integer;
begin
  if (VarIsEmpty(E)) then
    E:=CreateOleObject('Excel.Application');
  if VarIsEmpty(E) then Exit;
  GetDir(0, strEr);
  strEr:=strEr+ '\' + strRezSearch+'.xls';
  try
    if VarIsEmpty(E) then
      begin
      bExcel:=true;
      book:=E.Workbooks.Open(strEr);
      sh:=book.Worksheets[1];
      if book.ReadOnly then bR:=true else bR:=false;
      end;
  except
    bExcel:=false;
  end;
End;

Всё работает до тех пор, пока на компьютере параллельно не откоют какой-нибудь другой файл Excel. Происходит ошибка доступа. Насколько я понял, процесс Excel, созданный программно, перехватывается ОС (в диспетчере задач видно, что присутствует всего один процесс EXCEL).
Причём, если просто создать новый файл Excel (меню "Пуск", "Excel") ОС создаёт свой процесс (видно в диспетчере задач) и всё работает нормально.
Как с этим побороться?

[FaTaL]

Работать именно с Вашей рабочей книгой, а не той которую активировали.

[Aleksandr_59]

Сообщение от FaTaL

Работать именно с Вашей рабочей книгой, а не той которую активировали.

Ну, наверное. Не совсем понял.
Моя программа останавливается по ошибке доступа к файлу, если параллельно открыть в Excel любую другую книгу (из папки с программой).

[FaTaL]

Странно. Я хоть 50 штук Excel файлов открываю, но программа у меня всё равно работает именно с моей книгой. Покажите код, где вылазиет ошибка.