انتقل إلى المحتوى الرئيسي

كيفية حفظ الملف مع التاريخ والوقت في إكسيل؟

عندما نعمل على مصنف ، في بعض الأحيان ، نحتاج إلى إضافة التاريخ والوقت الحاليين عندما نحفظ الملف. ربما يمكنك كتابة التاريخ والوقت بعد اسم الملف في مربع الحوار "حفظ باسم" ، ولكن هنا ، يمكنني أن أقدم لك خدعة سهلة للتعامل التلقائي مع هذه الوظيفة.

احفظ ملف Excel بالتاريخ والوقت باستخدام التعليمات البرمجية لـ VBA


السهم الأزرق الحق فقاعة احفظ ملف Excel بالتاريخ والوقت باستخدام التعليمات البرمجية لـ VBA

باستثناء كتابة التاريخ والوقت يدويًا ، يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على إضافة التاريخ والوقت الحاليين إلى اسم الملف تلقائيًا. يرجى اتباع الخطوات التالية:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

رمز VBA: إضافة التاريخ والوقت تلقائيًا إلى اسم الملف

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 بقيمة الخلية؟

كيفية إظهار مسار الملف في شريط العنوان أو شريط الأدوات في إكسيل؟

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 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