كيفية الحصول على اسم مصنف العمل باستخدام VBA (مع أمثلة)

تمثل أتمتة العمليات المكتبية باستخدام لغة تطبيقات فيجوال بيسك (Visual Basic for Applications – VBA) حجر الزاوية في رفع الكفاءة التشغيلية داخل المؤسسات والمنشآت الأكاديمية والمالية الحديثة. يُعد برنامج مايكروسوفت إكسل (Microsoft Excel) منصة مركزية لتحليل البيانات وإعداد النماذج المعقدة، إلا أن التعامل اليدوي مع مصنفات العمل المتعددة يفتح الباب واسعاً أمام الأخطاء البشرية وفقدان البيانات وتباين الإصدارات. من هذا المنطلق، تبرز الحاجة إلى فهم واستغلال البيانات الوصفية (Metadata) للمصنفات، وعلى رأسها استخراج اسم المصنف البرمجي بدقة متناهية، لضمان بناء تدفقات عمل متماسكة تعتمد على التوثيق الذاتي والاستجابة الديناميكية لتغير أسماء الملفات ومواقع تخزينها عبر الشبكات والأنظمة السحابية.

إن الولوج إلى الخصائص الجوهرية لكائنات إكسل لا يقتصر على مجرد استدعاء أسطر برمجية نمطية، بل يتطلب إدراكاً عميقاً لهيكلية نموذج كائنات إكسل (Excel Object Model). إن معرفة الفروق الدقيقة بين الكينونات الحاوية للشيفرة وتلك الواقعة تحت بؤرة تركيز المستخدم يمنح المطورين والباحثين القدرة على تصميم أدوات تحليلية رصينة ومحمية ضد الأعطال الفجائية. وتتجلى أهمية هذا الطرح الأكاديمي والتقني في المشاريع التي تتطلب معالجة دفعية لمئات المصنفات، أو توليد تقارير تدقيق محاسبية، أو حساب وظائف توزيع تراكمية ومعالجات رياضية معقدة عبر بيئات النماذج الرياضية في إكسل، كما وثق ذلك الباحثون في تطوير أدوات الحوسبة التراكمية المعتمدة على إكسل (Houghton & Grange, 2011).

يقدم هذا المرجع الشامل دراسة مستفيضة وتطبيقية لجميع المسارات البرمجية المتاحة لاستخراج اسم مصنف العمل في بيئة VBA، مع استعراض المعالجات النصية الدقيقة للتخلص من امتدادات الملفات، والتعامل مع الكائنات المتقدمة مثل كائن نظام الملفات (FileSystemObject)، وفك شفرات المسارات السحابية المعقدة الخاصة بمنصتي ون درايف (OneDrive) وشير بوينت (SharePoint). كما يتناول الدليل استراتيجيات الوقاية من الأخطاء وتحسين الأداء البرمجي، واضعاً بين يدي القارئ دليلاً شاملاً مصاغاً بأسلوب منهجي وموجه نحو الاستخدام الاحترافي والتطوير المستدام للبرمجيات المكتبية.

1. مقدمة إلى أتمتة إكسل واسترجاع أسماء المصنفات عبر VBA

1.1 أهمية استخراج البيانات الوصفية للمصنفات برمجياً

تلعب أسماء المصنفات دوراً حاسماً بصفتها معرفات فريدة وأساسية في بناء خطوط معالجة البيانات المؤتمتة (Automated Data Pipelines). فعندما تنتقل المنظمات من المعالجة اليدوية إلى المعالجة الخوارزمية، تصبح القدرة على تتبع أصل كل سجل بياني أمراً بالغ الأهمية لضمان سلامة التدفقات الرقمية. يوفر اسم الملف السياق التاريخي والتشغيلي للبيانات المخزنة بداخله، مثل تاريخ الإصدار، أو القسم الإداري المعني، أو رقم الإصدارة البرمجية. وبناءً على ذلك، فإن الاعتماد على الاستدعاء البرمجي لاسم المصنف يضمن استخلاص هذه المعرفات دون تدخل بشري، مما يؤسس لقواعد بيانات موحدة وخالية من التداخلات غير المقصودة الناتجة عن إدخال قيم خاطئة للملفات المعالجة.

إلى جانب ذلك، يسهم استرجاع اسم المصنف تلقائياً في تحقيق الاتساق والتوثيق الممنهج في سجلات العمل والتقارير المالية والأكاديمية الدورية. فبدلاً من تكليف المحللين بكتابة اسم المصنف في ترويسات التقارير أو في حقول قواعد البيانات، يمكن لوحدات الماكرو قراءة الهوية الاسمية للمصنف وتضمينها آلياً في هوامش الصفحات وجداول التدقيق. هذا الاتساق يضمن تلبية معايير الحوكمة والامتثال التنظيمي التي تفرضها الهيئات الرقابية، والتي تشترط إثبات مصدر البيانات والتحقق من سلاسل العهدة الرقمية (Digital Chain of Custody) للمستندات المستخدمة في صنع القرار الاستراتيجي والمالي.

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

1.2 نظرة عامة على نموذج كائنات مايكروسوفت إكسل

يرتكز برنامج مايكروسوفت إكسل على نموذج كائنات هرمي دقيق وشديد التعقيد، يتصدر قمته كائن التطبيق (Application Object) الذي يمثل برنامج إكسل بأكمله. يتفرع من هذا الكائن كائنات وسيطة مثل مجموعة المصنفات (Workbooks Collection)، والتي تحتوي بدورها على كائنات مصنفات فردية (Workbook Objects). يمثل كائن المصنف الحاوية المادية والمنطقية لكافة أوراق العمل، والرسوم البيانية، ووحدات الشيفرة، والخصائص الوصفية. ومن ثم، فإن محاولة الوصول إلى اسم المصنف تستوجب التحرك بسلاسة عبر هذا البناء الهرمي لاستهداف الخاصية المطلوبة بدقة دون إحداث غموض في دلالة المراجع البرمجية.

تتم إدارة هذه الكائنات والتفاعل معها من خلال بيئة التطوير المتكاملة لتطبيقات فيجوال بيسك (Visual Basic Editor – VBE)، والتي تعمل بتناغم تام مع واجهة المستخدم الرسومية لبرنامج إكسل (GUI). تسمح بيئة VBE للمطور بالاطلاع على هيكل المشروع البرمجي، وتتبع المتغيرات، وفحص الخصائص الملحقة بالكائنات في وقت التشغيل الحقيقي. ويعد فهم حلقة الوصل بين نافذة المحرر وسطح العمل في إكسل عاملاً جوهرياً، حيث تتأثر بعض الخصائص البرمجية بحالة الواجهة الرسومية وتفاعل المستخدم المباشر مع النوافذ النشطة، مما يتطلب الحذر عند صياغة الشيفرات المستقلة عن حالة الواجهة.

في هذا السياق، يجب التمييز التقني الصارم بين الخصائص (Properties) والأساليب (Methods) والأحداث (Events) المرتبطة بكائن المصنف. تعتبر الخصائص سمات وصفية تخزن معلومات حول الحالة الراهنة للكائن، مثل حجمه، ومساره، واسمه. ومن الخصائص ما هو للقراءة فقط (Read-Only) مثل خاصية الاسم بعد حفظ الملف، ومنها ما هو متاح للقراءة والكتابة (Read/Write). إن إدراك أن استرجاع الاسم هو عملية قراءة محضة لقيمة وصفية مخزنة يساعد المطور على تجنب محاولات التعديل المباشر غير المشروعة لخاصية الاسم، والتي تتطلب بدلاً من ذلك تنفيذ أساليب إعادة الحفظ المخصصة.

1.3 أهداف الدليل والمنهجية المتبعة في صياغة الحلول

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

كما يضع الدليل تركيزاً خاصاً على معالجة النصوص البرمجية (String Manipulation) بصورة معيارية للتعامل مع امتدادات الملفات المتنوعة (.xlsx, .xlsm, .xlsb). وسنتناول الآليات الرياضية لفصل الامتداد دون التأثر بوجود نقاط متعددة في أسماء الملفات، وهو خطأ شائع يقع فيه العديد من المبرمجين المبتدئين. وسنوضح كيفية التمييز بين المعالجة النصية البحتة والاعتماد على الكائنات المتخصصة، مبرزين محاسن ومساوئ كل مسار تقني من حيث سرعة التنفيذ وقابلية التوسع.

