用VBA判断指定的excel工作簿是否打开

如果要判断一个指定的工作簿是否打开，可以将下面的VBA代码放入标准模块中，然后在子过程中进行调用。

Function IsWkbOpened(sWkbName As String) As Boolean
‘如果目标工作簿已打开则返回TRUE，否则返回FALSE
Dim i As Long

For i = Workbooks.Count To 1 Step -1
If Workbooks(i).Name = sWkbName Then
Exit For
End If
Next
‘如果工作簿未找到
If i = 0 Then
IsWkbOpened = False
Else
IsWkbOpened = True
End If
End Function

调用示例如下，将“Book2.xls”换成指定的工作簿名称：

Sub IfWkbOpened()
If IsWkbOpened("Book2.xls") Then
MsgBox "指定的工作簿已打开"
Else
MsgBox "指定的工作簿没有打开"

WPS之家https://www.qiangguoshuo.com

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/42384.html