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

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

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

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

For i = Workbooks.Count To 1 Step -1If Workbooks(i).Name = sWkbName ThenExit ForEnd IfNext‘如果工作簿未找到If i = 0 ThenIsWkbOpened = FalseElseIsWkbOpened = TrueEnd IfEnd Function

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

Sub IfWkbOpened()If IsWkbOpened("Book2.xls") ThenMsgBox "指定的工作簿已打开"ElseMsgBox "指定的工作簿没有打开"End IfEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。