وأخيراً، تنتهج هذه الدراسة معايير البرمجة الدفاعية (Defensive Programming) والممارسات الأكاديمية الرصينة في إدارة الأخطاء وتحسين الأداء. لن تقتصر الحلول المطروحة على تقديم نماذج مجردة تعمل في الظروف المثالية، بل ستمتد لتشمل حماية الشيفرات البرمجية من الانهيار عند غياب المصنفات النشطة، أو تشغيل الماكرو على ملفات غير محفوظة، أو التعامل مع مسارات التخزين السحابي الهجينة. يضمن هذا النهج تخريج حلول برمجية قابلة للاستخدام الفعلي في البيئات الإنتاجية والمؤسسية المعقدة.

2. البنية الهيكلية لكائن المصنف (Workbook Object Model)

2.1 التفريق الدلالي بين ActiveWorkbook وThisWorkbook

يعد التمييز بين الكائنين ActiveWorkbook وThisWorkbook أحد أهم المفاهيم التأسيسية التي تحكم برمجة إكسل عبر VBA، حيث يؤدي الخلط بينهما إلى أخطاء منطقية كارثية يصعب تعقبها أثناء التشغيل. يشير الكائن ActiveWorkbook بشكل ديناميكي إلى المصنف الذي يقع حالياً تحت بؤرة تركيز المستخدم ويكون نافذته النشطة في الواجهة الأمامية لإكسل. يتغير هذا المرجع تلقائياً بمجرد نقر المستخدم على مصنف آخر مفتوح، أو عند قيام شيفرة برمجية بفتح ملف جديد أو التبديل بين النوافذ عبر الأسلوب Activate.

في المقابل، يمثل الكائن ThisWorkbook مرجعاً ثابتاً ومستقلاً يوجه المؤشر البرمجي دائماً وأبداً إلى المصنف المادي الذي كُتبت الشيفرة البرمجية داخله وتجري عملية تنفيذها منه. لا يتأثر هذا الكائن مطلقاً بنشاط المستخدم أو بالنوافذ المعروضة على الشاشة. فإذا كانت الشيفرة مخزنة داخل مصنف يحمل اسم “MacroTools.xlsm”، وتم تشغيل الماكرو ليعالج بيانات في مصنف نشط يسمى “SalesData.xlsx”، فإن ThisWorkbook.Name سيعيد دائماً “MacroTools.xlsm”، في حين أن ActiveWorkbook.Name سيعيد “SalesData.xlsx”.

تتجلى خطورة هذا التمايز عند تشغيل الإجراءات الطويلة في الخلفية أو بناء الوظائف الإضافية (Excel Add-ins). ففي ملفات الإضافات ذات الامتداد .xlam، يؤدي استخدام ActiveWorkbook بدلاً من ThisWorkbook إلى قراءة بيانات المصنف الذي يعمل عليه المستخدم النهائي بدلاً من قراءة إعدادات الإضافة نفسها، والعكس صحيح تماماً؛ إذ إن استدعاء ThisWorkbook في إضافة برمجية بهدف قراءة اسم ملف المستخدم سيؤدي حتماً إلى جلب اسم ملف الإضافة البرمجية المخفي، مما يفسد منطق البرنامج بالكامل.

2.2 الخصائص الأساسية المعرفة لهوية المصنف في VBA

يوفر كائن المصنف ثلاث خصائص نصية رئيسية تصف هويته ومكانه المادي، وتلبي كل خاصية منها غرضاً برمجياً محدداً. أولى هذه الخصائص هي خاصية Name، وهي خاصية للقراءة فقط ترجع نصاً يحتوي على الاسم المجرد لملف المصنف شاملاً امتداده المكتبي (مثل “Annual_Report_2024.xlsx”)، ولكنها تجرد الملف تماماً من مسار المجلدات المؤدية إليه. تُستخدم هذه الخاصية بشكل مكثف عند الرغبة في عرض اسم الملف للمستخدم، أو استخدامه كمعرف في الجداول، أو التحقق من هوية المصنف المستهدف قبل تنفيذ عمليات الحذف والتحديث.

أما الخاصية الثانية فهي خاصية Path، والتي تعيد مسار المجلد الفيزيائي الذي يقبع بداخله المصنف على وسيط التخزين المحلي أو الشبكي، وذلك بصيغة نصية مجردة لا تنتهي بالشرطة المائلة الخلفية (مثل “C:UsersAdminDocuments”). تعد هذه الخاصية جوهرية عند رغبة المطور في حفظ ملفات مساعدة أو تصدير أوراق عمل إلى نفس المجلد الأصلي للمصنف، حيث تتيح بناء مسارات ديناميكية متوافقة مع تغيير مكان العمل الإجمالي للملفات دون الحاجة إلى تثبيت المسارات برمجياً (Hardcoding).

وتأتي خاصية FullName لتشكل التركيب التكاملي التام الذي يربط المسار الجغرافي للمجلد باسم الملف وامتداده في سلسلة نصية واحدة مكتملة الأركان (على سبيل المثال: “C:UsersAdminDocumentsAnnual_Report_2024.xlsx”). تعادل هذه القيمة منطقياً دمج Path متبوعة بعلامة الفصل ثم Name. تستخدم خاصية FullName في العمليات الحساسة لنظام التشغيل، مثل التحقق من وجود الملف عبر وسائط الإدخال والإخراج، أو تمرير المسار كمعامل لأدوات النسخ الاحتياطي، أو ربط الملف بتطبيقات خارجية كقواعد البيانات ونظم التحليل الإحصائي.

2.3 سلوك الكائنات عند التعامل مع المصنفات غير المحفوظة

يتغير السلوك الافتراضي لخصائص كائن المصنف تغيراً ملحوظاً عندما يتم إنشاء مصنف جديد في الذاكرة الحية ولم يتم إجراء عملية الحفظ الأولى له على القرص الصلب. يقوم برنامج إكسل في هذه الحالة بتوليد اسم مؤقت تلقائي لهذا المصنف وفق النسق المعياري الافتراضي المعتاد، مثل “Book1” أو “Book2” (أو “مصنف1” في الواجهات المعربة). هذا الاسم التلقائي يفتقر إلى أي امتداد للملف، لأن صيغة التنسيق المادي للملف لم يتم تحديدها بعد من قبل المستخدم أو النظام البرمجي.

يترتب على حالة عدم الحفظ هذه أن خاصية Path تعيد سلسلة نصية فارغة تماماً توازي ""، لعدم وجود موقع تخزين فيزيائي للمصنف على القرص الصلب. وبالتبعية، تصبح مخرجات خاصية FullName متطابقة كلياً مع مخرجات خاصية Name، حيث تقتصر كلتاهما على إرجاع الاسم المؤقت (مثل “Book1”) دون أي مسار مرافق أو امتداد. يشكل هذا السلوك فخاً برمجياً شائعاً، إذ إن محاولة التعامل مع المسار أو الامتداد في هذه المرحلة قد تؤدي إلى نتائج غير متوقعة أو انهيار في الشيفرات التي تتوقع وجود مسار صالح.

لتفادي هذه المعضلات، تنص معايير البرمجة الاحترافية على ضرورة إدراج فحص استباقي لحالة حفظ المصنف قبل محاولة استخراج مساراته أو افتراض وجود امتداد له. يمكن للمطور استقراء خاصية Workbook.Saved أو فحص طول السلسلة المرجعة من خاصية Path. فإذا كان طول Path يساوي صفراً، وجب على الشيفرة اتخاذ مسار بديل؛ إما بتوجيه المستخدم لحفظ الملف أولاً عبر مربعات الحوار التفاعلية، أو تطبيق إجراء حفظ تلقائي استباقي عبر مسار افتراضي محدد قبل الاستمرار في تشغيل الخوارزمية الأساسية.

3. استخراج اسم المصنف النشط كاملاً مع الامتداد

3.1 صياغة الدالة المخصصة (UDF) لاسترجاع الاسم الكامل

