Developing.ru

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


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

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

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