팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

시간 소인이있는 Excel 파일 이름을 저장하는 방법?

현재 타임 스탬프가있는 Excel 파일을 저장하려고 시도한 적이 있습니까? 이 기사에서는이를 달성하는 방법을 보여줍니다.

VBA 코드로 타임 스탬프가있는 Excel 파일 이름 저장

Office 탭 Office에서 탭 편집 및 찾아보기를 사용하고 훨씬 쉽게 작업 할 수 있습니다 ...
Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.
  • 무엇이든 재사용하십시오 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용하십시오.
  • 20 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트 일부 추출 또는 제거; 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서 및 시트를 하나로 통합합니다. 데이터 손실없이 여러 셀 / 행 / 열 병합 중복 행 병합 및 합계
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할; 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 하나의 열에서 여러 열로.
  • 건너 뛰기 붙여 넣기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 여러 전자 메일 수신자에게 개인화 된 전자 메일 보내기
  • 수퍼 필터 : 고급 필터 구성표를 작성하고 모든 시트에 적용하십시오. 종류 주별, 일별, 빈도 등으로; FILTER 굵게, 수식, 주석으로 ...
  • 300 이상의 강력한 기능; Office 2007-2019 및 365와 호환됩니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다.

화살표 오른쪽 파란색 거품 VBA 코드로 타임 스탬프가있는 Excel 파일 이름 저장


아래 VBA 코드를 실행하여 타임 스탬프가 포함 된 Excel 파일 이름을 저장할 수 있습니다. 다음과 같이하십시오.

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

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭하십시오. 끼워 넣다 > 모듈. 그런 다음 아래 VBA 코드를 암호 창문. 스크린 샷보기 :

VBA 코드 : 타임 스탬프가있는 Excel 파일 이름 저장

Sub test()
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As String
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
  xWb.SaveAs (xFileName)
Application.DisplayAlerts = True
End Sub

3. 누르세요 F5 키를 눌러 코드를 실행하십시오. 그 다음에 다른 이름으로 저장 대화 상자가 나타나면 파일 이름 상자에 타임 스탬프가 표시됩니다. 이 파일을 저장할 위치를 지정하십시오. 저장 단추. 스크린 샷보기 :

노트:

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

2. 기존 Excel 파일의 경우 원본 파일 이름이 타임 스탬프로 바뀝니다.

원본 파일 이름을 바꾸지 않고 타임 스탬프 만 추가하려면 아래 VBA 코드를 적용하십시오.

VBA 코드 : 타임 스탬프가있는 Excel 파일 이름 저장 (원본 파일 이름에 타임 스탬프 삽입)

Sub test()
Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFileName As String
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
  xWb.SaveAs (xFileName)
Application.DisplayAlerts = True
End Sub

화살표 오른쪽 파란색 거품관련 기사:


Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 수식, 차트 그리고 당신이 전에 사용했던 것; 셀 암호화 비밀번호로; 메일 링리스트 만들기 그리고 이메일을 보내 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집); 레이아웃 읽기 (많은 셀을 쉽게 읽고 편집); 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 분할 셀 내용; 중복 행 / 열 결합... 중복 세포 방지; 범위 비교...
  • 복제 또는 고유를 선택하십시오. 행; 빈 행 선택 (모든 세포는 비어있다); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 랜덤 선택 ...
  • 정확한 사본 공식 참조를 변경하지 않는 다중 셀; 참조 자동 작성 여러 장에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 소계 생성 및 인쇄; 셀 내용과 주석 간 변환...
  • 수퍼 필터 (필터 구성표를 저장하고 다른 시트에 적용); 고급 정렬 월 / 주 / 일별, 빈도 등; 특수 필터 대담하고 기울임 꼴로
  • 통합 문서와 WorkSheets 결합; 키 열을 기준으로 테이블 병합 데이터를 여러 시트로 분할; 일괄 변환 xls, xlsx 및 PDF...
  • 300 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다. 30 일 무료 평가판 전체 기능.
kte 탭 201905

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jason · 2 months ago
    This works except when the user presses the cancel button, it still creates a file called "false".
  • To post as a guest, your comment is unpublished.
    Ka Hung Li · 3 months ago
    Would it be possible to modify it to remove the previous timestamp and save it as in the same directory?
  • To post as a guest, your comment is unpublished.
    Nathan · 2 years ago
    You can't save files with : within the filename, if you change this to nbre = Format(Now, "yyyy-mm-dd hh-mm")
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Dear Nathan,
      The below VBA code can help to add the timestamp within the filename.

      Sub test()
      Dim xWb As Workbook
      Dim xStr As String
      Dim xStrOldName As String
      Dim xStrDate As String
      Dim xFileName As String
      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
      xWb.SaveAs (xFileName)
      Application.DisplayAlerts = True
      End Sub
  • To post as a guest, your comment is unpublished.
    ELIAS ARROYO · 2 years ago
    I have this below, which works perfect to save file with date stamp, BUT would not work if change to this to add time-> nbre = Format(Now, "yyyy-mm-dd hh:mm")


    nbre = Format(Now, "yyyy-mm-dd")


    Application.DisplayAlerts = False


    ChDir "T:\Distribution Center"
    ActiveWorkbook.SaveAs Filename:="T:\Distribution Center\2. BACKLOG\DC BACKLOG " + nbre + ".xlsx", FileFormat _
    :=xlOpenXMLWorkbook, WriteResPassword:="****", CreateBackup:=False



    Can you please help what is missning???....

    • To post as a guest, your comment is unpublished.
      dude · 3 months ago
      You cannot use the character ":" in file names
  • To post as a guest, your comment is unpublished.
    Matt · 2 years ago
    Is there a version of this that works for Word documents?