[VBA 엑셀매크로] SaveAs 다른 이름으로 저장하기(오늘 날짜 파일명에 자동 넣기)

Sub 매크로()

 '변수선언
   Dim Dir As String

   Filename = ActiveWorkbook.FullName '현재 파일 이름
   Dir = ActiveWorkbook.Path  '현재파일 경로
   savedate = Format(Date, "yy-mm-dd") '오늘날짜 형식 
 
 '실행코드
    ActiveWorkbook.SaveAs Filename:=Dir & "\" & savedate & "_파일이름" & ".csv", _
                FileFormat:=xlCSVUTF8, CreateBackup:=False
              
 End Sub

 

실행결과