Глючит Excel

[---FISHER---]

Как открыть файл Excel из той же папки, где лежит проект, почему такой код выдает ошибку?

procedure TForm1.Button1Click(Sender: TObject);
var excel: variant;
begin
Excel:= CreateOleObject('Excel.Application');
Excel.Workbooks.Add;
Excel.Workbooks.Open['123.xls'];
end;

файл проверял на месте, всё нормально, почему глючит? Пожалуйста подскажите.

[---FISHER---]

Ошибка типа убедитесь что адрес правильно указан...

[lexaltd]

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

[---FISHER---]

ССССССССССССССССССППППППППППППППППА ААААААААААААССССССССССССССИИИИИИИИИ ИИИИИБББББББББББББББООООООООО!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! УРА УРА УРА

[---FISHER---]

А можно ещё вопрос Excel.Range[Excel.Cells[20, 3]]:='Привет!'; почему выдается ошибка "Член группы не найден"?

[---FISHER---]

а почему ваш совет

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

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

[DarkEvil]

Вот я использую такую процедуру для манипуляций с экселем

procedure InitExcel(FileName: String; IfVisible: Boolean = false);
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.WorkBooks.Open(FileName);
  Excel.Visible := IfVisible;
end;

Все работает прекрасно.

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

Наследующий раз это после закрытия программы? или же после закрытия екселя и последущюе открытия?

[---FISHER---]

после закрытия программы...я незнаю что за беда...

[---FISHER---]

А что тогда может значить Invalid Variant Operation ? Просто компилятор выделяет именно строчку с открытием файла экселя

[---FISHER---]

Заметил, что такой глюк начинается сразу после внесения изменений в код, и команды Save All , возможно проблема в указании адреса?

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

Выше описанно почему пришлось прибегнуть к такому указанию адреса