Question

VB问题：请问有没有一段稍微简单点的代码来判断某excel文件(例如 d:\a.xls)是否已打开？

Answer 1

On Error Resume Next
Name "c:\test.xls" As "c:\test2.xls"
if Err.Number=75 then
msgbox "文件已打开！"
else
On Error Resume Next
Name "c:\test2.xls" As "c:\test.xls"
endif
这个应该是够简单的了吧？不用后台打开Excel程序来判断。