Hogyan mentse az Excel fájlnevet időbélyeggel?
Próbált már valaha Excel fájlt menteni az aktuális időbélyeggel? Ez a cikk bemutatja az elérés módját.
Mentse el Excel fájlnevét időbélyegzővel VBA kóddal
Mentse el Excel fájlnevét időbélyegzővel VBA kóddal
Az alábbi VBA-kód futtatásával Excel-fájlnév menthető időbélyeggel. Kérjük, tegye a következőket.
1. A munkafüzetben meg kell neveznie az aktuális időbélyeggel, nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Modulok. Ezután másolja az alábbi VBA kódot a Kód ablak. Lásd a képernyőképet:
VBA-kód: Mentsen el egy Excel-fájlnevet időbélyeggel (a fájlnevet cserélje ki időbélyeggel)
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. megnyomni a F5 gombot a kód futtatásához. Aztán a Mentés másként megjelenik a párbeszédpanel, láthatja az időbélyeget a Fájlnév mezőben. Kérjük, adja meg a fájl mentésének helyét, majd kattintson a gombra Megtakarítás gomb. Lásd a képernyőképet:
Megjegyzések:
1. Az újonnan létrehozott Excel fájl közvetlenül az aktuális időbélyegző nevével kerül mentésre.
2. A már létező Excel fájlok esetében az eredeti fájlnevet az időbélyeg helyettesíti.
Ha csak időbélyeget szeretne hozzáadni az eredeti fájlnévhez, ahelyett, hogy lecserélné, használja az alábbi VBA-kódot.
VBA-kód: Mentsen el egy Excel-fájlnevet időbélyeggel (illessze be az időbélyeget, majd az eredeti fájl nevét)
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
Kapcsolódó cikkek:
- Hogyan menthetünk egy munkalapot PDF fájlként és e-mailben csatolmányként az Outlook segítségével?
- Hogyan használhatjuk a Mentés másként funkciót az Excel meglévő fájljának automatikus felülírásához?
- Hogyan mentse el, exportálja több / az összes lapot különálló csv- vagy szövegfájlok elkülönítésére az Excel-ben?
- Hogyan lehet letiltani vagy nem engedélyezni a Mentés és mentés másként opciókat az Excelben?
- Hogyan tilthatja le a munkafüzet mentését, de csak az Excelben engedélyezett mentést engedélyezheti?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!