使用单元格值创建子文件夹遇「路径未找到76」错误求解决

我来帮你搞定这个文件夹创建的问题，你遇到的76号「文件夹路径未找到」错误，本质是对VBA里MkDir函数的使用误区导致的。

错误原因分析 #

MkDir函数有个关键限制：它只能创建单一层级的文件夹，而且要求这个文件夹的所有上层父文件夹必须已经存在。

你的拼接后完整路径是：
C:\Users\Paul\Documents\Battle wars\Nikki jules\Fallen Kingdom\night watch
这是三级嵌套的子文件夹结构，直接调用MkDir的话，系统会先检查Nikki jules这个父文件夹是否存在——显然它还没创建，所以就会抛出「路径未找到」的76号错误。

两种可行解决方案 #

方案1：用FileSystemObject递归创建（推荐） #

FileSystemObject是VBA里专门处理文件/文件夹的工具，它的CreateFolder方法支持递归创建多级嵌套文件夹，不管中间有多少层不存在的父文件夹，都会一次性自动创建完成，非常省心。

代码示例：

Sub CreateNestedFolders()
    Dim fso As Object
    Dim folder1 As String
    Dim fullPath As String
    
    ' 获取G1中的路径片段
    folder1 = Range("G1").Value
    ' 拼接完整目标路径
    fullPath = "C:\Users\Paul\Documents\Battle wars\" & folder1
    
    ' 后期绑定FileSystemObject，无需手动添加引用
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 检查文件夹是否已存在，不存在则创建
    If Not fso.FolderExists(fullPath) Then
        fso.CreateFolder fullPath
        MsgBox "嵌套文件夹创建成功！"
    Else
        MsgBox "该文件夹已存在，无需重复创建！"
    End If
    
    ' 释放对象
    Set fso = Nothing
End Sub

方案2：手动拆分路径逐级创建（无需额外对象） #

如果你不想用FileSystemObject，可以自己写逻辑把路径拆分成每一级，然后从根目录开始逐个检查、创建父文件夹：

Sub CreateNestedFoldersManual()
    Dim folder1 As String
    Dim fullPath As String
    Dim pathParts() As String
    Dim currentPath As String
    Dim i As Integer
    
    folder1 = Range("G1").Value
    fullPath = "C:\Users\Paul\Documents\Battle wars\" & folder1
    
    ' 按反斜杠拆分路径为数组
    pathParts = Split(fullPath, "\")
    
    ' 初始化根目录（比如C:\）
    currentPath = pathParts(0) & "\"
    
    ' 遍历每一级路径，逐个创建
    For i = 1 To UBound(pathParts)
        currentPath = currentPath & pathParts(i) & "\"
        ' 检查当前路径是否存在，不存在则创建
        If Dir(currentPath, vbDirectory) = "" Then
            MkDir currentPath
        End If
    Next i
    
    MsgBox "嵌套文件夹创建成功！"
End Sub

额外注意事项 #

• 确保你的Excel有访问目标目录的权限（比如C:\Users\Paul\Documents是用户有权限的路径，避免系统目录这类受保护的位置）。
• 检查G1单元格的路径内容是否包含Windows不允许的特殊字符（比如: * ? " < > |），如果有需要先清理这些字符。

内容的提问来源于stack exchange，提问作者Rj M