كيف تحفظ اسم ملف Excel مع الطابع الزمني؟
هل سبق لك أن حاولت حفظ ملف Excel بالطابع الزمني الحالي؟ ستوضح لك هذه المقالة طريقة تحقيق ذلك.
احفظ اسم ملف Excel مع طابع زمني برمز VBA
احفظ اسم ملف Excel مع طابع زمني برمز VBA
يمكنك تشغيل كود VBA أدناه لحفظ اسم ملف Excel مع الطابع الزمني. الرجاء القيام بما يلي.
1. في المصنف الذي تريد تسميته بالطابع الزمني الحالي ، يرجى الضغط على قديم + F11 مفاتيح في نفس الوقت لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ رمز 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 مفتاح لتشغيل الكود. ثم حفظ باسم ينبثق مربع الحوار ، يمكنك مشاهدة عرض الطابع الزمني في مربع اسم الملف. الرجاء تحديد موقع لحفظ هذا الملف ، ثم النقر فوق حفظ زر. انظر لقطة الشاشة:
ملاحظة:
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؟
- كيفية استخدام وظيفة حفظ باسم للكتابة تلقائيًا فوق ملف موجود في Excel؟
- كيفية حفظ وتصدير متعددة / كل الأوراق لفصل ملفات CSV أو ملفات نصية في Excel؟
- كيفية تعطيل أو عدم السماح بخيارات حفظ وحفظ باسم في إكسيل؟
- كيفية تعطيل حفظ المصنف مع السماح فقط بالحفظ في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!