⑴ 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函数的具体用法，没必要用钩子技术。只要使用一个时钟控件、实时判断当前标题栏的文字是否等于你所指定的或者说要加以监控的文件夹或文件名，如果相等即表示“文件夹打开，并做出相应的反应”。