返回列表 上一主題 發帖

[發問] 請問此判斷區網檔案是否處於開啟狀態的指令,如何做修正

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-5 11:17 | 只看該作者

[發問] 請問此判斷區網檔案是否處於開啟狀態的指令,如何做修正

本帖最後由 starry1314 於 2015-8-5 11:22 編輯

目前可正常判斷檔案狀態,但不知如何修改可讓在未開啟狀態的時候 執行
  1. Workbooks.Open "\\客服\客戶維護區\A區\客戶明細.xlsm"
複製代碼
須放在 Sub 開啟A區() 內,或是再MsgBox "檔案" & IIf(IsFileOpen(strPath), "他人使用中,不可開啟", "未遭他人開啟,可使用") 可設定不可開啟則結束程式,
可使用則繼續執行下一步則可將開啟檔案放在下一段
  1. Sub 開啟A區()
  2.         Dim strPath As String
  3.         strPath = "\\客服\客戶維護區\A區\客戶明細.xlsm"

  5.         If Len(Dir(strPath)) = 0 Then
  6.            Workbooks.Open "\\客服\客戶維護區\A區\客戶明細.xlsm"
  7.             
  8.         Else
  9.             MsgBox "檔案" & IIf(IsFileOpen(strPath), "他人使用中,不可開啟", "未遭他人開啟,可使用")
  10.         End If
  11.     End Sub
複製代碼
  1. Function IsFileOpen(strFile As String) As Boolean
  2.         Dim iFile As Integer
  3.         Dim iErr As Integer
  4.          
  5.         On Error Resume Next
  6.         iFile = FreeFile()
  7.         Open strFile For Input Lock Read As #iFile  '以鎖定方式開啟，開啟指定檔案後直接關閉檔案
  8.         Close iFile
  9.          
  10.         iErr = Err  '將錯誤號碼帶入iErr變數中，然後依照數字即可得知檔案狀態
  11.         On Error GoTo 0
  12.         Select Case iErr
  13.             Case 0
  14.                 IsFileOpen = False
  15.                
  16.             Case 70
  17.                 IsFileOpen = True
  18.             Case 53
  19.                 MsgBox "找不到檔案，請再確認！"
  20.                 IsFileOpen = False
  21.             Case 76
  22.                 MsgBox "找不到路徑，請再確認！"
  23.                 IsFileOpen = False
  24.         End Select
  25.     End Function
複製代碼
收藏 分享

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題