用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 "指定的工作簿没有打开"

End If

End Sub

分享给朋友:
您可能感兴趣的文章:
随机阅读: