檢查檔案是否存在

請問程式如何以IF 去檢查
檔案TEST.XLS 是否存在於 C:\

及
檔案 TEST1.XLS 是否已開啟

請指教

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-7-27 14:47 | 只看該作者

If Dir("C:\TEST.XLS") = Empty Then
MsgBox "文件不存在。"
End If
On Error Resume Next
Set B = Workbooks("TEST.XLS")
If Err.Number = 0 Then
MsgBox testfile & "檔案已開啟"
End If

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

3^#

發表於 2011-7-27 22:43 | 只看該作者

請問程式如何以IF 去檢查
檔案TEST.XLS 是否存在於 C:\

及
檔案 TEST1.XLS 是否已開啟

請指教
enoch 發表於 2011-7-27 14:13

這個可查不同EXCEL進程
參考: http://support.microsoft.com/kb/209189/zh-tw

Sub test()
Dim result As Integer
result = FileLocked("C:\TEST.XLS")
Select Case result
   Case Is = 76
      MsgBox ("路徑不存在。")
   Case Is = 75
      MsgBox ("文件不存在。")
   Case Is = 70
      MsgBox ("檔案已開啟")
   Case Is = 0
      MsgBox ("檔案正常")
Case Else
      MsgBox ("檔案有不明問題")
End Select
End Sub
Function FileLocked(strFileName As String) As Integer
On Error Resume Next
Open strFileName For Binary Access Read Write Lock Read Write As #1
Close #1
FileLocked = Err.Number
If Err.Number <> 0 Then
Err.Clear
End If
End Function

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

GBKEE