⑴ VB6.0如何判斷excel文件是否已打開
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
這三句的AS後面都加NEW關鍵字
不支持推薦的on error resume next
on error resume next是不負責任地一種用法
簡直是掩耳盜鈴，自欺欺人
⑵ vb6 判斷word文件是否打開
判斷指定的WORD文檔是否被打開的函數代碼如下：
Function WordDocIsOpen(ByVal strDocName As String) As Boolean
Dim objWordApp As Object
Dim objWordDoc As Object
On Error Resume Next '此句不能少
strDocName = UCase(strDocName)
Set objWordApp = GetObject(, "Word.Application")
For Each objWordDoc In objWordApp.Documents
If UCase(objWordDoc.FullName) = strDocName Then
WordDocIsOpen = True
Exit For
End If
Next
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Function
調用代碼：
Private Sub main()
If WordDocIsOpen("e:/1.doc") Then
MsgBox "該文檔已被打開"
Else
MsgBox "該文檔未被打開"
End If
End Sub
⑶ 如何用vb探測一個文件夾是否打開
判斷一個文件夾或某個文件是否被打開，有一種非常簡單的方法就是：採用Api函數GetWindowText即可搞定，你查查GetWindowText函數的具體用法，沒必要用鉤子技術。只要使用一個時鍾控制項、實時判斷當前標題欄的文字是否等於你所指定的或者說要加以監控的文件夾或文件名，如果相等即表示「文件夾打開，並做出相應的反應」。