如题所述
试试下面的代码:
For Each Wb In WorkBooksIf Wb.Name="ABC.xls" Then '如果存在,表示已经打开
Else'不存在,表示没有打开,则可以用WorkBook.Open打开此文件
Set Wb1=Workbooks.Open "C:\ABC.xls"
End If
'打开后执行的操作语句
Next
温馨提示:答案为网友推荐,仅供参考
第1个回答 2017-08-08
if dir(dPath,vbDirectory)<>"" then msgbox "存在" end if