تعتبر الدوال المعرفة من قبل المستخدم (User-Defined Functions – UDFs) من أقوى الأدوات في بيئة VBA، حيث تمكن المطورين من توسيع مكتبة الصيغ الحسابية القياسية لبرنامج إكسل وإدراج قدرات متقدمة داخل خلايا أوراق العمل مباشرة. لبناء دالة مخصصة تسترجع اسم المصنف النشط كاملاً، يتم الإعلان عن دالة عامة (Public Function) تقبل الاستدعاء من أي نطاق داخل المصنف، ويتم تحديد نوع القيمة المرجعة منها بنوع البيانات النصي String، لضمان صرامة التحقق من الأنواع البرمجية ومنع حدوث التباس في معالجة الذاكرة.

ترتبط بنية الدالة الأساسية بمخاطبة الكائن ActiveWorkbook بصورة مباشرة، وإسناد قيمة خاصيته Name إلى المتغير الحامل لاسم الدالة نفسه، كما يتضح في البنية الإجرائية التالية:

Public Function GetActiveWorkbookName() As String
    GetActiveWorkbookName = ActiveWorkbook.Name
End Function

يتسم هذا التركيب بالبساطة والسرعة الفائقة، حيث لا يتطلب تمرير أي معاملات إضافية بين قوسي الدالة. وتلتزم هذه الصياغة بقواعد التسمية القياسية الموصى بها في هندسة البرمجيات، حيث يبدأ اسم الدالة بفعل يعبر عن وظيفتها (Get) متبوعاً بالمفهوم البرمجي الدقيق، وهو ما يسهل قراءة الشيفرات وفهم بنيتها الوظيفية من قبل فرق العمل المختلفة أو مراجعي الأكواد في المؤسسات البحثية والمالية.

3.2 استدعاء الدالة المخصصة عبر خلايا ورقة العمل

يتطلب تمكين الدالة المخصصة للاستخدام داخل خلايا ورقة العمل إدراجها داخل وحدة نمطية قياسية (Standard Module) وليس داخل وحدات الكائنات البرمجية الخاصة بالأوراق (Sheet Modules) أو وحدة مصنف العمل (ThisWorkbook Module). يتم ذلك عبر الدخول إلى محرر VBA بالضغط على مفتاحي Alt + F11، ثم اختيار قائمة الإدراج (Insert) والنقر على خيار (Module). بعد لصق الشيفرة داخل الوحدة النمطية القياسية، تصبح الدالة مرئية ومتاحة للاستدعاء الفوري داخل محرك الحسابات في برنامج إكسل كأي دالة قياسية مدمجة مثل SUM أو VLOOKUP.

داخل أي خلية في ورقة العمل، يمكن للمستخدم كتابة الصيغة التالية:

=GetActiveWorkbookName()

بمجرد الضغط على مفتاح الإدخال (Enter)، يقوم محرك إكسل بتقييم الدالة وإرجاع الاسم النصي الكامل للمصنف النشط، متضمناً الامتداد الرسمي الخاص بصيغة الحفظ (مثل Financial_Model.xlsm للمصنفات المفعلة لوحدات الماكرو، أو Data_Audit.xlsx للمصنفات القياسية الخالية من وحدات الماكرو، أو BigData_Set.xlsb للمصنفات الثنائية). يوفر هذا الناتج وسيلة ديناميكية لتوثيق اسم الملف داخل الأوراق وطباعته في تذييلات التقارير دون الحاجة لاستخدام صيغ معقدة وطويلة من دوال إكسل التقليدية مثل CELL وMID وFIND.

3.3 استخدام الإجراءات الفرعية (Sub Procedures) لعرض الاسم

على الرغم من الفائدة الكبيرة للدوال المخصصة في خلايا أوراق العمل، إلا أن متطلبات الأتمتة الإدارية والبرمجية تقتضي في أحيان كثيرة استدعاء اسم المصنف ومعالجته ضمن مسارات عمل مستقلة لا تتقاطع مع محتوى الخلايا. هنا تبرز أهمية الإجراءات الفرعية (Sub Procedures) التي يمكن تشغيلها عبر أزرار التحكم في واجهة المستخدم، أو من خلال مفاتيح الاختصار السريعة، أو كجزء من سلسلة عمليات متصلة. يتيح الإجراء الفرعي فحص اسم المصنف واستخدامه لاتخاذ قرارات منطقية فورية وتوجيه رسائل تفاعلية للمستخدمين.

يمكن بناء إجراء تفاعلي يعرض اسم المصنف في نافذة تنبيهية باستخدام صندوق الرسائل MsgBox، كما يمكن في الوقت نفسه توجيه القيمة إلى نافذة المعاينة الفورية (Immediate Window) في محرر الأكواد عبر التعليمة Debug.Print، كما يظهر في النموذج البرمجي التالي:

Public Sub DisplayCurrentWorkbookName()
    Dim currentName As String
    currentName = ActiveWorkbook.Name
    MsgBox "اسم المصنف النشط حالياً هو: " & currentName, vbInformation, "بيانات المصنف"
    Debug.Print "Log: Active Workbook Name evaluated to -> " & currentName
End Sub

تتمثل الميزة الوظيفية لاستخدام الإجراءات الفرعية في قدرتها على إجراء تعديلات هيكلية، مثل فتح وإغلاق الملفات وتعديل البيانات وحفظ المستندات، وهي عمليات محظورة تماماً على الدوال المخصصة (UDFs) التي تقتصر صلاحياتها المعيارية على إرجاع قيم للخلايا فقط دون تعديل البيئة المحيطة بها. وبالتالي، توفر الإجراءات الفرعية منصة تشغيل متكاملة للمهام ذات الطبيعة التنفيذية المباشرة.

4. معالجة النصوص البرمجية لفصل اسم المصنف عن الامتداد

4.1 آلية عمل دالة InStr لتحديد مواضع الفواصل النصية

تنشأ الحاجة في العديد من التطبيقات البرمجية إلى الحصول على الاسم الأساسي للمصنف مجرداً من امتداده النهائي (مثل الحصول على “Sales_Report” بدلاً من “Sales_Report.xlsx”). يتطلب تحقيق ذلك برمجياً عبر لغة VBA إجراء عمليات تشريح ومعالجة نصية متقدمة. تعتمد المنهجية التقليدية في هذا الصدد على دالة البحث النصي InStr (In-String)، وهي دالة رياضية وظيفتها البحث عن الترتيب العددي أو الفهرس الحسابي لبداية ظهور مقطع نصي فرعي أو رمز معين داخل سلسلة نصية رئيسية أكبر.

تعمل الدالة InStr من خلال مسح السلسلة النصية الممثلة لاسم المصنف من اليسار إلى اليمين للبحث عن رمز النقطة (.)، الذي يفصل تقليدياً بين اسم الملف وامتداده. تقبل الدالة معاملات تحدد نقطة البدء، والسلسلة المستهدفة، والرمز المراد البحث عنه. وتكون مخرجات الدالة عبارة عن عدد صحيح طويل (Long) يمثل الإحداثي الحسابي لموقع النقطة. فإذا كان اسم المصنف هو “Budget.xlsx”، فإن الدالة InStr(1, ActiveWorkbook.Name, ".") ستعيد الرقم 7، وهو الفهرس المقابل لموضع النقطة بدقة.

يمثل هذا الفهرس العددي حجر الزاوية في تحديد طول المقطع النصي المطلوب اقتطاعه. فمن الناحية الرياضية، فإن عدد الحروف المكونة لاسم الملف الحقيقي هو حاصل طرح موضع النقطة مطروحاً منه واحد. ومع ذلك، فإن هذه الآلية تواجه قيوداً جوهرية في البيئات التشغيلية المتقدمة عند التعامل مع ملفات تحتوي أسماؤها على نقاط فاصلة داخل بنية التسمية نفسها، مما يستدعي تدقيقاً خوارزمياً أعمق لمعالجة هذه القصور.

4.2 تطبيق دالة Left لاقتطاع اسم الملف بصورة نقية

بمجرد تحديد الموضع الحسابي لرمز النقطة باستخدام دوال التحديد النصي، يتم إدراج الدالة Left لاستخلاص الشطر الأيسر المستهدف من السلسلة النصية. تقبل الدالة Left وسيطين أساسيين: السلسلة النصية الأصلية المراد الاقتطاع منها (وهي هنا ActiveWorkbook.Name)، والعدد الإجمالي للأحرف المطلوب سحبها بدءاً من الحرف الأول الواقع في أقصى يسار السلسلة.

