Ինչպե՞ս պահպանել Excel ֆայլի անունը ժամանակային դրոշմակնիքով:
Երբևէ փորձե՞լ եք պահպանել Excel ֆայլ ներկայիս ժամանակային դրոշմակնիքով: Այս հոդվածը ցույց կտա ձեզ դրան հասնելու մեթոդը:
Պահեք Excel ֆայլի անունը VBA կոդով ժամանակային դրոշմակնիքով
Պահեք Excel ֆայլի անունը VBA կոդով ժամանակային դրոշմակնիքով
Դուք կարող եք գործարկել ստորև նշված VBA կոդը ՝ Excel ֆայլի անունը ժամանակային դրոշմակնիքով պահպանելու համար: Խնդրում եմ արեք հետևյալ կերպ.
1. Աշխատանքային գրքում անհրաժեշտ է այն անվանել ըստ ընթացիկ ժամանակագրության, խնդրում ենք սեղմել կոճակը ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան:
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևի VBA կոդը ՝ Կոդ պատուհան Տեսեք,
VBA կոդ. Պահպանեք Excel ֆայլի անունը ժամանակի դրոշմով (ֆայլի անունը փոխարինեք ժամանակի դրոշմով)
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. Սեղմեք F5 ծածկագիրը գործելու համար: Հետո ա Պահել As երկխոսության պատուհանը բացվում է, դուք կարող եք տեսնել Fileամկետային դրոշմը, որը ցուցադրվում է File name վանդակում: Խնդրում ենք նշել այս ֆայլը պահելու վայրը, այնուհետև կտտացրեք այն Փրկել կոճակ Տեսեք,
Notes:
1. Նոր ստեղծված Excel ֆայլը կպահպանվի ուղղակիորեն ներկայիս ժամանակագրական դրոշմի անվանմամբ:
2. Արդեն գոյություն ունեցող Excel ֆայլի համար բնօրինակ ֆայլի անունը կփոխարինվի ժամանակագրական դրոշմով:
Եթե դուք ցանկանում եք ավելացնել միայն ժամանակի դրոշմը, որին հաջորդում է սկզբնական ֆայլի անունը, այն փոխարինելու փոխարեն, խնդրում ենք կիրառել ստորև ներկայացված VBA կոդը:
VBA կոդ. Պահպանեք Excel ֆայլի անունը ժամանակի դրոշմակնիքով (տեղադրեք ժամանակի դրոշմը, որին հաջորդում է բնօրինակ ֆայլի անունը)
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
Առնչվող հոդվածներ:
- Ինչպե՞ս պահպանել աշխատանքային թերթը որպես PDF ֆայլ և էլեկտրոնային փոստով ուղարկել այն որպես հավելված Outlook- ի միջոցով:
- Ինչպե՞ս օգտագործել Save As գործառույթը ՝ Excel- ում առկա ֆայլը ավտոմատ կերպով վերագրելու համար:
- Ինչպե՞ս պահպանել, արտահանել բազմաթիվ / բոլոր թերթերը Excel- ում առանձնացնել CSV կամ տեքստային ֆայլեր:
- Ինչպե՞ս անջատել կամ թույլ չտալ Excel- ում Save & Save As ընտրանքները:
- Ինչպե՞ս անջատել աշխատանքային գրքի պահպանումը, բայց միայն թույլատրել պահպանել, ինչպես Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: