如果不存在 VBA 创建文件夹 - VBA

有时候，在 VBA 程序中需要使用到文件夹，但是如果这个文件夹不存在，代码就会出错。因此，我们需要在程序中加入一段代码，用于检查文件夹是否存在，如果不存在，则创建文件夹。

检查文件夹是否存在

要检查文件夹是否存在，可以使用 Dir 函数。Dir 函数可以返回一个字符串，表示指定路径下的第一个文件或文件夹。如果指定的路径不存在，则返回空字符串。

Dim path As String
path = "C:\Users\UserName\Desktop\TestFolder"

If Dir(path, vbDirectory) = "" Then
    ' 文件夹不存在
End If

上面的代码中，Dir(path, vbDirectory) 表示检查指定路径下是否存在文件夹。如果文件夹不存在，则 Dir 函数返回空字符串（即 ""）。

创建文件夹

如果文件夹不存在，我们需要使用 MkDir 函数创建文件夹。

Dim path As String
path = "C:\Users\UserName\Desktop\TestFolder"

If Dir(path, vbDirectory) = "" Then
    ' 文件夹不存在，创建文件夹
    MkDir path
End If

上面的代码中，MkDir path 表示创建指定路径的文件夹。

完整代码示例

下面是完整的代码示例：

Sub CreateFolderIfNotExists()
    Dim path As String
    path = "C:\Users\UserName\Desktop\TestFolder"

    If Dir(path, vbDirectory) = "" Then
        ' 文件夹不存在，创建文件夹
        MkDir path
    End If
End Sub

当你运行这个代码时，它会检查 C:\Users\UserName\Desktop\TestFolder 文件夹是否存在，如果不存在，则创建这个文件夹。

结论

以上就是在 VBA 中检查文件夹是否存在并创建文件夹的方法。这个方法可以确保在程序中使用到文件夹时，不会出现问题。