VBA技术问询：如何基于活动工作表指定单元格内容生成新文件名并另存工作簿

没问题，我来帮你调整代码！你的思路完全正确，但原代码里直接用Range("D1:D2")作为文件名是行不通的——这个引用指向的是一个单元格区域，不是可以直接用的字符串。我们需要把D1和D2的内容拼接成合法文件名，再结合路径完成保存。

修正后的完整代码 #

Sub SaveAs_Ex1()
    Dim fileName As String
    Dim savePath As String
    Dim fullFileName As String
    
    ' 拼接D1和D2的内容，中间加空格（符合你要的"日期 名称"格式）
    fileName = Range("D1").Value & " " & Range("D2").Value
    
    ' 使用你提供的基准保存路径，也可以自动获取原文件路径（看注释）
    savePath = "G:\PRODUCTION\Service\"
    ' 如果想自动适配原文件所在文件夹，替换上面一行：
    ' savePath = ActiveWorkbook.Path & "\"
    
    ' 组合完整的文件路径+名称，保留xlsm宏文件格式
    fullFileName = savePath & fileName & ".xlsm"
    
    ' 两种保存方式二选一：
    ' 1. 保存副本，原文件保持打开状态（推荐新手用，不会误操作原文件）
    ActiveWorkbook.SaveCopyAs Filename:=fullFileName
    
    ' 2. 另存为新文件，当前窗口切换到新文件（需要指定宏文件格式）
    ' ActiveWorkbook.SaveAs Filename:=fullFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

关键细节说明 #

• 单元格内容拼接：用Range("D1").Value单独获取每个单元格的文本，再用&连接空格和D2的内容，就能得到你想要的"04-29-22 Example"格式。
• 路径处理：我直接用了你提供的基准路径，如果你想让代码更灵活，替换成savePath = ActiveWorkbook.Path & "\"，新文件就会自动保存在原文件的同一个文件夹里。
• 宏文件格式：因为原文件是带宏的.xlsm，如果用SaveAs方法，必须指定FileFormat:=xlOpenXMLWorkbookMacroEnabled，否则会默认保存为无宏的.xlsx，导致宏丢失；而SaveCopyAs会自动继承原文件格式，不用额外设置。
• 避坑提示：要确保D1和D2的内容里没有Windows文件名的非法字符（比如/ \ : * ? " < > |），否则保存会失败。可以加个简单检查：

' 新增：检查文件名是否包含非法字符
Dim invalidChars As String
invalidChars = "/\:*?""<>" & "|"
If InStr(fileName, invalidChars) > 0 Then
    MsgBox "文件名包含非法字符，请修改D1或D2的内容！"
    Exit Sub
End If

这样修改后，就能完美实现用指定单元格内容作为新文件名的需求啦～

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