Excel VBA 判断是否打开了某个Excel文件
在使用Excel VBA的过程中,如何判断某个Excel文件是否打开?
示例:
Dim sFileName as String
Dim i as Integer
Dim bOpenFlag as boolean
bOpenFlag=False
sFileName="aaa.xlsx"
for i in Workbooks.Count
if sFileName=Workbooks(i).Name then
bOpenFlag=True
exit for
end if
next
if bOpenFlag=True then
msgbox "文件已打开",vbOkonly,"信息提示"
else
msgbox "文件未打开",vbOkonly,"信息提示"
end if
幸福都是奋斗出来的,努力奋斗才能梦想成真。坚持自律,约束自我,克制弱点,坚持努力,遇见更好的自己。