使用fso.CreateFolder创建文件夹遇阻，求VBA代码解决方案

你的VBA代码在执行fso.CreateFolder (savePath)时出错，排除路径长度问题后，核心原因大概率是目标路径包含多级未创建的父文件夹——FileSystemObject的CreateFolder方法只能创建单级文件夹，无法递归创建多层嵌套的路径。此外还有几个细节可能引发问题，以下是针对性的修复方案：

可能的问题点 #

• savePath是多层嵌套路径（如D:\NewFolder\SubFolder\Target），但父级文件夹不存在，CreateFolder无法直接创建全路径
• 路径中包含空格或特殊字符时，未做规范处理
• 代码中CreateFolder的括号写法虽语法合法，但可能引发隐性参数传递问题

修复后的完整代码 #

Sub KonwertujPliki()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sourceFullPath As String
    Dim fileName As String
    Dim savePath As String
    Dim newFileName As String
    Dim wb As Workbook
    Dim fso As Object
   
    Set ws = ThisWorkbook.Worksheets("Lista")
    Set fso = CreateObject("Scripting.FileSystemObject")
        
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
   
    For i = 2 To lastRow
        ' 用fso方法拼接完整源路径，自动处理斜杠问题
        sourceFullPath = fso.BuildPath(ws.Cells(i, "A").Value, ws.Cells(i, "B").Value)
        savePath = ws.Cells(i, "I").Value
        fileName = ws.Cells(i, "B").Value
               
        If fso.FileExists(sourceFullPath) Then
            ' 用fso提取文件名（不含扩展名），适配不同长度的扩展名
            newFileName = fso.GetBaseName(fileName) & ".xlsm"
            
            ' 递归创建多级目标文件夹
            CreateNestedFolder fso, savePath
          
            ' 捕获文件处理时的异常（如文件被占用、权限不足）
            On Error Resume Next
            Set wb = Workbooks.Open(sourceFullPath)
            If Err.Number = 0 Then
                wb.SaveAs fso.BuildPath(savePath, newFileName), FileFormat:=xlOpenXMLWorkbookMacroEnabled
                wb.Close SaveChanges:=False ' 已通过SaveAs保存，无需重复保存
            Else
                MsgBox "处理失败：" & sourceFullPath & vbCrLf & "错误信息：" & Err.Description
                Err.Clear
            End If
            On Error GoTo 0
        End If
    Next i
    
    MsgBox "文件处理完成。"
End Sub

' 辅助函数：递归创建多层嵌套文件夹
Sub CreateNestedFolder(fso As Object, folderPath As String)
    Dim parentPath As String
    ' 文件夹已存在则直接返回
    If fso.FolderExists(folderPath) Then Exit Sub
    ' 获取父级路径
    parentPath = fso.GetParentFolderName(folderPath)
    ' 递归创建父级文件夹（直到根目录）
    If Not fso.FolderExists(parentPath) Then
        CreateNestedFolder fso, parentPath
    End If
    ' 创建当前层级文件夹
    fso.CreateFolder folderPath
End Sub

关键修改说明 #

1. 递归创建多级文件夹：新增CreateNestedFolder函数，自动检查并创建所有父级文件夹，解决多层路径无法直接创建的核心问题
2. 路径拼接优化：使用fso.BuildPath替代手动拼接，自动处理路径末尾的斜杠，避免出现\\或缺失斜杠的错误
3. 文件名生成优化：改用fso.GetBaseName提取文件名，比Left(fileName, Len(fileName)-4)更可靠，适配扩展名长度不是4的文件
4. 错误捕获机制：添加异常捕获，处理文件被占用、权限不足等意外情况，并给出明确提示
5. 文件关闭优化：wb.Close SaveChanges:=False，避免重复保存原文件

额外排查建议 #

• 检查savePath是否包含Windows禁止的特殊字符（如? * : " < > |）
• 确认目标路径所在磁盘有足够空间，且当前用户具备写入权限

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