Текущий архив: 2003.05.12;
Скачать: CL | DM;

Вниз

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)

---

← →
Separator ©   (2003-04-30 11:23) [5]

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.05.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.009 c