كيفية إعادة تسمية ملف باستخدام vba (مع مثال)

يمكنك استخدام عبارة الاسم في VBA لإعادة تسمية ملف Excel.

إليك طريقة شائعة لاستخدام هذا البيان عمليًا:

 SubRenameFile ()

Name "C:\Users\bob\Documents\current_data\my_old_file.xlsx" As _
    "C:\Users\bob\Documents\current_data\my_new_file.xlsx"

End Sub

سيقوم هذا الماكرو المحدد بإعادة تسمية الملف المسمى my_old_file.xlsx إلى my_new_file.xlsx .

ملحوظة : يمكنك كتابة مساري الملفين على نفس السطر، لكننا استخدمنا شرطة سفلية ( _ ) لمواصلة الكود في السطر التالي لتسهيل قراءته.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: إعادة تسمية ملف باستخدام VBA

لنفترض أن لدينا مجلدًا موجودًا في الموقع التالي:

C:\Users\bob\Documents\current_data

يحتوي هذا المجلد على ثلاثة ملفات Excel:

لنفترض أننا نريد استخدام VBA لإعادة تسمية الملف المسمى Soccer_data.xlsx إلى Soccer_data_new.xlsx بدلاً من ذلك.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubRenameFile ()

Name "C:\Users\bob\Documents\current_data\soccer_data.xlsx" As _
    "C:\Users\bob\Documents\current_data\soccer_data_new.xlsx"

End Sub

بمجرد تنفيذ هذا الماكرو، ستتم إعادة تسمية الملف الذي حددناه.

يمكننا الانتقال إلى موقع المجلد والتحقق من إعادة تسمية Soccer_data.xlsx إلى Soccer_data_new_.xlsx :

يمكننا أن نرى أنه تمت إعادة تسمية الملف بالفعل وأن جميع الملفات الأخرى الموجودة في المجلد ظلت دون تغيير.

ملاحظة : يمكنك العثور على الوثائق الكاملة لبيان الاسم في VBA هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية إنشاء مجلدات باستخدام VBA
كيفية حذف المجلدات باستخدام VBA
كيفية حذف الملفات باستخدام VBA
كيفية التحقق من وجود الملف باستخدام VBA