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

时间:2013-12-10 03:14:42

标签: excel excel-vba filenames vba

我有一个原始的excel文件,每次我必须将其保存为特定文件中的新版本,其特定名称基于单元格D7中的名称i键,而不覆盖原始文件。我尝试录制宏,但无法使其更具动态性(根据单元格D7中的名称i键命名)。感谢帮助...

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

1 个答案:

答案 0 :(得分:0)

这是你在尝试的吗?

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