经常看见vba的IsFileExists显示出函数或子过程未定义,我的问题就是IsFileExists函数没写所以出问题,在相应的模块下加如下代码即可:
Function IsFileExists(ByVal strFileName As String) As Boolean
Dim objFileSystem As Object
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
If objFileSystem.fileExists(strFileName) = True Then
IsFileExists = True
Else
IsFileExists = False
End If
End Function