Sut i arbed enw ffeil Excel gyda stamp amser?
A ydych erioed wedi ceisio arbed ffeil Excel gyda'r stamp amser cyfredol? Bydd yr erthygl hon yn dangos dull i chi ei gyflawni.
Cadwch enw ffeil Excel gyda stamp amser gyda chod VBA
Cadwch enw ffeil Excel gyda stamp amser gyda chod VBA
Gallwch chi redeg y cod VBA isod i arbed enw ffeil Excel gyda stamp amser. Gwnewch fel a ganlyn.
1. Yn y llyfr gwaith mae angen i chi ei enwi yn ôl y stamp amser cyfredol, pwyswch y Alt + F11 allweddi ar yr un pryd i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch y cod VBA isod i'r Côd ffenestr. Gweler y screenshot:
Cod VBA: Arbedwch enw ffeil Excel gyda stamp amser (newid enw'r ffeil gyda stamp amser)
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. Gwasgwch y F5 allwedd i redeg y cod. Yna a Save As blwch deialog yn ymddangos, gallwch weld y stamp amser yn arddangos yn y blwch enw Ffeil. Nodwch leoliad i gadw'r ffeil hon, ac yna cliciwch ar y Save botwm. Gweler y screenshot:
Nodiadau:
1. Bydd y ffeil Excel newydd a grëwyd yn cael ei chadw gydag enw'r stamp amser cyfredol yn uniongyrchol.
2. Ar gyfer y rhai sydd eisoes yn bodoli yn ffeil Excel, bydd enw'r stamp gwreiddiol yn cael ei ddisodli gan y stamp amser.
Os mai dim ond am ychwanegu stamp amser yr ydych am ychwanegu enw'r ffeil wreiddiol yn hytrach na'i ddisodli, cymhwyswch y cod VBA isod.
Cod VBA: Arbedwch enw ffeil Excel gyda stamp amser (mewnosodwch stamp amser ac yna enw'r ffeil gwreiddiol)
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
Erthyglau perthnasol:
- Sut i gadw taflen waith fel ffeil PDF a'i hanfon trwy e-bost fel atodiad trwy Outlook?
- Sut i ddefnyddio swyddogaeth Save As i drosysgrifo'r ffeil bresennol yn Excel yn awtomatig?
- Sut i arbed, allforio taflenni lluosog / pob taflen i wahanu ffeiliau csv neu destun yn Excel?
- Sut i analluogi neu beidio â chaniatáu opsiynau Cadw ac Arbed Fel yn Excel?
- Sut i analluogi arbed llyfr gwaith ond caniatáu arbed fel yn Excel yn unig?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!