VBA按单元格值创建文件夹并保存文件副本报错，求问题排查

核心问题分析 #

你的代码在ActiveWorkbook.SaveCopyAs行报错，根源是路径拼接逻辑错误和文件夹创建的路径缺失，具体问题点：

• MkDir创建文件夹时未指定完整路径，仅用单元格文本会导致在系统默认路径（而非工作簿所在路径）创建文件夹
• SaveCopyAs的路径缺少目录分隔符（\），导致路径格式非法，系统无法识别目标位置
• 未处理文件夹已存在的情况，重复执行代码会触发MkDir报错

修复后的代码 #

Dim path As String
Dim filename1 As String
Dim folderName As String 

path = ThisWorkbook.Path & "\"
folderName = Worksheets("Instructions").Range("B1").Text
filename1 = folderName & " Initial Comment Matrix"

' 判断文件夹是否存在，避免重复创建报错
If Dir(path & folderName, vbDirectory) = "" Then
    MkDir path & folderName
End If

Application.DisplayAlerts = False
' 拼接合法完整路径：工作簿路径\文件夹名\文件名.xlsm
ThisWorkbook.SaveCopyAs path & folderName & "\" & filename1 & ".xlsm"
Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "DONE"

关键修改说明 #

• 将原filename2重命名为folderName，语义更清晰，避免和文件名混淆
• 创建文件夹时使用完整路径path & folderName，确保在工作簿所在目录下生成目标文件夹
• 添加文件夹存在性判断，解决重复执行时的创建报错问题
• 修正SaveCopyAs的路径拼接逻辑，补充必要的目录分隔符，保证路径格式合法
• 替换ActiveWorkbook为ThisWorkbook，确保操作的是当前编写代码的工作簿（而非可能激活的其他工作簿）

内容的提问来源于stack exchange，提问作者Ryan Data Guy