Invalid variant operation при работе с Excel

[Семён Алексеевич]

Код: Выделить всё

Excel.Workbooks.Open[ExtractFilePath(Application.ExeName)+'123.xls'];

Почему эта строчка кода работает через раз?
Один раз всё норм, на следующий запуск Invalid variant operation. Подскажите пожалуйста как исправить.


--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Такой глюк начинается после команды Save All (полного сохранения проекта), вероятно это происходит из-за указания адреса:

Код: Выделить всё

Excel.Workbooks.Open[[color="Red"]ExtractFilePath(Application.ExeName)[/color]+'\Отчеты\'+'Образец.xls'];

Такой способ указания пути выбран потому что необходимо открывать файл экселя именно из той папки где находится проект. Возможно есть другой способ решить проблему с открытием?

[Игорь Акопян]

а если собрать имя файла заранее (непохоже что оно меняется) у в Open передавать переменную типа:
[syntax='Delphi']
vFN: OLEVariant;

...
vFN := ExtractFilePath(Application.ExeName)+'\Отчеты\Образец.xls';
Excel.Workbooks.Open[vFN];
[/syntax]