高考问答支付宝pos机申请流程:vb中如何判断某个应用程序已经打开？
来源：百度文库 编辑：高考问答 时间：2024/05/04 19:35:39
我在用vb写程序的过程中，需要复制一个word文档 （用FileCopy） ，当这个文档已经打开的时候，系统出错。请问如何判断我要复制 的这个文档是否已经打开呢？
我用了一个方法是：
'检测是否有word、Excel文档打开
Dim winHwnd As Long
Dim winHwnd As Long
winHwnd = FindWindow("XLMain", vbNullString)
winHwnd2 = FindWindow("OpusApp", vbNullString)
If winHwnd <> 0 Or winHwnd2 <> 0 Then
MsgBox "Excel或Word已经被打开，请关闭后重试"
Exit Sub
End If
但问题是这样需要关闭所有的word ，excel文档，有没有方法只 检测我要copy的文件是否已经打开？
我用了一个方法是：
'检测是否有word、Excel文档打开
Dim winHwnd As Long
Dim winHwnd As Long
winHwnd = FindWindow("XLMain", vbNullString)
winHwnd2 = FindWindow("OpusApp", vbNullString)
If winHwnd <> 0 Or winHwnd2 <> 0 Then
MsgBox "Excel或Word已经被打开，请关闭后重试"
Exit Sub
End If
但问题是这样需要关闭所有的word ，excel文档，有没有方法只 检测我要copy的文件是否已经打开？