تتم المعالجة عبر دمج مخرجات دالة البحث النصي مع عملية طرح حسابية مقدارها -1؛ والهدف من هذه الإزاحة الرياضية هو استبعاد رمز النقطة نفسه من الناتج النهائي، مما يضمن خروج الاسم الأساسي نقياً دون شوائب ترقيمية. ويوضح النموذج البرمجي التالي صياغة دالة مخصصة تقوم بهذه المعالجة المباشرة:

Public Function GetCleanWorkbookNameNative() As String
    Dim fullFileName As String
    Dim dotPosition As Long
    fullFileName = ActiveWorkbook.Name
    dotPosition = InStr(1, fullFileName, ".")
    If dotPosition > 1 Then
        GetCleanWorkbookNameNative = Left(fullFileName, dotPosition - 1)
    Else
        GetCleanWorkbookNameNative = fullFileName
    End If
End Function

يعالج هذا النموذج البرمجي إمكانية عدم وجود أي نقطة في الاسم (كما هو الحال في المصنفات الجديدة غير المحفوظة “Book1”)، حيث تعيد الدالة InStr القيمة صفر، مما يجعل الشرط If dotPosition > 1 يقفز مباشرة لإرجاع الاسم بالكامل دون إجراء اقتطاع خاطئ يؤدي إلى ظهور خطأ في وقت التشغيل (Runtime Error).

4.3 معالجة الحالات المعقدة للأسماء الحاوية على نقاط متعددة

تنهار الخوارزمية السابقة المبنية على دالة InStr البسيطة فور مواجهة أسماء ملفات تعتمد على الترقيم المرحلي أو الفترات التاريخية التي تستخدم النقطة كفاصل داخل الاسم نفسه، مثل مصنف يحمل الاسم “Report.Q1.Final.v2.xlsx”. في هذا السيناريو، ستقوم دالة InStr بالعثور على أول نقطة تقع بعد كلمة “Report” مباشرة عند الفهرس رقم 7، مما يؤدي إلى اقتطاع السلسلة لتصبح “Report” فقط، مع حذف باقي المعرفات الحيوية من الاسم بصورة مضللة وغير مقصودة.

لحل هذه المعضلة الخوارزمية، تقدم لغة VBA الدالة التوأم InStrRev (In-String Reverse)، والتي تُجري مسحاً عكسياً يبدأ من نهاية السلسلة النصية في أقصى اليمين متجهاً نحو البداية في اليسار. تضمن هذه الدالة تحديد الفهرس الخاص بآخر نقطة ظهرت في اسم الملف، وهي النقطة التي تفصل الاسم الفعلي عن الامتداد الحقيقي للملف، بصرف النظر عن عدد النقاط التي تسبقها في بنية الاسم الإجمالية، كما يوضح الشكل المتقدم التالي:

Public Function GetRobustBaseName() As String
    Dim wName As String
    Dim lastDotIndex As Long
    wName = ActiveWorkbook.Name
    lastDotIndex = InStrRev(wName, ".")
    If lastDotIndex > 1 Then
        GetRobustBaseName = Left(wName, lastDotIndex - 1)
    Else
        GetRobustBaseName = wName
    End If
End Function

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

5. استخدام دالة كائن نظام الملفات (FileSystemObject) كبديل متقدم

5.1 مفهوم مكتبة Microsoft Scripting Runtime

يمثل كائن نظام الملفات (FileSystemObject – FSO)، المتاح عبر مكتبة “Microsoft Scripting Runtime”، منصة معيارية فائقة القوة صممتها مايكروسوفت لتوفير تحكم شامل في محركات الأقراص، والمجلدات، والملفات داخل بيئة نظام التشغيل ويندوز. بدلاً من الاعتماد الحصري على الدوال النصية المدمجة في VBA، يقدم كائن FSO واجهة برمجية موحدة ومتخصصة قادرة على قراءة سمات الملفات والمسارات والتعامل مع مكونات نظام التشغيل بمنهجية كائنية خالصة تقلل الحاجة إلى كتابة خوارزميات معالجة النصوص يدوياً.

يمكن استدعاء كائن FSO عبر آليتين مختلفتين للربط البرمجي. الآلية الأولى هي “الربط المبكر” (Early Binding)، والتي تتطلب تفعيل مرجع “Microsoft Scripting Runtime” يدوياً من قائمة المراجع (Tools -> References) في بيئة VBE، مما يوفر ميزة الإكمال التلقائي للشيفرات (IntelliSense) أثناء الكتابة وسرعة طفيفة في وقت التنفيذ. أما الآلية الثانية فهي “الربط المتأخر” (Late Binding)، وتعتمد على إنشاء الكائن ديناميكياً في وقت التشغيل عبر دالة CreateObject("Scripting.FileSystemObject"). وتعتبر الآلية الأخيرة هي المفضلة عند توزيع الحلول البرمجية بين مستخدمين يمتلكون إصدارات مختلفة من حزمة أوفيس، حيث تجنبهم أخطاء تعطل المراجع المفقودة (Broken Reference Errors).

تتجلى المزايا التقنية لاستخدام FSO في دقته المطلقة في التمييز بين المسارات والملفات وامتداداتها، حيث تعتمد توابعه على دوال نظام التشغيل الأساسية. هذا يضمن التعامل القياسي مع كافة السيناريوهات والحالات الشاذة، مما يجعل الشيفرات أكثر قابلية للصيانة وأقل عرضة للثغرات الحسابية الناتجة عن أخطاء الفهارس النصية.

5.2 استخراج الاسم الأساسي للمصنف باستخدام GetBaseName

يقدم كائن نظام الملفات تابعاً برمجياً متخصصاً يسمى GetBaseName، وتتمثل وظيفته المحددة في تجريد أي مسار لملف أو اسم ملف معطى من امتداده النهائي وإرجاع الاسم الأساسي المجرد تلقائياً دون أدنى حاجة لحساب مواقع النقاط أو استخدام دوال القص والاقتطاع النصي. يتعامل هذا التابع بذكاء مدمج مع الأسماء المعقدة، ويدرك طبيعة بنية الملفات بصورة تفوق خوارزميات النصوص التقليدية.

لاستخدام هذا التابع بكفاءة، يتم تمرير مسار المصنف الكامل عبر الخاصية FullName أو اسمه عبر الخاصية Name إلى الدالة المخصصة، كما يوضح المثال البرمجي المتكامل التالي المعتمد على الربط المتأخر:

Public Function GetWorkbookBaseNameFSO(ByVal targetWb As Workbook) As String
    Dim fsoInstance As Object
    On Error GoTo CleanExit
    Set fsoInstance = CreateObject("Scripting.FileSystemObject")
    GetWorkbookBaseNameFSO = fsoInstance.GetBaseName(targetWb.Name)
    Set fsoInstance = Nothing
    Exit Function
CleanExit:
    GetWorkbookBaseNameFSO = targetWb.Name
End Function

يتميز هذا الأسلوب بالبساطة والأناقة البرمجية العالية، فهو يختصر سطور الأكواد الطويلة ويحد من احتمالات الخطأ، مما يجعله الخيار المثالي في المشاريع المؤسسية التي تتطلب درجة عالية من الموثوقية والاستقرار عند التعامل مع كميات ضخمة من الملفات المختلفة.

5.3 استخراج الامتداد بشكل منفصل عبر GetExtensionName

بالمثل، يوفر كائن FSO تابعاً مكملاً يسمى GetExtensionName، وهو مخصص لاستخلاص الامتداد النهائي للملف بمعزل تام عن الاسم أو المسار. هذا الفصل الهيكلي بين استخراج الاسم الأساسي واستخراج الامتداد يمنح المطور طبقة إضافية من الأمان والتحكم البرمجي، حيث يمكن استخدام الامتداد المسترجع للتحقق من هوية الملف ونوعه الأمني قبل اتخاذ قرارات تنفيذية معقدة داخل الإجراء.

تكتسب هذه الوظيفة أهمية مضاعفة في بيئات العمل الحساسة، حيث قد يستلزم الإجراء التحقق البرمجي التام من أن المصنف المفتوح يحمل الامتداد xlsm أو xlsb (المصنفات الداعمة للماكرو) قبل الشروع في محاولة استدعاء وحدات نمطية داخلية أو تصدير نماذج، لتجنب حدوث انهيار برمجي فجائي إذا تم تشغيل الشيفرة بالخطأ على مصنف xlsx قياسي مجرد من أكواد الأتمتة، كما يوضح النموذج التالي:

