[Excel VBA] 오늘 날짜, 시간으로 파일 이름 저장하기

'Excel 2016' 기준으로 작성된 글입니다. VBA(Visual Basic for Application)는 엑셀에서 사용할 수 있는 사용자 정의 함수를 구현할 때 사용합니다. 자주 사용하는 기능과 함수를 소개합니다.

 

오늘 날짜, 시간으로 파일 이름 저장하기

 

파일 이름을 시간 개념으로 저장하기 위한 방법입니다.

 

1) 오늘 날짜로 저장하기 (2020-10-29.xlsm)

 

Sub DaySave()

    Dim fileName
    fileName = Format(Date, "yyyy/mm/dd")

    ActiveWorkbook.SaveAs fileName:="C:\Users\kumc\Desktop\" & fileName & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

현재 날짜로 저장하는 방법입니다. Date함수에서 연도와 월, 일을 문자열 형식으로 가져와 저장합니다.

 

ActiveWorkbook은 현재 사용중인 엑셀 파일을 지칭합니다. 현재 엑셀 파일을 SaveAs(다른이름으로 저장)합니다. 

 

fileName은 저장할 파일 이름을 지정하는 곳입니다. 

 

fileName:="파일 경로\파일 이름" 형태로 저장합니다. 보시다시피 fileName이라는 변수를 문자열 합산 연산자인 '&'을 이용하여 넣어주었고, 끝에 xlsm을 넣어줍니다. 

 

 

2) 현재 날짜 + 현재 시간으로 저장하기 (2020-10-29-17-06-05.xlsm)

 

Sub DaySave()

    Dim fileName
    fileName = Format(Now, "yyyy/mm/dd/hh/mm/ss")

    ActiveWorkbook.SaveAs fileName:="C:\Users\kumc\Desktop\" & fileName & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

현재 날짜와 현재 시간과 함께 저장하는 방법입니다. Now함수에서 연도와 월, 일, 그리고 시, 분, 초까지 문자열 형식으로 가져와 저장합니다.

 

 

3) 현재 시간으로 저장하기 (17-06-05.xlsm)

 

Sub DaySave()

    Dim fileName
    fileName = Format(Now, "hh/mm/ss")

    ActiveWorkbook.SaveAs fileName:="C:\Users\kumc\Desktop\" & fileName & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

위와 같은 형식으로 저장할 파일 이름을 문자열 형식으로 저장합니다.