एक्सेल फ़ाइल नाम को टाइमस्टैम्प के साथ कैसे सहेजें?
क्या आपने कभी एक्सेल फ़ाइल को वर्तमान टाइमस्टैम्प के साथ सहेजने का प्रयास किया है? यह आलेख आपको इसे प्राप्त करने की विधि दिखाएगा.
वीबीए कोड के साथ टाइमस्टैम्प के साथ एक्सेल फ़ाइल नाम सहेजें
वीबीए कोड के साथ टाइमस्टैम्प के साथ एक्सेल फ़ाइल नाम सहेजें
आप एक्सेल फ़ाइल नाम को टाइमस्टैम्प के साथ सहेजने के लिए नीचे दिए गए VBA कोड को चला सकते हैं। कृपया निम्नानुसार करें.
1. कार्यपुस्तिका में आपको इसे वर्तमान टाइमस्टैम्प के अनुसार नाम देना है, कृपया दबाएं ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक।
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करें कोड खिड़की। स्क्रीनशॉट देखें:
वीबीए कोड: एक्सेल फ़ाइल नाम को टाइमस्टैम्प के साथ सहेजें (फ़ाइल नाम को टाइमस्टैम्प से बदलें)
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 कोड चलाने की कुंजी. फिर एक इस रूप में सहेजें संवाद बॉक्स पॉप अप होता है, आप फ़ाइल नाम बॉक्स में प्रदर्शित टाइमस्टैम्प देख सकते हैं। कृपया इस फ़ाइल को सहेजने के लिए एक स्थान निर्दिष्ट करें और फिर क्लिक करें सहेजें बटन। स्क्रीनशॉट देखें:
नोट्स:
1. नई बनाई गई एक्सेल फ़ाइल सीधे वर्तमान टाइमस्टैम्प के नाम से सहेजी जाएगी।
2. पहले से मौजूद एक्सेल फ़ाइल के लिए, मूल फ़ाइल नाम को टाइमस्टैम्प से बदल दिया जाएगा।
यदि आप इसे बदलने के बजाय केवल मूल फ़ाइल नाम के बाद टाइमस्टैम्प जोड़ना चाहते हैं, तो कृपया नीचे दिया गया VBA कोड लागू करें।
वीबीए कोड: एक्सेल फ़ाइल नाम को टाइमस्टैम्प के साथ सहेजें (मूल फ़ाइल नाम के बाद टाइमस्टैम्प डालें)
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
संबंधित लेख:
- वर्कशीट को पीडीएफ फाइल के रूप में कैसे सहेजें और आउटलुक के माध्यम से अनुलग्नक के रूप में ईमेल करें?
- Excel में मौजूदा फ़ाइल को स्वचालित रूप से ओवरराइट करने के लिए Save As फ़ंक्शन का उपयोग कैसे करें?
- एक्सेल में सीएसवी या टेक्स्ट फ़ाइलों को अलग करने के लिए एकाधिक/सभी शीटों को कैसे सहेजें, निर्यात करें?
- Excel में Save & Save As विकल्प को कैसे अक्षम करें या अनुमति न दें?
- वर्कबुक सेव को कैसे अक्षम करें लेकिन केवल एक्सेल में सेव की अनुमति दें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!