Public Function ValidateMacroExtension(ByVal wb As Workbook) As Boolean
    Dim fso As Object
    Dim ext As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    ext = LCase(fso.GetExtensionName(wb.Name))
    If ext = "xlsm" Or ext = "xlsb" Then
        ValidateMacroExtension = True
    Else
        ValidateMacroExtension = False
    End If
    Set fso = Nothing
End Function

بهذه الطريقة، تضمن بنية المشروع توافقاً تشغيلياً آمناً، وتفصل طبقة الفحص الأمني والتحقق من التنسيق عن طبقة العمليات الحسابية والمنطقية الأساسية.

6. التعامل مع المسارات الكاملة للمصنفات والتخزين السحابي

6.1 تحليل مسارات الأنظمة المحلية والشبكية عبر FullName

عند التعامل مع أنظمة التشغيل التقليدية على الأجهزة الشخصية، تأخذ السلسلة النصية المرجعة من خاصية FullName هيكلية قياسية تتبع معايير ويندوز للمسارات المطلقة (Absolute Local Paths)، حيث تبدأ بحرف محرك الأقراص متبوعاً بنقطتين وشرطة مائلة خلفية، وتتوالى المجلدات مفصولة بنفس الشرطة حتى تنتهي باسم الملف وامتداده (مثل: C:CompanyAnalyticsModel.xlsm). أما في بيئات العمل المؤسسية المشتركة، فإن الملفات قد تستقر على خوادم شبكية محلية، مما يغير صيغة المسار إلى صيغة مسار التسمية المعياري الموحد (Universal Naming Convention – UNC)، والتي تبدأ بشرطتين مائلتين خلفيتين (مثل: ServerShareDepartmentModel.xlsm).

يتطلب التحليل البرمجي استخراج اسم المجلد الحاوي للمصنف بالتزامن مع اسم المصنف نفسه، وذلك لإنشاء نسخ احتياطية في نفس الحاوية الجغرافية. في مسارات ويندوز المحلية والشبكية، يكون الفاصل المعتمد هو دائماً الشرطة المائلة للخلف (). يمكن للبرامج المتقدمة استخدام الدالة InStrRev للبحث عن آخر ظهور لعلامة لاقتطاع اسم المجلد بدقة تامة وبصورة مستقلة عن اسم المصنف.

إلا أن الخطر البرمجي يكمن في افتراض أن هذا النسق المعتمد على الشرطة المائلة للخلف هو النسق الحصري والدائم؛ إذ إن التطورات التكنولوجية الحديثة وانتقال أعباء العمل إلى البيئات السحابية غيرت جذرياً من طبيعة المسارات المسترجعة عبر خاصية FullName، مما يفرض اتباع استراتيجيات أكثر شمولاً وتطوراً في تحليل النصوص وتفكيك المسارات.

6.2 تحديات مسارات التخزين السحابي (OneDrive وSharePoint)

مع الانتشار الواسع لبيئات العمل الحديثة المعتمدة على مايكروسوفت 365 (Microsoft 365)، أصبحت غالبية المصنفات المؤسسية تُحفظ مباشرة على خوادم ون درايف (OneDrive) أو شير بوينت (SharePoint). عندما يكون المصنف مفتوحاً ومحفوظاً ضمن هذه المستودعات السحابية، يطرأ تحول دراماتيكي على سلوك خاصية FullName؛ إذ تتوقف عن إرجاع مسار محلي على القرص الصلب، وتبدأ بدلاً من ذلك في إرجاع عنوان إنترنت قياسي موحد للموارد (Uniform Resource Locator – URL) يبدأ ببروتوكول الويب مثل https://company.sharepoint.com/sites/.../File.xlsm.

يفرض هذا التحول تحديات برمجية معقدة. التحدي الأول يتمثل في ترميز الروابط (URL Encoding)، حيث يتم استبدال المسافات الفارغة الموجودة في أسماء المجلدات أو الملفات بالرمز %20، وتتحول بعض الرموز الخاصة إلى رموز ست عشرية مسبوقة بعلامة النسبة المئوية. وإذا حاولت الشيفرة البرمجية قراءة اسم المصنف من هذا الرابط السحابي بالأساليب القديمة، فقد ينتهي بها الأمر بأسماء ملفات مشوهة تحتوي على رموز الترميز بدلاً من الحروف الأصلية للغة المستخدم.

التحدي الثاني يرتبط باختلاف علامة الفصل؛ فبينما يعتمد نظام ويندوز المحلي على الشرطة المائلة للخلف ()، تعتمد روابط الويب السحابية على الشرطة المائلة للأمام (/). وبالتالي، فإن أي خوارزمية قديمة مبرمجة على البحث عن الشرطة المائلة للخلف فقط ستبوء بالفشل التام، وستعجز عن استخلاص اسم المصنف من مساره السحابي، مما يسبب انهيار وحدات الماكرو المؤسسية المنقولة حديثاً إلى السحابة الرقمية.

6.3 فصل الاسم عن المسار السحابي باستخدام دوال التفكيك النصي

للتغلب على تعقيدات المسارات السحابية وتحقيق التوافق الشامل بين الأنظمة المحلية والسحابية، تعتبر دالة التفكيك النصي Split الأداة المثلى في ترسانة مطوري VBA. تقوم الدالة Split بتقطيع السلسلة النصية الكلية إلى مصفوفة ذات بعد واحد من السلاسل النصية الفرعية استناداً إلى رمز فاصل يتم تحديده مسبقاً. وفي سياق الروابط السحابية، يتم استخدام الشرطة المائلة للأمام (/) كرمز تجزئة أساسي.

عقب إتمام عملية التقطيع، يمكن الوصول إلى العنصر الأخير في المصفوفة الناتجة باستخدام الدالة المعيارية UBound، والتي ترجع تلقائياً أقصى فهرس علوي متاح في المصفوفة، والذي يمثل منطقياً اسم الملف المنشود. كما يجب أن يمتد الإجراء البرمجي لفحص ومعالجة أي معلمات استعلام إضافية (Query Parameters) قد يلحقها نظام SharePoint باسم الملف لأغراض التتبع والمزامنة (مثل: File.xlsm?web=1)، وذلك بالبحث عن علامة الاستفهام واقتطاع ما قبلها بدقة، كما يوضح النموذج المعياري المتقدم التالي:

Public Function ExtractFileNameFromAnyPath(ByVal fullPath As String) As String
    Dim pathSegments() As String
    Dim rawFileName As String
    Dim queryPos As Long
    
    ' فحص وتوحيد الفواصل النصية سواء كانت محلية أو سحابية
    If InStr(fullPath, "/") > 0 Then
        pathSegments = Split(fullPath, "/")
    Else
        pathSegments = Split(fullPath, "")
    End If
    
    rawFileName = pathSegments(UBound(pathSegments))
    
    ' التخلص من معلمات الاستعلام السحابية إن وجدت
    queryPos = InStr(rawFileName, "?")
    If queryPos > 0 Then
        rawFileName = Left(rawFileName, queryPos - 1)
    End If
    
    ' فك ترميز المسافات في الروابط السحابية
    ExtractFileNameFromAnyPath = Replace(rawFileName, "%20", " ")
End Function

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

7. أمثلة تطبيقية واقعية وسيناريوهات برمجية عملية

7.1 المثال الأول: إنشاء سجل تدقيق (Audit Trail) يدون اسم المصنف تلقائياً

في بيئات النمذجة المحاسبية والبحث العلمي، يمثل تتبع النشاط وتوثيق هوية المصادر عنصراً محورياً لضمان مصداقية البيانات وقابليتها للتدقيق. في هذا السيناريو العملي، سنقوم ببناء إجراء فرعي متخصص يقوم تلقائياً بكتابة سجل تدقيق رقمي داخل ورقة عمل مخصصة (قد تكون مخفية)، حيث يدون الإجراء تاريخ ووقت التعديل، واسم المستخدم، واسم المصنف الفعال المسترجع برمجياً.

