VBA 中创建目录

在 VBA 中，我们可以使用 MkDir 函数创建目录。

语法

创建目录的语法如下：

MkDir path

其中，path 参数表示要创建的目录路径。

示例

以下是一个示例代码，用于创建一个名为 TestFolder 的目录：

Sub CreateFolder()
    Dim folderPath As String
    folderPath = "C:\Users\username\Desktop\TestFolder\"
    
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
        MsgBox "目录创建成功！"
    Else
        MsgBox "目录已存在！"
    End If
End Sub

在这个示例中，我们首先定义了一个变量 folderPath 来表示要创建的目录路径。然后，我们使用 Dir 函数来判断该目录路径是否已经存在。如果该目录不存在，则使用 MkDir 函数创建该目录，并弹出一个消息框提示用户创建成功。如果目录已经存在，则弹出一个消息框提示用户目录已经存在。

注意事项

• 在指定目录路径时，必须使用反斜杠 \ 而非正斜杠 /。
• 如果要创建的目录路径已经存在，MkDir 函数将会抛出一个“路径已存在”的错误。因此，在创建目录前应该先使用 Dir 函数来检查目录是否已经存在。
• MkDir 函数只能创建单个目录，无法同时创建多个目录。如果要同时创建多个目录（例如 C:\Users\username\Desktop\TestFolder\SubFolder1\SubFolder2\），则需要分别调用 MkDir 函数创建每个目录。

以上就是在 VBA 中创建目录的方法。