如何检查文件夹是否存在，如果不存在则创建它？

您是否曾经尝试过从Excel工作表中检查某个文件夹是否存在？在本文中，我将讨论如何检查指定路径下是否存在某个文件夹，如果不存在，则会自动在该路径下创建文件夹。

使用VBA代码检查特定文件路径下文件夹是否存在

使用VBA代码在特定文件路径下创建不存在的文件夹

使用VBA代码检查特定文件路径下文件夹是否存在

以下VBA代码可以帮助您检查特定文件路径下是否存在某个文件夹，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：检查特定文件路径下文件夹是否存在：

Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice
    Dim sFolderPath As String
    sFolderPath = "C:\Users\DT168\Desktop\Test folder"
    If Right(sFolderPath, 1) <> "\" Then
        sFolderPath = sFolderPath & "\"
    End If
    If Dir(sFolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Folder doesn't exist", vbInformation, "Kutools for Excel"
    End If
End Sub

注意：在上述代码中，您应将文件夹路径和名称 C:\Users\DT168\Desktop\Test folder 更改为所需的路径和名称。

3. 然后按 F5 键运行此代码，您将获得以下结果：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用VBA代码在特定文件路径下创建不存在的文件夹

检查文件路径下是否存在文件夹，如果不存在，则在此特定文件路径下创建它，以下VBA代码可以帮助您完成此任务。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：如果文件路径下文件夹不存在则创建它：

Sub MakeMyFolder()
'Updateby Extendoffice
    Dim fdObj As Object
    Application.ScreenUpdating = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    If fdObj.FolderExists("C:\Users\DT168\Desktop\Test folder") Then
        MsgBox "Found it.", vbInformation, "Kutools for Excel"
    Else
        fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
        MsgBox "It has been created.", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

注意：在上述代码中，您应将文件夹路径和名称 C:\Users\DT168\Desktop\Test folder 更改为所需的路径和名称。

3. 粘贴代码后，按 F5 键运行它：

（1）如果文件夹存在，将弹出如下截图所示的提示框：

（2）如果文件夹不存在，它将立即在特定路径下创建，并弹出一个提示框提醒您文件夹已创建，见截图：