يوظف هذا الإجراء اسم المصنف كمرجع تتبع رئيسي، مما يتيح للإدارات دمج سجلات متعددة من مصنفات مختلفة في تقرير رقابي مركزي موحد، كما يتضح من الشيفرة التالية:

Public Sub RecordAuditTrailEntry()
    Dim auditWs As Worksheet
    Dim nextRow As Long
    Dim targetWb As Workbook
    
    Set targetWb = ActiveWorkbook
    On Error Resume Next
    Set auditWs = targetWb.Worksheets("AuditLog")
    On Error GoTo 0
    
    If auditWs Is Nothing Then
        ' إنشاء ورقة السجل إذا لم تكن موجودة مسبقاً
        Set auditWs = targetWb.Worksheets.Add(After:=targetWb.Worksheets(targetWb.Worksheets.Count))
        auditWs.Name = "AuditLog"
        auditWs.Range("A1:D1").Value = Array("التاريخ والوقت", "اسم المصنف", "المسار الكامل", "اسم المستخدم")
        auditWs.Rows(1).Font.Bold = True
    End If
    
    nextRow = auditWs.Cells(auditWs.Rows.Count, "A").End(xlUp).Row + 1
    
    ' تدوين البيانات الوصفية بدقة متناهية
    auditWs.Cells(nextRow, 1).Value = Now
    auditWs.Cells(nextRow, 2).Value = targetWb.Name
    auditWs.Cells(nextRow, 3).Value = targetWb.FullName
    auditWs.Cells(nextRow, 4).Value = Application.UserName
    
    auditWs.Columns("A:D").AutoFit
End Sub

يوفر هذا التطبيق آلية مؤسسية محكمة تلغي الحاجة للتسجيل اليدوي، وتضمن وجود سجل تدقيق رقمي متكامل يخدم أهداف الرقابة المالية والحوكمة الرقمية بكفاءة عالية.

7.2 المثال الثاني: تصدير أوراق العمل بتسميات مشتقة من اسم المصنف الرئيسي

يتمثل السيناريو التطبيقي الثاني في أتمتة عملية تصدير التقارير الإدارية من إكسل إلى ملفات نسق المستندات المنقولة (PDF)، مع اشتراط أن تحمل الملفات المصدرة تسميات مشتقة بصورة ديناميكية من الاسم الأساسي للمصنف الحاوي للبيانات، مضافاً إليها تاريخ اليوم واسم ورقة العمل المصدرة. يعزز هذا الإجراء كفاءة سلاسل النشر وتوليد المخرجات الدورية بصورة متناسقة.

يعتمد الإجراء على استخراج الاسم الأساسي المجرد للمصنف باستخدام دالة InStrRev لتفادي تكرار الامتدادات (مثل منع ظهور اسم مشوه مثل Report.xlsx.pdf)، ثم توجيه أمر التصدير عبر الأسلوب ExportAsFixedFormat، كما هو موضح أدناه:

Public Sub ExportSheetDerivedFromWbName()
    Dim currentWb As Workbook
    Dim baseName As String
    Dim exportPath As String
    Dim fullFileName As String
    Dim dotIndex As Long
    
    Set currentWb = ActiveWorkbook
    
    ' التحقق من أن المصنف محفوظ وله مسار صالح
    If Len(currentWb.Path) = 0 Then
        MsgBox "يرجى حفظ مصنف العمل أولاً لتحديد مسار التصدير.", vbExclamation, "تنبيه"
        Exit Sub
    End If
    
    ' استخلاص الاسم بدون الامتداد
    dotIndex = InStrRev(currentWb.Name, ".")
    If dotIndex > 1 Then
        baseName = Left(currentWb.Name, dotIndex - 1)
    Else
        baseName = currentWb.Name
    End If
    
    ' بناء مسار التصدير التكاملي
    fullFileName = baseName & "_" & ActiveSheet.Name & "_" & Format(Date, "yyyy-mm-dd") & ".pdf"
    exportPath = currentWb.Path & Application.PathSeparator & fullFileName
    
    ' تنفيذ عملية التصدير القياسية
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                   Filename:=exportPath, _
                                   Quality:=xlQualityStandard, _
                                   IncludeDocProperties:=True, _
                                   IgnorePrintAreas:=False, _
                                   OpenAfterPublish:=False
                                   
    MsgBox "تم التصدير بنجاح إلى المسار التالي:" & vbCrLf & exportPath, vbInformation, "نجاح العملية"
End Sub

يضمن هذا الأسلوب أتمتة تسمية الملفات بطريقة منهجية وموحدة، مما يحول دون تداخل الإصدارات ويسهل أرشفة الوثائق بصورة قياسية عبر الأقسام المختلفة.

7.3 المثال الثالث: التكرار عبر كافة المصنفات المفتوحة وجلب أسمائها

في الحالات التي تتطلب معالجة دفعية (Batch Processing) أو تجميع مصفوفات البيانات من ملفات متعددة مفتوحة في نفس جلسة عمل إكسل، يبرز التكرار الحلقي عبر مجموعة المصنفات (Workbooks Collection) كأداة حيوية لا غنى عنها. يسمح هذا النمط للمطور بفحص كل مصنف مفتوح، والتحقق من اسمه، وتفريغ قوائم أسماء المصنفات في جدول تحكم رئيسي، مع إمكانية استبعاد مصنف الشيفرة البرمجية نفسه لتفادي الإغلاق أو التعديل الذاتي غير المقصود.

تستخدم الشيفرة التالية حلقة التكرار For Each...Next لتمرير المؤشر على كل كائن مصنف مفرد واستخراج هويته، كما هو موضح في الإجراء الآتي:

Public Sub ListAllOpenWorkbooks()
    Dim wb As Workbook
    Dim reportSheet As Worksheet
    Dim rowIndex As Long
    
    ' استخدام مصنف الشيفرة الحالي لإيداع التقرير
    Set reportSheet = ThisWorkbook.ActiveSheet
    reportSheet.Range("A:C").ClearContents
    
    reportSheet.Cells(1, 1).Value = "اسم المصنف"
    reportSheet.Cells(1, 2).Value = "حالة الحفظ"
    reportSheet.Cells(1, 3).Value = "المسار الكامل"
    reportSheet.Rows(1).Font.Bold = True
    
    rowIndex = 2
    For Each wb In Application.Workbooks
        reportSheet.Cells(rowIndex, 1).Value = wb.Name
        reportSheet.Cells(rowIndex, 2).Value = IIf(wb.Saved, "محفوظ", "يحتوي تعديلات غير محفوظة")
        reportSheet.Cells(rowIndex, 3).Value = IIf(Len(wb.Path) > 0, wb.FullName, "غير محفوظ على القرص")
        rowIndex = rowIndex + 1
    Next wb
    
    reportSheet.Columns("A:C").AutoFit
    MsgBox "تم حصر وتدوين أسماء المصنفات المفتوحة بنجاح.", vbInformation, "اكتمال الفحص"
End Sub

يوفر هذا السيناريو بنية تحتية متكاملة لمديري قواعد البيانات ومطوري النماذج المتقدمة، حيث يساعد في بناء لوحات تحكم ترصد الملفات المفتوحة في بيئة التشغيل وتتحقق من مطابقتها للمعايير المطلوبة قبل بدء إجراءات المعالجة والدمج المعقدة.

8. إدارة الأخطاء وحماية الشيفرة من الانهيار البرمجي

8.1 التعامل مع بيئات انعدام وجود مصنف نشط (No Active Workbook)

من أبرز الثغرات البرمجية التي قد يقع فيها مطورو وحدات الماكرو هي الافتراض الدائم لوجود مصنف نشط داخل بيئة التطبيق أثناء تنفيذ الشيفرة. ففي بعض السيناريوهات الواقعية، قد يقوم المستخدم أو إجراء برمجي سابق بإغلاق كافة المصنفات المفتوحة مع الإبقاء على تطبيق إكسل قيد التشغيل كنافذة رمادية فارغة. في هذه الحالة بالذات، تصبح القيمة المرجعية لكائن ActiveWorkbook معادلة للقيمة المنطقية الخالية Nothing.

