如何判断Excel文件是否打开

    Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As StringByVal iReadWrite As LongAs Long
    
Private Declare Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As LongAs Long

    
'       判断某文件是否在使用中       
    Public Function IsFileAlreadyOpen(ByVal FileName As StringAs 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 = -1And (lastErr = 32)
    
End Function


    
Private Sub Command1_Click()
        
Dim strFileName As String
        strFileName 
= "d:/050304_chengji.xls"                   '       你的文件       
        If IsFileAlreadyOpen(strFileName) Then
            
MsgBox("指定文件已打开")
        
Else
            
MsgBox("指定文件未打开")
        
End If
    
End Sub
 
今天作程序的时候发现的问题,上网搜了一下发现这个程序不错,于是就留在这里共大家参考,希望对大家有所帮助,与人方便,与己更方便!
展开阅读全文

没有更多推荐了,返回首页