Excel VBA 文件夹存在 - VBA

在 Excel VBA 中判断文件夹是否存在是非常常见的操作。通常情况下，我们需要在程序中创建新的文件夹或者从中读取文件。在这篇文章中，我们将讨论如何使用 VBA 代码检查文件夹是否存在，及如何在 Excel 中创建新的文件夹。

检查文件夹是否存在

我们可以使用 VBA 中的 Dir 函数来检查文件夹是否存在。以下是一个简单的 VBA 检查文件夹是否存在的示例代码：

Function FolderExists(folderPath As String) As Boolean
    On Error Resume Next
    If Len(Dir(folderPath, vbDirectory)) > 0 Then
        FolderExists = True
    Else
        FolderExists = False
    End If
End Function

这个函数将会接受一个类型为 String 的参数 folderPath，函数会返回一个类型为 Boolean 的值，如果文件夹存在则返回True，反之则返回 False。

演示代码：

Sub TestFolderExists()
    Dim folderPath As String
    folderPath = "C:\Users\Admin\Desktop\TestFolder"
    If FolderExists(folderPath) Then
        MsgBox "文件夹存在！"
    Else
        MsgBox "文件夹不存在！"
    End If
End Sub

该示例中，我们指定了一个名为 TestFolder 的文件夹路径，如果该文件夹存在，则会弹出一个“文件夹存在”消息框，否则会弹出一个“文件夹不存在”的消息框。

在 Excel 中创建新的文件夹

在 VBA 中创建新的文件夹也非常简单，我们可以使用 MkDir 函数。以下是一个简单的 VBA 在 Excel 中创建新的文件夹的示例代码：

Sub CreateNewFolder()
    Dim folderPath As String
    folderPath = "C:\Users\Admin\Desktop\TestFolder"
    If FolderExists(folderPath) Then
        MsgBox "文件夹已经存在！"
    Else
        MkDir folderPath
        MsgBox "文件夹已创建！"
    End If
End Sub

该示例中，我们检查了 TestFolder 文件夹是否存在。如果存在，则弹出一个“文件夹已经存在”的消息框。如果不存在，则调用 MkDir 函数创建该文件夹，并弹出一个“文件夹已创建”的消息框。

在 VBA 中检查文件夹是否存在，以及在 Excel 中创建新的文件夹都非常简单。使用上述代码来快速实现这些任务。