怎样判断一个文件是否打开？

Question

怎样判断一个文件是否打开？
具体遇到的问题是，在我的程序中，要判断一个EXCEL文件是否处于打开状态，然后分支进一步处理
比如:"E:\III.xls"，我怎样在程序中判断它是否打开？

Answer 1

其他方法我不知道
用ZwQuerySystemInformation+NtQueryObject可以完成

Answer 2

Dim MyXL As Object
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err = 0 Then
    Debug.Print MyXL.Workbooks(1).FullName
    If LCase(MyXL.Workbooks(1).FullName) = "e:\iii.xls" Then
        MsgBox "工作薄已打开。"
    End If
End If
Set MyXL = Nothing
试试看吧