Excel 파일 이름을 타임스탬프와 함께 저장하는 방법은 무엇입니까?

현재 타임스탬프로 Excel 파일을 저장해 본 적이 있습니까? 이 문서에서는 이를 달성하기 위한 방법을 보여드리겠습니다.

VBA 코드를 사용하여 타임스탬프가 포함된 Excel 파일 이름 저장하기

VBA 코드를 사용하여 타임스탬프가 포함된 Excel 파일 이름 저장하기

아래 VBA 코드를 실행하여 타임스탬프가 포함된 Excel 파일 이름을 저장할 수 있습니다. 아래 단계를 따르세요.

1. 현재 타임스탬프로 이름을 지정해야 하는 통합 문서에서 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하세요. 그런 다음 아래 VBA 코드를 코드 창에 복사합니다. 스크린샷 보기:

VBA 코드: 타임스탬프가 포함된 Excel 파일 이름 저장하기 (파일 이름을 타임스탬프로 바꾸기)

Sub SaveAsFilenameWithTimestamp()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xWb.Name, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
  xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub

3. F5 키를 눌러 코드를 실행합니다. 그러면 다른 이름으로 저장 대화 상자가 나타나며, 파일 이름 상자에 타임스탬프가 표시됩니다. 파일을 저장할 위치를 지정한 후 저장 버튼을 클릭하세요. 스크린샷 보기:

참고:

1. 새로 생성된 Excel 파일은 현재 타임스탬프 이름으로 직접 저장됩니다.

2. 이미 존재하는 Excel 파일의 경우 원래 파일 이름이 타임스탬프로 바뀝니다.

원래 파일 이름을 바꾸는 대신 타임스탬프를 추가하려면 아래 VBA 코드를 적용하세요.

VBA 코드: 타임스탬프가 포함된 Excel 파일 이름 저장하기 (원래 파일 이름 뒤에 타임스탬프 삽입)

Sub AddTimestampToFileName()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrOldName = xWb.Name
xStr = Left(xStrOldName, Len(xStrOldName) - 5)
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xStrOldName, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
  xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

관련 기사:

• 워크시트를 PDF 파일로 저장하고 Outlook을 통해 첨부 파일로 이메일 보내는 방법은 무엇입니까?
• Excel에서 기존 파일을 자동으로 덮어쓰기 위해 다른 이름으로 저장 기능을 사용하는 방법은 무엇입니까?
• Excel에서 여러 시트/모든 시트를 별도의 CSV 또는 텍스트 파일로 저장하거나 내보내는 방법은 무엇입니까?
• Excel에서 저장 및 다른 이름으로 저장 옵션을 비활성화하거나 허용하지 않는 방법은 무엇입니까?
• Excel에서 통합 문서 저장을 비활성화하고 다른 이름으로만 저장하도록 허용하는 방법은 무엇입니까?