Jak zapisać nazwę pliku Excela ze znacznikiem czasu?
Czy kiedykolwiek próbowałeś zapisać plik Excela z aktualną sygnaturą czasową? Ten artykuł pokaże Ci, jak to osiągnąć.
Zapisz nazwę pliku Excela z sygnaturą czasową z kodem VBA
Zapisz nazwę pliku Excela z sygnaturą czasową z kodem VBA
Możesz uruchomić poniższy kod VBA, aby zapisać nazwę pliku Excel z sygnaturą czasową. Wykonaj następujące czynności.
1. W skoroszycie musisz nadać mu nazwę według aktualnego znacznika czasu, naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. w Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do pliku Code okno. Zobacz zrzut ekranu:
Kod VBA: Zapisz nazwę pliku Excel ze znacznikiem czasu (zastąp nazwę pliku znacznikiem czasu)
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. wciśnij F5 klucz do uruchomienia kodu. Następnie Zapisz jako pojawi się okno dialogowe, możesz zobaczyć sygnaturę czasową wyświetlaną w polu Nazwa pliku. Określ lokalizację, w której chcesz zapisać ten plik, a następnie kliknij Zapisz przycisk. Zobacz zrzut ekranu:
Uwagi:
1. Nowo utworzony plik Excel zostanie zapisany bezpośrednio z nazwą aktualnego znacznika czasu.
2. W przypadku już istniejących plików Excel oryginalna nazwa pliku zostanie zastąpiona znacznikiem czasu.
Jeśli chcesz tylko dodać znacznik czasu, a następnie oryginalną nazwę pliku zamiast go zastępować, zastosuj poniższy kod VBA.
Kod VBA: Zapisz nazwę pliku Excel ze znacznikiem czasu (wstaw znacznik czasu, a następnie oryginalną nazwę pliku)
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
Powiązane artykuły:
- Jak zapisać arkusz roboczy jako plik PDF i wysłać go e-mailem jako załącznik za pośrednictwem programu Outlook?
- Jak korzystać z funkcji Zapisz jako, aby automatycznie nadpisać istniejący plik w programie Excel?
- Jak zapisać, wyeksportować wiele / wszystkie arkusze, aby oddzielić pliki CSV lub tekstowe w programie Excel?
- Jak wyłączyć lub nie zezwolić na opcje Zapisz i zapisz jako w programie Excel?
- Jak wyłączyć zapisywanie skoroszytu, ale zezwalać tylko na zapisywanie tak, jak w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!