在VBA中，怎么用代码判断一个excel文本是否打开4

发布网友发布时间：2023-10-27 03:20

共3个回答

热心网友时间：2024-12-12 09:07

试试
sub test()
On Error Resume Next
x = "V发运统计表.xls" '''''写需要检测的文件
Set xs = Workbooks(x)
If Err.Number = 0 Then
Biao = "True" '文件已打开
Else
Biao = "False" '文件未打开
End If
set xs=nothing
Err.Clear
end sub
楼上的方法在打开文件很多时，执行效率要低一些，它需要检测所有的文件，二种方法都能用，你随便选吧追问其实我只是想检查那个一个EXCEL文本(如：222.xls）打开没有，因为我在另外一个EXCEL里做了一个VBA用户窗口，需要往222.XLS里插入数据，需要222.XLS是打开的，不然就报错，所以我想在插入前加一个判断功能，判断222.xls是否打开了,如果没有打开，弹出MSGBOX提示打开，如果已经打开就接着执行插入，现在就是不知道判断是否打开不会弄！

追答如果文件已经打开，你就可以不用管它了
如果文件未打开，你可以处理else后的语句，如添加打开文件语句
Application.Workbooks.Open (路径 & "222.xls")
所有语句只要放到你的按钮事件中即可
至于Biao = "True"你可以删掉，我程序当中的，没高兴改

热心网友时间：2024-12-12 09:08

试试
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

热心网友时间：2024-12-12 09:08

试试
Sub isfileopen()
Dim x As Integer
For x = 1 To Workbooks.Count
If Workbooks(x).Name = "8888.xls" Then
MsgBox "文件已打开"
Exit Sub
End If
Next x
MsgBox "文件未打开"
End Sub