vba怎么excel判断打开，如果打开就关闭
答案:2 悬赏:60 手机版
解决时间 2021-02-15 01:54
- 提问者网友：两耳就是菩提
- 2021-02-14 15:03
vba怎么excel判断打开，如果打开就关闭
最佳答案
- 五星知识达人网友：神鬼未生
- 2021-02-14 15:20
Dim wbk As Workbook
On Error Resume Next
Set wbk = Workbooks("123.xls")'判断123.xls是否打开
If wbk Is Nothing Then
MsgBox "没有打开"
Else
Workbooks("123.xls").close
End If
On Error Resume Next
Set wbk = Workbooks("123.xls")'判断123.xls是否打开
If wbk Is Nothing Then
MsgBox "没有打开"
Else
Workbooks("123.xls").close
End If
全部回答
- 1楼网友：街头电车
- 2021-02-14 16:39
试试
sub aa()
dim x as integer
for x = 1 to workbooks.count
if workbooks(x).name = "判断的文件名.xls" then
msgbox "文件已打开"
exit sub
end if
next x
msgbox "文件未打开"
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