如何判断Excel文件是否打开

    Private Declare Function lOpen()Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
    Private Declare Function lClose()Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long

    '       判断某文件是否在使用中       
    Public Function IsFileAlreadyOpen()Function IsFileAlreadyOpen(ByVal FileName As String) As Boolean
        Dim hFile As Long
        Dim lastErr As Long
        hFile = -1                                                                                  '       初始化文件句柄.       
        lastErr = 0
        hFile = lOpen(FileName, &H10)

        If hFile = -1 Then                                                                       '       文件是否能正确打开并可共享       
            lastErr = Err.LastDllError
        Else
            lClose(hFile)
        End If
        IsFileAlreadyOpen = (hFile = -1) And (lastErr = 32)
    End Function

    Private Sub Command1_Click()Sub Command1_Click()
        Dim strFileName As String
        strFileName = "d:/050304_chengji.xls"                   '       你的文件       
        If IsFileAlreadyOpen(strFileName) Then
            MsgBox("指定文件已打开")
        Else
            MsgBox("指定文件未打开")
        End If
    End Sub 

今天作程序的时候发现的问题，上网搜了一下发现这个程序不错，于是就留在这里共大家参考，希望对大家有所帮助，与人方便，与己更方便！