Excel 在新位置使用特定名称将文件另存为新版本

我有一个原始的excel文件，每次我都必须将其保存为一个新版本，并根据我在单元格D7中输入的名称使用特定的名称保存在一个特定的文件中，而不覆盖原始文件。我尝试录制宏，但未能使其更具动态性（根据我在单元格D7中键入的名称命名它）。谢谢你的帮助

Sub Macro4()
    Range("D7").Select
    ActiveCell.FormulaR1C1 = "walaoei"
    ActiveWorkbook.SaveAs Filename:="C:\Users\kutan\Desktop\walaoei.xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

---

这就是你想要的吗

Sub Macro4()
    Range("D7").Value = "walaoei"
    ActiveWorkbook.SaveAs FileName:="C:\Users\kutan\Desktop\" & _
                          Range("D7").Value & ".xlsm", _
                          FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                          CreateBackup:=False
End Sub

---

您好，如果我希望文件名是我在单元格D7中输入的任何名称，这意味着如下第一步：我打开原始文件第二步：我在单元格D7中输入名称第三步：运行宏以基于名称保存文件我只需在单元格D7中输入而不覆盖原始文件。请执行此操作？只需删除行

范围（“D7”）.Value=“walaoei”

从上述代码中删除，然后执行您在上一条评论中提到的操作。感谢pro，它可以正常工作。这很简单，但我花了几个小时思考，我需要更多的锻炼。唉。。。。