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

试试
sub test()
On Error Resume Next
x = "V发运统计表.xls" '''''写需要检测的文件
Set xs = Workbooks(x)
If Err.Number = 0 Then
Biaozhi = "True" '文件已打开
Else
Biaozhi = "False" '文件未打开
End If
set xs=nothing
Err.Clear
end sub
楼上的方法在打开文件很多时，执行效率要低一些，它需要检测所有的文件，二种方法都能用，你随便选 吧

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

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