Смена выбора книги

[demon-sheff]

Добрый день! Подскажите пожалуйста, у меня есть следующий код:

Excel.WorkBooks.Open (ExtractFilePath(ParamStr(0)) + 'Книга1.xls');

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

Буду очень признателен...

[Utkin]

ну вот же имя - 'Книга1.xls' Вместо него заведи переменную в которой будет то имя файла, которое тебе нужно

[demon-sheff]

сделал вот так:

Edit1.Text:=OpenDialog1.FileName;
Excel := CreateOleObject('Excel.Application' );
Excel.WorkBooks.Open (ExtractFilePath(ParamStr(0)) + Edit1.Text);

Выдал ошибку и дело даже не в формате пробовал менять его ошибка остается та же самая (((

Пробовал и так:

Edit1.Text:=OpenDialog1.FileName;
j:= Edit1.Text;
Excel := CreateOleObject('Excel.Application' );
Excel.WorkBooks.Open (ExtractFilePath(ParamStr(0)) + j); то же самое выдает

[demon-sheff]

Все спасибо разобрался!!!! Тему можно закрыть.

[Аватар]

if OpenDialog1.Execute then begin
  Excel:=CreateOleObject('Excel.Application');
  Excel.WorkBooks.Open(OpenDialog1.FileName);
end;

Все спасибо разобрался!!!! Тему можно закрыть.

А я старался, зря