摘要： 有时我们需要用VBA代码判断某个文件夹或文件是否存在，以便进行后续操作。可以用下面的代码来实现这个功能： Public Function FileFolderExists(strFullPath As String) As Boolean
...
有时我们需要用VBA代码判断某个文件夹或文件是否存在，以便进行后续操作。可以用下面的代码来实现这个功能：
Public Function FileFolderExists(strFullPath As String) As Boolean
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
On Error GoTo 0
End Function
将上述代码放入标准模块中，如果指定的文件夹或文件存在，FileFolderExists返回True。调用上述代码的方法：
1.判断文件夹是否存在：
EXCEL如何使用VBA一次罗列表中三省的员工姓名？
请罗列“四川省”、“湖南省”、“湖北省”三个省份员工的资料。 VBA代码如下： Sub test()‘定义变量Dim rng As Range, RngTemp As Range, firstAddress As StringDim
Public Sub TestFolderExistence()
If FileFolderExists("c:\windows\") Then
MsgBox "指定的文件夹存在！"
Else
MsgBox "指定的文件夹不存在！"
End If
End Sub
将代码中的“c:\windows\”换成指定的文件夹，“c:\windows\”也可以写成“c:\windows”，即不要后面的“\”。
2.判断文件是否存在：
Public Sub TestFileExistence()
If FileFolderExists("d:\Book1.xls") Then
MsgBox "指定的文件存在！"
Else
MsgBox "指定的文件不存在！"
End If
End Sub
EXCEL 公式 多列转成一行图解教程
EXCEL 公式 2列多行转成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/2,0)-1,MOD(COLUMN(B1),2)) EXCEL 公式 多列转成一行图解教程 3列多行转成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/3,0)-1,MOD(COLUMN(C1),3)
