如何判断word或Excel文件是否处于打开状态

翻箱倒柜搞了一点存货，拿来献宝了

先说明我不是程序员，所以无法为你进一步解读，好在这几段语句还算通俗易懂。

***********************************

Function IsFileOpen(FileName As String)
    Dim iFilenum As Long
    Dim iErr As Long
    
    On Error Resume Next
    iFilenum = FreeFile()
    Open FileName For Input Lock Read As #iFilenum
    Close iFilenum
    iErr = Err
    On Error Goto 0
    
    Select Case iErr
    Case 0:    IsFileOpen = False
    Case 70:   IsFileOpen = True
    Case Else: Error iErr
    End Select
    
End Function
 
Sub test()
    If Not IsFileOpen("C:\MyTest\volker2.xls") Then
        Workbooks.Open "C:\MyTest\volker2.xls"
    End If
End Sub
 **********************************
Option Explicit

Function IsRunning(ByVal myAppl As String) As Boolean
Dim applRef As Object
On Error Resume Next

Set applRef = GetObject(, myAppl)
    If Err.Number = 429 Then
        IsRunning = False
    Else
        IsRunning = True
    End If
    'clear object variable
    Set applRef = Nothing
End Function
***********************************
Function DocExists(ByVal mydoc As String) As Boolean
    On Error Resume Next
    If Dir(mydoc) <> "" Then
        DocExists = True
    Else
        DocExists = False
    End If
End Function