كيفية حفظ اسم ملف Excel مع الطابع الزمني؟

هل سبق لك أن حاولت حفظ ملف Excel بالطابع الزمني الحالي؟ ستوضح لك هذه المقالة الطريقة لتحقيق ذلك.

حفظ اسم ملف Excel مع الطابع الزمني باستخدام كود VBA

حفظ اسم ملف Excel مع الطابع الزمني باستخدام كود VBA

يمكنك تشغيل كود VBA أدناه لحفظ اسم ملف Excel مع الطابع الزمني. يرجى القيام بما يلي.

1. في المصنف الذي تحتاج إلى تسميته بالطابع الزمني الحالي، يرجى الضغط على مفاتيح Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، يرجى النقر فوق إدراج > وحدة. ثم انسخ كود 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

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

مقالات ذات صلة:

• كيفية حفظ ورقة عمل كملف PDF وإرسالها كمرفق عبر البريد الإلكتروني من خلال Outlook؟
• كيفية استخدام وظيفة حفظ باسم لتجاوز الملفات الموجودة تلقائيًا في Excel؟
• كيفية حفظ أو تصدير أوراق متعددة / كل الأوراق إلى ملفات CSV أو نصية منفصلة في Excel؟
• كيفية تعطيل أو عدم السماح بخيارات الحفظ والحفظ باسم في Excel؟
• كيفية تعطيل حفظ المصنف ولكن السماح فقط بالحفظ باسم في Excel؟