如何使用 VBA 创建目录

VBA (Visual Basic for Applications) 是一种用于自动化任务和宏编程的编程语言，常用于 Microsoft Office 套件中的各种应用程序，如 Excel、Word、PowerPoint 等。

判断目录是否存在

在 VBA 中，可以使用 Dir 函数来判断一个目录是否存在。Dir 函数返回指定路径中第一个符合条件的文件或目录的名称，如果找不到符合条件的文件或目录，它会返回一个空字符串。

以下是一个示例代码片段，用于判断目录是否存在：

Function DirectoryExists(path As String) As Boolean
    DirectoryExists = (Dir(path, vbDirectory) <> "")
End Function

使用示例：

Sub Main()
    Dim directoryPath As String
    directoryPath = "C:\MyDirectory"
    
    If DirectoryExists(directoryPath) Then
        MsgBox "目录已存在！"
    Else
        MsgBox "目录不存在！"
    End If
End Sub

创建目录

如果目录不存在，你可以使用 MkDir 函数来创建目录。MkDir 函数接受一个参数，即要创建的目录的路径。

以下是一个示例代码片段，用于创建目录：

Sub CreateDirectory(directoryPath As String)
    If Not DirectoryExists(directoryPath) Then
        MkDir directoryPath
        MsgBox "目录创建成功！"
    Else
        MsgBox "目录已存在！"
    End If
End Sub

使用示例：

Sub Main()
    Dim directoryPath As String
    directoryPath = "C:\MyDirectory"
    
    CreateDirectory directoryPath
End Sub

总结

通过上述代码片段，你可以使用 VBA 判断一个目录是否存在，并在目录不存在时创建目录。VBA 提供了一系列的文件与目录相关函数，帮助你在编程中处理文件和目录操作。

以上内容仅为简单介绍，你可以根据实际需求拓展功能，更多详细的 VBA 相关信息和函数可参考相关文档和教程。