मुख्य सामग्री पर जाएं

Excel में दिनांक और समय के साथ फ़ाइल कैसे सहेजें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2014-11-20

जब हम किसी कार्यपुस्तिका पर काम करते हैं, तो कभी-कभी, फ़ाइल को सहेजते समय हमें वर्तमान दिनांक और समय जोड़ने की आवश्यकता होती है। हो सकता है, आप इस रूप में सहेजें संवाद में फ़ाइल नाम के बाद दिनांक और समय टाइप कर सकें, लेकिन, यहां, मैं आपको इस काम को स्वचालित रूप से निपटाने की एक आसान तरकीब पेश कर सकता हूं।

VBA कोड का उपयोग करके Excel फ़ाइल को दिनांक और समय के साथ सहेजें


तीर नीला दायां बुलबुला VBA कोड का उपयोग करके Excel फ़ाइल को दिनांक और समय के साथ सहेजें

दिनांक और समय को मैन्युअल रूप से टाइप करने के अलावा, निम्नलिखित VBA कोड आपको वर्तमान दिनांक और समय को फ़ाइल नाम में स्वचालित रूप से जोड़ने में मदद कर सकता है। कृपया निम्नलिखित चरणों का पालन करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

2. क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.

वीबीए कोड: फ़ाइल नाम में स्वचालित रूप से दिनांक और समय जोड़ें

Sub filesave()
'Update 20141111
ActiveWorkbook.SaveAs ("C:\Users\dt\Desktop\my information\nov-kte-data " & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xlsx")
End Sub

3. और फिर दबाएं F5 इस कोड को चलाने के लिए कुंजी, वर्तमान दिनांक और समय आपके सक्रिय कार्यपुस्तिका नाम के बाद जोड़ा गया है, स्क्रीनशॉट देखें:

दस्तावेज़-सहेजें-फ़ाइल-दिनांक-1 के साथ

नोट: उपरोक्त कोड में, आपको फ़ाइल पथ और नाम को अपनी आवश्यकता के अनुसार बदलना होगा।


संबंधित आलेख:

एक्सेल फ़ाइल को सेल वैल्यू के साथ कैसे सेव करें?

Excel में टाइटल बार या टूलबार में फ़ाइल पथ कैसे दिखाएं?

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Mto bom! deu tudo certo
This comment was minimized by the moderator on the site
hi,
i tried this, it worked but when i reopen the my excel, date and time does not update automatically. How date and time in filename could be update automatically on every opening.
thanks
This comment was minimized by the moderator on the site
Hello sir,
can you plrease let me know how to define below Scripts. like - filename_currentdate_time.txt




Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As Double
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = CurDir & "\" & xWs.Name & ".txt"
Application.ActiveWorkbook.SaveAs Filename:=xTextFile, FileFormat:=xlText
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
This comment was minimized by the moderator on the site
Been looking for this! Thanks!
This comment was minimized by the moderator on the site
Thanks for the tip. I was saving with a 'xxxxxxx' as the suffix and manually entering the data every week for a weekly snapshot. This automation is great.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations