作者:乔山办公网日期:
返回目录:excel表格制作
可以使用如下几个函数来判断
Function ExistsFile_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")
ExistsFile_UseFso = fso.FileExists(strPath)
Set fso = Nothing
End Function
Function FolderExists_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")
FolderExists_UseFso = fso.FolderExists(strPath)
Set fso = Nothing
End Function
Function FileOrFolderExists_UseDir(strPath As String) As Boolean
'注意,使用 DIR 函数来检测文件或者文件夹是否存在在局域网e68a84e8a2ade79fa5e98193332环境下
'由于访问权限问题可能会出错
If Dir(strPath) = "" Then
1和0
可以利用VBA判断指定路径下是否存在某个文件来夹。
工具:Office2013
方法如下源:
1.利用VBA判定当百前工作簿所在文件夹中,是否存在一个“度鱼木混猪”的文件夹:
2.在Excel中按下Alt+F11,输入代码如下:
3.F5执行代码,如果文件夹存在,就显示知如下图:
不存在,怎道会弹窗显示“不存在”。
alt+f11插入模zd块
Option Explicit
Function checkfile(r As range)
If Dir(r.Value) <> "" Then
checkfile = True
Else
checkfile = False
End If
End Function
然后假定你要版检查a1的文件是否存在,就可权以
=IF(checkfile(A1),"是","否")
关于,一般有如下的两种方式。 请根据情况,选择一种适合你的方法。 一、通过FileExists判断文件是否存在 Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.FileExists("E:\dzwebs\Pic\logo.gif" ) = True Then MsgBox "文件存在" Else MsgBox "文件不存在" End If 以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:\dzwebs\Pic\logo.gif"为文件路径及文件名称,可自行修改。 二、通过Dir来判断 Dim YouFile As String YouFile = Dir("E:\MyPictures\Pic\logo.gif") If x <> "" Then MsgBox "文件存在" Else MsgBox "文件不存在" Endif "E:\MyPictures\Pic\logo.gif"为文件路径及文件名称,可自行修改。当然,如上代码,也在VBA下使用,可自作成为宏或函数都可以。 上面的两种方法,本站推荐你使用第一种方法,因为第e69da5e887aae799bee5baa6e997aee7ad94365一种方法比较符合逻辑思维。