إذا حاولت الشيفرة البرمجية في ظل هذه الظروف استدعاء أي خاصية من هذا الكائن غير الموجود، مثل محاولة تقييم ActiveWorkbook.Name، فإن محرك VBA سيتوقف فجأة ويطلق خطأ وقت التشغيل الشهير رقم 91: “Object variable or With block variable not set”. يؤدي هذا الانهيار إلى ظهور نوافذ تصحيح الأخطاء (Debug Windows) للمستخدمين النهائيين، وهو مظهر غير لائق بالحلول البرمجية الاحترافية يربك المستخدمين وقد يعرض أمان الكود المصدري للمشروع للخطر.

تقتضي البرمجة الدفاعية الرصينة تضمين فحص شرطي استباقي ومباشر للتحقق من وجود الكائن قبل محاولة استنطاق خصائصه، وذلك بصياغة تعليمة شرطية واضحة:

If ActiveWorkbook Is Nothing Then
    MsgBox "لا يوجد أي مصنف عمل مفتوح حالياً لتنفيذ العملية.", vbExclamation, "خطأ في السياق"
    Exit Sub
End If

يمنع هذا الفحص البسيط حدوث الانهيار البرمجي الفجائي، ويوجه مسار التنفيذ بأمان نحو الخروج الإجرائي أو إشعار المستخدم بما يجب اتخاذه من خطوات تصحيحية.

8.2 تضمين كتل معالجة الأخطاء الهيكلية On Error

لا يقتصر تصميم الإجراءات الرصينة على الفحوصات المنطقية الاستباقية فحسب، بل يمتد ليشمل بناء بنية اعتراضية للأخطاء غير المتوقعة عبر كتل المعالجة الهيكلية باستخدام تعليمة On Error GoTo. تسمح هذه التعليمة بتحويل مسار تنفيذ البرنامج فور حدوث أي خطأ في وقت التشغيل إلى روتين تنظيف متخصص يقع في نهاية الإجراء، بدلاً من إيقاف البرنامج بشكل قسري وعرض شاشات التصحيح للمستخدم.

داخل روتين معالجة الأخطاء، يمكن للمطور تسجيل تفاصيل الخطأ بدقة باستخدام كائن الخطأ Err، الذي يوفر رقماً وصفياً للخطأ عبر Err.Number وتفسيراً نصياً له عبر Err.Description. كما تتيح هذه البنية إعادة بيئة إكسل إلى حالتها الأصلية قبل وقوع العطل، مثل إعادة تفعيل تحديث الشاشة وأصوات التنبيه إذا كانت معطلة، كما يوضح الهيكل التالي:

Public Sub SafeWorkbookOperation()
    On Error GoTo ErrorHandler
    
    Dim targetName As String
    ' تنفيذ العمليات الحساسة
    targetName = ActiveWorkbook.Name
    
    ' ... العمليات التشغيلية الأخرى ...
    
    Exit Sub

ErrorHandler:
    ' روتين التعامل مع الأخطاء غير المتوقعة
    MsgBox "حدث خطأ غير متوقع أثناء استخراج هوية المصنف:" & vbCrLf & _
           "رقم الخطأ: " & Err.Number & vbCrLf & _
           "الوصف: " & Err.Description, vbCritical, "خطأ تشغيلي"
    ' إعادة تصفير كائن الخطأ
    Err.Clear
End Sub

تسهم هذه المنهجية الهيكلية في حماية المشاريع البرمجية من الانهيارات غير المسيطر عليها، وترفع من موثوقية الشيفرات واستقرارها في البيئات الإنتاجية والمؤسسية المعقدة.

8.3 معالجة أخطاء الدوال المخصصة داخل أوراق العمل

عندما تُستخدم دوال استرجاع اسم المصنف كدوال مخصصة (UDFs) داخل خلايا أوراق العمل، فإن فلسفة إدارة الأخطاء تختلف جذرياً عن الإجراءات الفرعية المستقلة؛ إذ لا يمكن للدوال المخصصة استخدام صناديق الرسائل MsgBox لإزعاج المستخدم في كل مرة يعاد فيها حساب ورقة العمل. فإذا تعرضت الشيفرة داخل الدالة المخصصة لأي استثناء غير معالج، فإن محرك إكسل سيعرض رمز الخطأ الشهير #VALUE! داخل الخلية الحاوية للصيغة.

لتجنب هذا التشوه البصري والوظيفي في لوحات التحكم والتقارير المالية، يجب أن تصمم الدالة المخصصة بحيث تمتص الأخطاء التشغيلية وتعيد نصوصاً بديلة واضحة وذات مغزى إداري، أو تعيد سلسلة نصية فارغة توازي "" تسمح لبقية معادلات التقرير بالاستمرار في العمل دون توقف، كما يوضح النموذج التالي:

Public Function GetSafeSheetWbName() As String
    On Error GoTo FunctionFailure
    
    If ActiveWorkbook Is Nothing Then
        GetSafeSheetWbName = "[لا يوجد مصنف نشط]"
        Exit Function
    End If
    
    GetSafeSheetWbName = ActiveWorkbook.Name
    Exit Function

FunctionFailure:
    ' إرجاع قيمة نصية تدل على الفشل بدلاً من خطأ النظام
    GetSafeSheetWbName = "[خطأ في الحساب]"
    Err.Clear
End Function

علاوة على ذلك، ينبغي على المطور التأكد من توافق نوع البيانات المرجع (String) مع تنسيق الخلايا المستهدفة، حيث إن إرجاع كائنات غير نصية في خلايا معدة للنصوص قد يسبب سلوكيات حسابية غير منضبطة تعوق أداء النماذج المالية والتحليلية.

9. اعتبارات الأداء وتحسين كفاءة التنفيذ في المشاريع الكبرى

9.1 التحكم في خاصية التطاير (Volatile) للدوال المخصصة

تتمتع دوال VBA المخصصة بسلوك حسابي افتراضي يُعرف باسم “الدوال غير المتطايرة” (Non-Volatile Functions)، مما يعني أن محرك حسابات إكسل لا يعيد حساب الدالة إلا إذا طرأ تغيير على قيم الخلايا الممررة كوسائط بين قوسي الدالة. ولكن في حالة دالة استخراج اسم المصنف مثل GetWorkbookName()، لا توجد وسائط خلايا ممررة إلى الدالة. وبالتالي، إذا قام المستخدم بإعادة تسمية المصنف أو حفظه باسم جديد عبر Save As، فلن تتحدث مخرجات الدالة في خلايا ورقة العمل تلقائياً، بل ستظل محتفظة بالاسم القديم حتى يجبر المستخدم الخلية على إعادة الحساب يدوياً.

لحل هذه المعضلة، يلجأ بعض المبرمجين إلى إدراج التعليمة Application.Volatile True في بداية الدالة، مما يحولها إلى “دالة متقلبة” أو “متطايرة”. تجبر هذه التعليمة محرك إكسل على إعادة تقييم وحساب الدالة المخصصة في كل مرة يحدث فيها أي تغيير في أي خلية داخل أي ورقة عمل مفتوحة، أو عند الضغط على مفتاح F9. هذا السلوك يضمن ظهور الاسم المحدث للمصنف بصورة لحظية ودون أي تأخير.

ومع ذلك، ينطوي هذا الحل على كلفة حاسوبية باهظة في المشاريع الكبرى؛ إذ إن الإفراط في جعل الدوال متطايرة داخل جداول تحتوي على عشرات الآلاف من الصفوف يؤدي إلى استهلاك مفرط لموارد المعالج وبطء ملحوظ في سرعة استجابة ورقة العمل. لذلك، توصي المعايير الأكاديمية والبرمجية المتطورة بعدم تفعيل خاصية التطاير إلا في أضيق الحدود، والموازنة بدقة بين التحديث التلقائي للحالة الوصفية وكفاءة إدارة الذاكرة وسرعة تنفيذ الحسابات الرياضية للمصنف.

9.2 إيقاف تحديث الشاشة وتعطيل الأحداث أثناء العمليات المتكررة

عند تنفيذ عمليات معالجة دفعية ضخمة تتضمن فتح وإغلاق عشرات المصنفات المتتالية لفحص وقراءة أسمائها، يؤدي التفاعل البصري لواجهة المستخدم إلى إهدار جزء كبير من وقت المعالجة. يستهلك محرك الرسوميات وقتاً معتبراً في إعادة رسم النوافذ، وعرض أشرطة التمرير، وتحديث شاشات الأوراق في كل مرة يتبدل فيها المصنف النشط أو يتم قراءة خاصية تابعة له.

