путь к файлу delphi

[N.i.k.o.l.a.y.]

Доброго времени суток! Есть программа, полностью написанная и работоспособная. Но работает только в том случае если заранее указать полный путь к файлу excel.
Собственно вот код:

Excel := CreateOleObject('Excel.Application');
Excel.DisplayAlerts:=False;
Excel.Workbooks.Open['kniga.xls', 0, True];

ГРУППЫ.rar

[Sciv]

Если файл excel лежит в папке с программой, попробуйте так:

Excel := CreateOleObject('Excel.Application');
Excel.DisplayAlerts:=False;
Excel.Workbooks.Open[ExtractFilePath(Application.ExeName)+'\kniga.xls', 0, True];

если там же, но в подпапках - то дописать перед kniga.xls путь относительно каталога с программой (например. если лежит в папке с прогой, подпапке temp):

Excel := CreateOleObject('Excel.Application');
Excel.DisplayAlerts:=False;
Excel.Workbooks.Open[ExtractFilePath(Application.ExeName)+'\temp\kniga.xls', 0, True];

[phomm]

Excel.Workbooks.Open[ParamStr(0) + 'kniga.xls', 0, True];

?
Код в архиве не смотрел.
пс. уже аналогично ответили.. надо приучать себя обновлять вкладку перед постом..

[kta87]

А что если добавить TOpenDialog? например как нибудь так:

if OpenDialog.Execute then Excel.Workbooks.Open[OpenDialog.FileName, 0, True];

[Sciv]

А что если добавить TOpenDialog?

Можно и так, но не всегда. Предположим, в книга1 хранится некий постоянный шаблон отчета, который программно заполняется и привязан к единственному пункту меню. Тогда нет смысла каждый раз указывать, какой файл открывать.

А в общем случае - можно и через диалог.

[kta87]

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

некий постоянный шаблон отчета

Тогда пост № 2

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

А в общем случае - можно и через диалог.

Я и написал как один из вариантов.

[N.i.k.o.l.a.y.]

Сделал все по совету Sciv все пока работает, спасибо огромное