请帮帮我，急需解决 |
|
尚未結案
|
|
Fisher
一般會員   發表：1 回覆：0 積分：0 註冊：2004-08-10 發送簡訊給我 |
|
|
Fishman
尊榮會員   發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi Fisher, 假如僅僅祇是開檔案而已，用 ShellExecute 反而方便一點
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,'Open','C:\Book1.xls',NIL,NIL,SW_SHOW);
end; procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Application.Handle,'Open','C:\Test.doc',NIL,NIL,SW_SHOW);
end;
uses ShellApi
------
Fishman |
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
Fisher 你好:
uses OleCtrls, SHDocVw
var
WordObject : TWordObject; //開啟新的doc文件
try
if Assigned(WordObject) then
begin
WordObject.Free;
WordObject := nil;
end;
if not Assigned(WordObject) then
begin
WordObject := TWordObject.Create;
with WordObject do
begin
Caption := '我的文件';
Visible := True;
end;
end;
except
MessageDlg('無法開啟 Word 文件。', mtError, [mbOk], 0);
Abort;
end;
try
WordObject.NewDoc('');
except
if Assigned(WordObject) then
begin
WordObject.Free;
WordObject := nil;
MessageDlg('無法開啟 Word 文件。', mtError, [mbOk], 0);
Abort;
end;
end;
//開啟新的xls文件
uses comobj VAR
MyExcel: Variant; try
MyExcel := CreateOleOBject('Excel.Application');
MyExcel.WorkBooks.Add;
MyExcel.Visible := True;
MyExcel.WorkBooks[1].Saveas(FileName);
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,x 1] := '輸入的文字';
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,x 1].Select;
MyExcel.Selection.Font.Bold := true;
except
MyExcel.WorkBooks[1].Close(1);
MyExcel.Quit;
end;
try
MyExcel.WorkBooks[1].Close(1);
finally
MyExcel.Quit;
end;
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
發表時間：2004-08-10 20:42:36
IP:211.94.xxx.xxx 未訂閱
系統時間：2024-05-17 17:09:49
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |