如何在VBA路径字符串中加入单元格值指定工作簿保存文件夹

嗨！作为VBA新手，你遇到的这个路径拼接问题其实挺常见的，我来帮你梳理下代码里的问题，再给出修正后的方案～

首先你的原代码有几个小问题：

• 变量赋值顺序错误：你先定义了Path并赋值，但这时候FileName1还没被赋值，所以路径里的FileName1是空的，根本起不到指定子文件夹的作用
• 字符串拼接语法错误：你把FileName1直接写在路径的引号里了，VBA会把它当成普通文本，而不是引用你定义的变量
• 路径末尾的斜杠位置不对，容易导致后续拼接文件名时出错

下面是修正后的完整代码，我会标注关键说明：

Dim Path As String
Dim FileName1 As String
Dim FileName2 As String

' 先给变量赋值：先获取单元格里的内容，再用来拼路径
FileName1 = Range("B6").Value  ' 获取B6的值作为子文件夹名
FileName2 = Range("A1").Value  ' 获取A1的值作为文件名

' 拼接基础路径 + 子文件夹名，注意末尾要加斜杠确保路径格式正确
Path = "D:\folder1\folder2\Projects\The FILES\theFILES\" & FileName1 & "\"

' 可选：检查路径是否存在，不存在就创建（避免保存失败）
If Dir(Path, vbDirectory) = "" Then
    MkDir Path
End If

' 保存工作簿，拼接完整的文件名
ActiveWorkbook.SaveAs Filename:=Path & FileName2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

几个关键的注意点：

• 一定要先给变量赋值，再拼接路径，不然变量是空的，路径就会出错
• 字符串和变量拼接必须用&符号连接，不能直接把变量嵌在引号里
• 路径末尾记得加\，否则子文件夹名会和文件名连在一起，导致保存路径错误
• 建议加上.Value明确获取单元格的值，虽然VBA默认会取Value，但这样代码更清晰规范
• 如果单元格里的内容可能包含Windows不允许的文件名/文件夹名字符（比如/:\*?"<>|），最好提前做替换处理，避免创建路径或保存文件失败

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