全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3349
推到 Plurk!
推到 Facebook!

如何判斷某個Excel File是否已經被開啟了?

尚未結案
mnsf
初階會員


發表:104
回覆:90
積分:48
註冊:2003-11-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-05-11 14:29:03 IP:61.30.xxx.xxx 未訂閱
如題,要如何判斷某個Excel File是否已經被開啟了?
pillar62
資深會員


發表:9
回覆:324
積分:271
註冊:2002-04-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-05-11 15:19:59 IP:210.64.xxx.xxx 未訂閱
你好 可以參考一下http://delphi.ktop.com.tw/topic.php?TOPIC_ID=67134,其實不一定只能夠判斷Excel,大部分的檔案都可以判斷喔!! Pillar Wang
------
Pillar Wang
mnsf
初階會員


發表:104
回覆:90
積分:48
註冊:2003-11-25

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-05-11 16:37:05 IP:61.30.xxx.xxx 未訂閱
引言: 你好 可以參考一下http://delphi.ktop.com.tw/topic.php?TOPIC_ID=67134,其實不一定只能夠判斷Excel,大部分的檔案都可以判斷喔!! Pillar Wang
大大你好,謝謝你的回覆,請問三個問題: (1)True or False 代表已經開啟該檔案? (2)程式碼其中的if not Result then CloseHandle(HFileRes); 是什麼意思? (3)如果我開啟的檔案是唯讀的檔案,用此function也可以判斷得出來嗎? (因為剛剛試了一下,好像沒有作用耶?) function IsFileUsed(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end;
pillar62
資深會員


發表:9
回覆:324
積分:271
註冊:2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-05-11 17:16:00 IP:210.64.xxx.xxx 未訂閱
你好 1.True表示已經開啟. 2.呵呵,這個問題問的好,我去問一下我的師傅,在給你答案!!^____^ 3.唯讀的也是可以的!!我剛剛有測試過!! 以上!!請多多指教!! Pillar Wang
------
Pillar Wang
mnsf
初階會員


發表:104
回覆:90
積分:48
註冊:2003-11-25

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-05-11 17:30:27 IP:61.30.xxx.xxx 未訂閱
引言: 你好 1.True表示已經開啟. 2.呵呵,這個問題問的好,我去問一下我的師傅,在給你答案!!^____^ 3.唯讀的也是可以的!!我剛剛有測試過!! 以上!!請多多指教!! Pillar Wang
大大你好,謝謝你的回覆,我剛剛試了一下, 如果是開啟一個"C:\Book1.xls"的檔案,利用你所提供的function可以判斷得出來,可是如果是開啟一個網路芳鄰上的檔案(ex. \\192.168.XXX.XXX\DIR\Book1.xls),你所提供的function就會沒有判斷出來,不管該檔案是否開啟,都會回傳True。 請問,這樣的問題有辦法解決嗎?
pillar62
資深會員


發表:9
回覆:324
積分:271
註冊:2002-04-15

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-05-11 17:39:53 IP:210.64.xxx.xxx 未訂閱
你好 請問一下你的作業系統是什麼呢??因為我在win2000的作業系統下去作動作是沒有問題的耶!! Pillar Wang
------
Pillar Wang
mnsf
初階會員


發表:104
回覆:90
積分:48
註冊:2003-11-25

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-05-12 08:49:54 IP:61.30.xxx.xxx 未訂閱
引言: 你好 請問一下你的作業系統是什麼呢??因為我在win2000的作業系統下去作動作是沒有問題的耶!! Pillar Wang
Windows XP
mnsf
初階會員


發表:104
回覆:90
積分:48
註冊:2003-11-25

發送簡訊給我
#8 引用回覆 回覆 發表時間:2005-05-12 10:33:27 IP:61.30.xxx.xxx 未訂閱
引言:
引言: 你好 請問一下你的作業系統是什麼呢??因為我在win2000的作業系統下去作動作是沒有問題的耶!! Pillar Wang
Windows XP 補充說明一下:那個網路芳鄰上的資料夾是一個隱藏的資料夾,不知道會不會有影響? try FMsExcel := CreateOleObject('Excel.Application'); //開啟Excel Application except MessageDlg('您的電腦中無Excel!',mtInformation, [mbYes], 0) ; exit; end; FmsExcel.Application.workbooks.open('\\192.168.xxx.xxx\DIR$\Book1.xls'); //開啟已存在Excel File FMSExcel.Application.visible := True ;
chris_shieh
高階會員


發表:46
回覆:308
積分:240
註冊:2004-04-26

發送簡訊給我
#9 引用回覆 回覆 發表時間:2005-05-12 12:14:17 IP:61.58.xxx.xxx 未訂閱
Excel 應該不會允許你開啟檔名(不包含路徑)相同的檔案 所以可以利用try except 來攔截開啟錯誤的exception來判斷 @瞭解越多.懂得越少@
mnsf
初階會員


發表:104
回覆:90
積分:48
註冊:2003-11-25

發送簡訊給我
#10 引用回覆 回覆 發表時間:2005-05-12 14:22:02 IP:61.30.xxx.xxx 未訂閱
引言: Excel 應該不會允許你開啟檔名(不包含路徑)相同的檔案 所以可以利用try except 來攔截開啟錯誤的exception來判斷 @瞭解越多.懂得越少@
大大你好,謝謝你的回覆,我剛剛試了一下, 如果是直接在檔案總管,Double Click該Excel檔,第一次會開啟該Excel檔, 第二次就不會再開啟第二個Excel檔,如你所說的Excel 應該不會允許你開啟檔名(不包含路徑)相同的檔案;但是如果是用程式去開啟的話,就會出現第二個Excel檔,也就是說有兩個Excel被開啟,只是都是開啟同一個檔案。 所以我才會想要問各位大大,有什麼方法可以判斷該檔案是否已經被開啟了, 如果是的話,程式就不會再開啟第二次相同的檔案。
系統時間:2024-09-08 1:08:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!