لتحقيق أقصى كفاءة زمنية، يتعين على المطور تعطيل خاصية تحديث الشاشة في بداية الإجراء التنفيذي عبر التعليمة Application.ScreenUpdating = False. بالإضافة إلى ذلك، يوصى بتعطيل تشغيل الأحداث التلقائية عبر Application.EnableEvents = False؛ لمنع إطلاق أكواد أحداث التنشيط والإغلاق (مثل Workbook_Open أو Workbook_Activate) المخزنة داخل المصنفات المستهدفة، والتي قد تؤدي إلى إبطاء الفحص أو فتح نوافذ حوارية غير مرغوب فيها تعطل دورة المعالجة المؤتمتة.

ومن الأهمية بمكان التأكيد على ضرورة إعادة تفعيل هذه الخصائص بصورة صارمة ومضمونة في نهاية الإجراء التنفيذي (وفي كتل معالجة الأخطاء أيضاً) عبر تعيين قيمتها إلى True. يضمن هذا الإجراء عودة بيئة إكسل إلى حالتها التشغيلية الطبيعية، واستعادة التفاعل البصري السلس مع واجهة المستخدم، وتفادي تجمد الواجهة الرسومية بعد اكتمال الماكرو.

9.3 أفضل ممارسات توثيق الشيفرات البرمجية والالتزام بالمعايير الأكاديمية

يمثل التوثيق البرمجي الرصين الفارق الجوهري بين الأكواد الهواة والبرمجيات المؤسسية المستدامة. في مشاريع النمذجة المتقدمة، يجب إرفاق كل دالة أو إجراء فرعي بترويسة تعليقات توضيحية تشرح الغرض الوظيفي للشيفرة، والمدخلات المتوقعة، والمخرجات المسترجعة، والاستثناءات المحتملة، ورقم الإصدارة البرمجية. هذا التوثيق يسهل على المطورين والباحثين المستقبليين صيانة وتطوير البرمجيات دون الحاجة لإعادة هندسة الشيفرات من الصفر.

علاوة على ذلك، يُنصح بالالتزام بمعايير التسمية القياسية المعترف بها دولياً للمتغيرات والدوال، مثل اعتماد التدوين المجري (Hungarian Notation) أو سنام الجمل (CamelCase). يقتضي هذا النهج إضافة بادئة نوعية للمتغيرات (مثل استخدام strWbName للإشارة إلى متغير نصي يحمل اسم المصنف، أو lngDotPosition لمتغير رقمي طويل يحمل موضع النقطة). هذا الالتزام الصارم يقلل من احتمالات الخطأ في خلط الأنواع أثناء المعالجة ويجعل الشيفرة وثيقة الصلة بالأدبيات البرمجية الرصينة، كما يوصى بتنظيم الأكواد في وحدات نمطية متخصصة ومستقلة، مثل تخصيص وحدة باسم modMetadataServices تجمع كافة الدوال المعنية بالبيانات الوصفية للمصنفات في مكان واحد منظم.

وتجدر الإشارة في هذا السياق المعرفي إلى أن استراتيجيات حل المشكلات وتفكيك المتطلبات البرمجية المعقدة ترتبط ارتباطاً وثيقاً بنماذج التفكير المنطقي والتحليل السليم للإجراءات المتسلسلة، وهي محاور تناولتها الدراسات المعرفية والأكاديمية في تحليل أساليب الاستدلال المنطقي وحل المسائل الاستنتاجية ضمن سياقات تعليمية وتقنية متقدمة (Rawlins, 2021). يوضح هذا التكامل المعرفي أن صياغة الشيفرات المنضبطة ليست مجرد مهارة تقنية بحتة، بل هي تطبيق عملي لمنهجيات التفكير المنطقي والهندسة المنظمة لحل المشكلات.

10. الخلاصة والآفاق المستقبلية لأتمتة بيانات المصنفات

10.1 مقارنة شاملة بين الطرق المستعرضة وتوصيات التطبيق

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

المنهجية البرمجية	الوسيلة المستخدمة	التعامل مع الامتداد	التوافق السحابي	الاستخدام الموصى به
الخاصية المباشرة	ActiveWorkbook.Name أو ThisWorkbook.Name	يتضمن الامتداد دائماً بعد الحفظ	يعيد الاسم مجرداً بدقة تامة	الدوال البسيطة، رسائل التنبيه، وسجلات التدقيق المباشرة.
المعالجة النصية المدمجة	InStrRev مع Left	يفصل ويزيل الامتداد يدوياً	يتطلب معالجة الفواصل المائلة (/) و(?)	استخراج الاسم الأساسي دون الاعتماد على مكتبات إضافية.
كائن نظام الملفات	FileSystemObject.GetBaseName	يعزل ويزيل الامتداد تلقائياً	محدود بالمسارات المحلية ومسارات UNC	العمليات المؤسسية على الخوادم المحلية وإدارة الملفات المتقدمة.

بناءً على هذا التقييم المقارن، نوصي باعتماد ThisWorkbook.Name عندما تكون الشيفرة جزءاً من أداة عمل أو قالب تشغيلي يعتمد على ملفه الخاص، بينما نوصي باستخدام ActiveWorkbook.Name مقرونة بالمعالجة النصية عبر InStrRev كمعيار ذهبي للحلول العامة المستقلة، لما توفره من مرونة وسرعة وتوافق عابر لمنصات إكسل المختلفة دون الاعتماد على مراجع نظام التشغيل الموضعية.

10.2 الانتقال نحو التقنيات الحديثة: تكامل VBA مع Office Scripts وPython

مع تسارع وتيرة التحول الرقمي نحو بيئات الحوسبة السحابية متعددة المنصات، تشهد بيئة أتمتة إكسل تطورات تقنية متلاحقة تمتد إلى ما وراء لغة VBA التقليدية. من أبرز هذه التحولات إطلاق نصوص أوفيس (Office Scripts) المعتمدة على لغة تايب سكريبت (TypeScript)، والتي صممتها مايكروسوفت لتعمل بسلاسة تامة عبر متصفحات الويب والأنظمة المحمولة دون الحاجة لتثبيت برمجيات سطح المكتب. في هذه البيئة الحديثة، يتم استدعاء اسم المصنف من خلال واجهات برمجة الكائنات السحابية مثل workbook.getName()، والتي تؤمن توافقاً معمارياً متقدماً مع أدوات الأتمتة المؤسسية السحابية مثل Power Automate.

بالتوازي مع ذلك، أحدث الدمج الأصلي المباشر للغة بايثون (Python in Excel) ثورة نوعية في القدرات التحليلية للمصنفات. تتيح مكتبات بايثون المدمجة حديثاً التعامل مع البيانات الوصفية كمتغيرات برمجية قابلة للدمج المباشر مع أطر معالجة البيانات الضخمة (مثل مكتبة Pandas وNumPy)، مما يتيح استخراج أسماء الملفات وتضمينها كأعمدة تعريفية داخل أطر البيانات (DataFrames) في خطوة حسابية واحدة فائقة السرعة.

وعلى الرغم من هذا الانفتاح التقني الكبير وتعدد لغات البرمجة الحديثة، تظل لغة VBA الركيزة الأساسية والبنية الأكثر استقراراً وانتشاراً في بيئات العمل المؤسسية المحلية والأنظمة المحاسبية المتخصصة. إن إتقان التعامل مع نموذج كائنات إكسل وفهم البيانات الوصفية عبر VBA يشكل الأساس المفاهيمي الصلب الذي يمكّن المطورين من الانتقال بسلاسة وثقة نحو كافة تقنيات الأتمتة الحديثة، وبناء حلول رقمية تجمع بين متانة الأنظمة المستقرة ومرونة السحابة المستقبلية.

المراجع

• Houghton, G., & Grange, J. A. (2011). CDF-XL: computing cumulative distribution functions of reaction time data in Excel. Behavior Research Methods. https://doi.org/10.3758/s13428-011-0119-3
• Rawlins, K. (2021). Effects of Dyslexia on Problem Solving – Strategies and Interventions for Syllogistic Reasoning. Lancaster EPrints (Lancaster University). https://doi.org/10.17635/lancaster/thesis/1256