Conas ainm comhaid Excel a shábháil le stampa ama?
An ndearna tú iarracht riamh comhad Excel a shábháil leis an stampa ama reatha? Taispeánfaidh an t-alt seo modh duit chun é a bhaint amach.
Sábháil ainm comhaid Excel le stampa ama le cód VBA
Sábháil ainm comhaid Excel le stampa ama le cód VBA
Is féidir leat an cód VBA thíos a rith chun ainm comhaid Excel a shábháil le stampa ama. Déan mar a leanas le do thoil.
1. Sa leabhar oibre is gá duit é a ainmniú de réir an stampa ama reatha, brúigh an Eile + F11 eochracha ag an am céanna chun an Fuinneog Microsoft Visual Basic for Applications.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil Ionsáigh > Modúil. Ansin cóipeáil an cód VBA thíos sa cód fuinneog. Féach an pictiúr:
Cód VBA: Sábháil ainm comhaid Excel le stampa ama (cuir stampa ama in ionad ainm an chomhaid)
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. Brúigh an F5 eochair chun an cód a rith. Ansin a Sábháil Mar tagann bosca dialóige aníos, is féidir leat an stampa ama a thaispeáint sa bhosca ainm comhaid. Sonraigh suíomh le do thoil chun an comhad seo a shábháil, agus ansin cliceáil ar an Sábháil cnaipe. Féach an pictiúr:
nótaí:
1. Sábhálfar an comhad nua Excel cruthaithe le hainm an stampa ama reatha go díreach.
2. Dóibh siúd a bhfuil comhad Excel acu cheana féin, cuirfear an stampa ama in ionad ainm bunaidh an chomhaid.
Mura dteastaíonn uait ach an stampa ama a chur leis agus an bunainm comhaid ina dhiaidh sin seachas é a athsholáthar, cuir an cód VBA thíos i bhfeidhm le do thoil.
Cód VBA: Sábháil ainm comhaid Excel le stampa ama (Cuir isteach stampa ama agus ainm an chomhaid bunaidh ina dhiaidh)
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
Earraí gaolmhara:
- Conas bileog oibre a shábháil mar chomhad PDF agus í a sheoladh ar ríomhphost mar cheangaltán trí Outlook?
- Conas feidhm Save As a úsáid chun an comhad atá ann cheana in Excel a fhrithscríobh go huathoibríoch?
- Conas bileoga iolracha / uile-bhileoga a shábháil, a easpórtáil chuig comhaid csv nó téacs ar leithligh in Excel?
- Conas roghanna Sábháil & Sábháil Mar Excel a dhíchumasú nó gan iad a cheadú?
- Conas leabhar oibre a dhíchumasú ach sábháil mar a cheadaítear in Excel amháin?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!