새 위치에 특정 이름을 사용하여 파일을 새 버전으로 저장합니다.

Question

원본 파일의 이름을 특정 이름으로 사용하여 특정 파일에 새 버전으로 저장해야 할 때마다 원본 Excel 파일이 있습니다. 셀 D7, 원래 파일을 덮어 쓰지 않고. 그러나 매크로를 기록하려고하면 더 동적으로 만들지 못합니다 (이름은 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 

Answer 1

이게 뭡니까?

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