在操作工作簿的时候,常常需要先判断工作簿是否存在。常常使用Dir函数判断,具体看下面代码。
a=Dir(带文件名称的路径)
文件不存在,a返回:
文件存在,a返回文件名称:
Dir函数是一个非常有用的函数,常常用来遍历多个工作簿。具体用法请自行百度学习。在这里只需要依样画葫芦就可以了。
下面用自定义函数来判断工作表是否存在,仍然是上面的栗子。
Function FileExists(sFile As String) As Boolean
'sFile是带文件名称的全路径
If Dir(sFile) <> '' Then FileExists = True
End Function
当文件存在的时候FileExists返回true。
自定义函数往往更方便使用。
联系客服