Excel

← →
Лана Розанова © (2003-04-30 10:20) [0]

Как программно запустить файл Excel. (чтобы и сам excel запустился и файл нужный)
СПАСИБО!!!

← →
PGM © (2003-04-30 10:24) [1]

ShellExecute поможет.

← →
Навичек (2003-04-30 10:38) [2]

Я так делал.... мож конечно и замутно но работает

Var
wrdApp:TWordApplication;
....

wrdApp:=TWordApplication.Create(Self);
with wrdApp do
begin
ConnectKind := ckRunningOrNew;
AutoConnect := True;
AutoQuit := False;
Visible:=True;
end;
OpenDoc(AppPath+"DocName.rtf");
WrdApp.free; //(WrdApp.Disconnect что то еще такое было точно не помню)

procedure OpenDoc(FileName:String);
var
True_, False_, DocumentFileName,BlankStr,FormatOption: OleVariant;
begin
False_ := False;
True_ := True;
BlankStr := "";
FormatOption:= wdOpenFormatAuto;
DocumentFileName := FileName;
wrdApp.Documents.Open(DocumentFileName, False_, False_,
False_, BlankStr, BlankStr, False_, BlankStr, BlankStr,FormatOption);
end;

← →
Лана Розанова © (2003-04-30 11:19) [3]

Так надо хендл знать... с ShellExecute

← →
Separator © (2003-04-30 11:21) [4]

ShellExecute(0, "open", "Книга1.xls", nil, nil, SW_RESTORE)

ShellExecute(Application.Handle, "open", "Книга1.xls", nil, nil, SW_RESTORE)

Спасибо, получилось.

Excel Найти похожие ветки