Note: The other languages of the website are Google-translated. Back to English

كيف تحفظ اسم ملف 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

السهم الأزرق الحق فقاعةمقالات ذات صلة:


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (12)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يوجد إصدار من هذا يعمل مع مستندات Word؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي هذا أدناه ، والذي يعمل بشكل مثالي لحفظ الملف مع طابع التاريخ ، ولكن لن يعمل إذا تم التغيير إلى هذا لإضافة time-> nbre = Format (الآن ، "yyyy-mm-dd hh: mm")


nbre = تنسيق (الآن ، "yyyy-mm-dd")


Application.DisplayAlerts = خطأ


ChDir "T: \ مركز التوزيع"
ActiveWorkbook.SaveAs Filename: = "T: \ مركز التوزيع \ 2. BACKLOG \ DC BACKLOG" + nbre + ".xlsx" ، FileFormat _
: = xlOpenXMLWorkbook، WriteResPassword: = "****"، CreateBackup: = False



هل يمكنك المساعدة في ما فاتك ؟؟؟ ....
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يمكنك استخدام الحرف ":" في أسماء الملفات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يمكنك حفظ الملفات بـ: ضمن اسم الملف ، إذا قمت بتغيير هذا إلى nbre = Format (الآن ، "yyyy-mm-dd hh-mm")
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي ناثان ،
يمكن أن يساعد رمز VBA أدناه في إضافة الطابع الزمني داخل اسم الملف.

اختبار فرعي ()
خافت xWb كمصنف
خافت xStr كسلسلة
خافت xStrOldName كسلسلة
خافت xStr التاريخ كسلسلة
خافت xFileName كسلسلة
خافت xFileDlg كحوار ملف
خافت أنا كمتغير
Application.DisplayAlerts = خطأ
قم بتعيين xWb = ActiveWorkbook
xStrOldName = xWb.Name
xStr = يسار (xStrOldName ، Len (xStrOldName) - 5)
xStrDate = التنسيق (الآن ، "yyyy-mm-dd hh-mm-ss")
إذا كان صحيحًا (xStrOldName، 4) = "xlsm" ثم
xFileName = Application.GetSaveAsFilename (xStr & "" & xStrDate ، "مصنف Excel بماكرو (* .xlsm) ، *. xlsm")
آخر
xFileName = Application.GetSaveAsFilename (xStr & "" & xStrDate ، "Excel Workbook (* .xlsx) ، *. xlsx")
إنهاء حالة
xWb.SaveAs (xFileName)
Application.DisplayAlerts = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن تعديله لإزالة الطابع الزمني السابق وحفظه في نفس الدليل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
آسف لا أستطيع مساعدتك في ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل هذا إلا عندما يضغط المستخدم على زر الإلغاء ، فإنه يستمر في إنشاء ملف يسمى "خطأ".
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جايسون،
شكرا لتذكيري. تم تحديث الرموز.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن تضمين الكود وإخباره بمكان حفظ الملف بدلاً من تحديد مسار الحفظ بشكل فردي في كل مرة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إلي من يهمه الامر،
أحاول تضمين الرمز الخاص بك "رمز VBA: احفظ اسم ملف Excel مع طابع زمني (أدخل طابعًا زمنيًا ضمن اسم الملف الأصلي)" في https://www.extendoffice.com/documents/excel/4413-excel-timestamp-filename.html. لكنه يتوقف عند اسم ملف جديد مع مربع حوار حفظ باسم الطابع الزمني. إذا كنت أرغب في الحفظ التلقائي المستمر بعد مربع الحوار Save As المعروض ، أغلق كل المصنف وأغلق التطبيق. ما هو كود VBA الذي تنصح به لإنهاء هذه الوظيفة؟ الرجاء المساعدة.

من فضلك أجبني على misterxyz123 @ gmail
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا السيد X ،
بعد تشغيل الكود ، يتم حفظ جميع المصنفات المفتوحة (باستثناء المصنف المستخدم حاليًا) كملفات جديدة بطابع زمني متبوعًا باسم الملف الأصلي ثم يتم إغلاقه تلقائيًا. يرجى محاولة إعطائها. شكرًا لك.
الرجاء تحديد مجلد لحفظ الملفات في هذا السطر: xPath = "C: \ Users \ Win10x64Test \ Desktop \ file مع الطابع الزمني \"
Sub AddTimestampToFileName()
    'Updated by Extendoffice 20220826
    Dim xWb As Workbook
    Dim xStr As String
    Dim xPath As String
    Dim xStrDate As String
    Dim xFileName As String
    Application.DisplayAlerts = False
    
    
    xPath = "C:\Users\Win10x64Test\Desktop\file with timestamp\"
    xFileName = ActiveWorkbook.Name
    xStrDate = " " & Format(Now, "yyyy-mm-dd hh-mm-ss")
    For Each xWb In Workbooks
        If xWb.Name <> xFileName Then
            If Dir(xWb.FullName) <> "" Then
                xStr = Left(xWb.Name, InStrRev(xWb.Name, ".") - 1)
                xWb.SaveAs Filename:=xPath & Replace(xWb.Name, xStr, xStr & xStrDate)
            Else
                xWb.SaveAs Filename:=xPath & xWb.Name & xStrDate & ".xlsx"
            End If
        xWb.Close
        End If
    Next
    
    xStr = Left(xFileName, InStrRev(xFileName, ".") - 1)
    ActiveWorkbook.SaveAs Filename:=xPath & Replace(xFileName, xStr, xStr & xStrDate)
    Application.DisplayAlerts = True
    
End Sub
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL