VBA常用技巧代码解析

鱼求雨

万丈高楼平地起,都1240层啦,诲人不倦,令人敬仰!

yuanzhuping

技巧167         查找指定工作簿是否打开
       如果需要判断指定名称的工作簿是否已经打开，除了使用技巧43 的方法外，还可以使用与技巧166 类似的自定义函数，如下面的代码所示。

1. #001  Function ExistWorkbook(WbName As String) As Boolean
   
2. #002      Dim wb As Workbook
   
3. #003      On Error Resume Next
   
4. #004      Set wb = Workbooks(WbName)
   
5. #005      If Err.Number = 0 Then ExistWorkbook = True
   
6. #006      Set wb = Nothing
   
7. #007  End Function

复制代码

代码解析：
       自定义ExistWorkbook函数判断指定名称的工作簿是否已经打开。
       第5行代码判断前面的赋值语句是否存在错误。如果没有指定名称的工作簿，则第4行代码会产生错误，自定义ExistWorkbook函数返回False。
       下面使用自定义ExistWorkbook函数判断名称为“Excel Home”的工作簿是否已经打开，如果没有打开则使用消息框进行提示，如图所示。

1. #001  Sub NotWorkbook()
   
2. #002      If Not (ExistWorkbook("Excel Home")) Then MsgBox "对不起,Excel Home工作簿没有打开!"
   
3. #003  End Sub

复制代码

dimou

非常感谢楼主的东西，有例子和说明学起来是不错，的当年看《精粹》感觉一样，打印出来学习

wangtian

太感动了,正因为有这么多的不辞辛苦的无私奉献的人,才有我们这EXCELHOME的人气旺盛

httpsu

衷心的感谢！
不胜感激！

andy_excelhome

支持您为我们这些EXCEL VBA菜鸟们犧牲奉獻；
在这里，本人由衷地感谢您的功绩！谢谢！谢谢！谢谢~~~~~~
期待后续精彩内容!

andy_excelhome

感谢袁老师无私的奉献.
我是负责采购的,有很多表格或统计界面要开发, 袁老师图文并茂的解释很有帮助!
我代表从此文档受益的所有人向你表示感谢: 辛苦了!

aaff

谢谢，祝您端午节快乐

suco

Thank you very much! Very appreciate your effort.

Collinexcel

来一次，感激一次啊