Kako shraniti ime datoteke Excel s časovnim žigom?
Ste že kdaj poskušali shraniti datoteko Excel s trenutnim časovnim žigom? Ta članek vam bo pokazal način, kako to doseči.
Shranite ime datoteke Excel s časovnim žigom s kodo VBA
Shranite ime datoteke Excel s časovnim žigom s kodo VBA
Spodnjo kodo VBA lahko zaženete, da shranite ime datoteke Excel s časovnim žigom. Naredite naslednje.
1. V delovnem zvezku ga morate poimenovati po trenutnem časovnem žigu, pritisnite tipko druga + F11 tipke hkrati, da odprete Okno Microsoft Visual Basic for Applications.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v Koda okno. Oglejte si posnetek zaslona:
Koda VBA: Shranite ime Excelove datoteke s časovnim žigom (zamenjajte ime datoteke s časovnim žigom)
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. Pritisnite F5 tipko za zagon kode. Potem a Shrani kot Pojavi se pogovorno okno, v polju Ime datoteke si lahko ogledate časovni žig. Določite mesto za shranjevanje te datoteke in nato kliknite Shrani . Oglejte si posnetek zaslona:
Opombe:
1. Novo ustvarjena datoteka Excel bo neposredno shranjena z imenom trenutnega časovnega žiga.
2. Pri že obstoječih datotekah Excel bo prvotno ime datoteke nadomeščeno s časovnim žigom.
Če želite samo dodati časovni žig, ki mu sledi izvirno ime datoteke, namesto da bi ga zamenjali, uporabite spodnjo kodo VBA.
Koda VBA: Shranite ime Excelove datoteke s časovnim žigom (vstavite časovni žig, ki mu sledi izvirno ime datoteke)
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
Sorodni članki:
- Kako shraniti delovni list kot datoteko PDF in ga poslati kot prilogo prek Outlooka?
- Kako uporabiti funkcijo Shrani kot za samodejni prepis obstoječe datoteke v Excelu?
- Kako shraniti, izvoziti več / vseh listov v ločene datoteke CSV ali besedila v Excelu?
- Kako onemogočiti ali ne dovoliti možnosti Shrani in shrani kot v Excelu?
- Kako onemogočiti shranjevanje delovnega zvezka, vendar dovoli samo shranjevanje kot v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!