如何判断一个excel文件是否已经打开

Question

我想在VBA中用open方法打开一个excel文件，但如果该文件已经打开了，则会提示”该文件已经打开，重新打开会造成数据丢失“之类的话，请问能否判断一个文件是否已经打开或有什么别的方法解决这个部题。（打开文件时一定不能弹出任何对话框）。

Answer 1

Err.Clear
 F.CopyFile App.Path & "\db\工资.xls", App.Path & "\file\工资" & Format(Date, "YYYY_MM_DD") & ".xls"
       If Err.Number Then
           MsgBox App.Path & "\file\工资" & Format(Date, "YYYY_MM_DD") & ".xls  已打开,再次打开失败", 0 + vbCritical, "天鹰提示"
           Exit Sub
       End If