Jak uložit název souboru Excel s časovým razítkem?
Zkusili jste někdy uložit soubor aplikace Excel s aktuálním časovým razítkem? Tento článek vám ukáže způsob, jak toho dosáhnout.
Uložte název souboru Excel s časovou značkou s kódem VBA
Uložte název souboru Excel s časovou značkou s kódem VBA
Spuštěním níže uvedeného kódu VBA můžete uložit název souboru aplikace Excel s časovým razítkem. Postupujte prosím následovně.
1. V sešitu jej musíte pojmenovat podle aktuálního časového razítka, stiskněte Další + F11 současně otevřete Okno Microsoft Visual Basic pro aplikace.
2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do Kód okno. Viz snímek obrazovky:
Kód VBA: Uložte název souboru aplikace Excel s časovým razítkem (nahraďte název souboru časovým razítkem)
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. zmáčkni F5 klíč ke spuštění kódu. Pak Uložit jako Zobrazí se dialogové okno, v poli Název souboru se zobrazí časové razítko. Určete umístění pro uložení tohoto souboru a poté klikněte na Uložit knoflík. Viz screenshot:
Poznámky:
1. Nově vytvořený soubor Excel bude uložen přímo s názvem aktuálního časového razítka.
2. U již existujících souborů aplikace Excel bude původní název souboru nahrazen časovým razítkem.
Pokud chcete místo nahrazení pouze přidat časové razítko následované původním názvem souboru, použijte níže uvedený kód VBA.
Kód VBA: Uložte název souboru aplikace Excel s časovým razítkem (vložte časové razítko následované původním názvem souboru)
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
Související články:
- Jak uložit list jako soubor PDF a poslat jej e-mailem jako přílohu prostřednictvím aplikace Outlook?
- Jak používat funkci Uložit jako k automatickému přepsání existujícího souboru v aplikaci Excel?
- Jak ukládat, exportovat více / všechny listy do samostatných souborů CSV nebo textových souborů v aplikaci Excel?
- Jak zakázat nebo nepovolit možnosti Uložit a Uložit jako v aplikaci Excel?
- Jak zakázat ukládání sešitu, ale povolit pouze ukládání jako v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!