自定义函数:判断文件是否存在/工作簿是否打开

adders

这两个自定义函数应该是在VBA中运用比较广泛的,可以设为Public Function,以便各模块的Sub调用.

1. Public Function FileExists(fname) As Boolean     '判断该文件是否存在,是结果为True,否为False
   
2.     Dim x As String
   
3.     x = Dir(fname)
   
4.     If x <> "" Then FileExists = True
   
5. End Function

复制代码

1. 
   
2. Public Function IsWbOpen(wbName As String) As Boolean  '判断工作簿是否打开,是结果为True,否为False
   
3.     Dim i As Long
   
4.     For i = Workbooks.Count To 1 Step -1
   
5.         If Workbooks(i).Name = wbName Then Exit For
   
6.     Next
   
7.     If i <> 0 Then IsWbOpen = True
   
8. End Function

复制代码

Sub运用实例可参考此贴4楼:  http://www.excelpx.com/thread-229928-1-1.html

icer

好久没有写代码啦，看见这个代码好亲切

另类2011

刚开始学vba，有点神秘，收下了！！！！！