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

تنزيل Practice Workbook

تنزيل هذا المصنف التدريبي أدناه.

فتح المصنف باسم المتغير باستخدام VBA.xlsm

Sample.xlsx

4 سهل طرق فتح المصنف باسم متغير باستخدام VBA في Excel

سنستخدم مجموعة البيانات أدناه للعرض التوضيحي. لدينا معلومات المنتج للعديد من المنتجات مع معرفهم. هذا هو نموذج للملف الذي سنفتحه باستخدام رمز VBA.

1. استخدام Workbook.Open Property

استخدام Workbook افتح الخاصية ، يمكننا فتح الملفات بذكر الدليل ، أو عدم ذكر المكان. يمكننا أيضًا أن نجعل الملف المفتوح للقراءة فقط.

1.1 افتح مسار الملف الذي يشير إلى المصنف

في الطريقة التالية ، سنستخدم Workbook.Open Property لفتح الملف مباشرة من دليل موقع الملف المذكور. بغض النظر عن مكان الملف ، يمكننا فتح الملفوهو Sub Open_File_with_Add_Property ()

⮚ ثم نعلن عن متغير File_Path كـ String type.

5805

⮚ And اضبط المتغير مسار_الملف على موقع الملف.

4523

⮚ نعلن wb كمتغير في نوع مصنف .

3206

⮚ يتم إضافة المصنف من الدليل المخزن في موقع مسار_الملف باستخدام الخاصية المصنف. الإجراء الفرعي لهذا الرمز.

اقرأ المزيد: [Fixed!] فشل أسلوب فتح مصنفات الكائنات (4 حلول)

الخاتمة

لتلخيص ذلك ، يتم الرد هنا على مسألة كيفية فتح المصنفات بأسماء متغيرة باستخدام VBA من خلال 4 أمثلة مختلفة. تتطلب الطريقة VBA Macro معرفة سابقة متعلقة بـ VBA لفهمها من البداية.

بالنسبة لهذه المشكلة ، يتوفر مصنف ممكّن بماكرو للتنزيل حيث يمكنك التدرب هذه الطرق.

لا تتردد في طرح أي أسئلة أو ملاحظات من خلال قسم التعليقات. أي اقتراح لتحسين مجتمع Exceldemy سيكون محل تقدير كبير

الخطوات

• لدينا ملف مخزّن في مجلد المستندات الذي نحتاج إلى فتحه.
• سنستخدم الملف name كمتغير ثم افتح الملف باستخدام ماكرو VBA صغير.
• يظهر دليل الملف الدقيق للملف أدناه في نافذة الخصائص.

• أولاً ، انتقل إلى علامة التبويب Developer وانقر فوق Visual Basic . إذا لم يكن لديك ذلك ، فيجب عليك تمكين علامة التبويب المطور . أو يمكنك أيضًا الضغط على ' Alt + F11' لفتح محرر Visual Basic .

• ثم سيكون هناك مربع حوار جديد ، في مربع الحوار هذا ، انقر فوق إدراج & gt؛ الوحدة النمطية .

• بعد ذلك ، في نافذة محرر الوحدة النمطية ، اكتب الكود التالي:

3107

• ثم أغلق نافذة الوحدة
• بعد ذلك ، انتقل إلى عرض علامة التبويب & GT ؛ وحدات الماكرو .
• ثم انقر فوق عرض وحدات الماكرو .

• بعد النقر فوق عرض وحدات الماكرو ، حدد وحدات الماكرو التي أنشأتها للتو. الاسم هنا هو Open_with_File_Path . ثم انقر فوق تشغيل .

• وبعد ذلك سيتم فتح نموذج نموذج .

تفصيل الكود

1177

⮚ أولاً ، نقدم اسمًا للفرع الفرعي الإجراء الذي هو Open_with_File_Path .

4575

⮚ بعد ذلك ، نضع موقع الملف في مسار_الملف متغير

4495

⮚بعد ذلك ، نعلن عن المتغير wrkbk ، ونوعه مصنف.

8163

⮚ ثم نفتح الملف المسمى في متغير الدليل File_Path ونقوم بتعيين الملف كمتغير wrkbk .

2817

⮚ أخيرًا ، ننهي الإجراء الفرعي لهذا الكود.

اقرأ المزيد: How to افتح المصنف من المسار باستخدام Excel VBA (4 أمثلة)

1.2 افتح المصنف دون ذكر مسار الملف

في الطريقة التالية ، سنفتح الملف من المجلد الأصل ، حيث يتم حفظ الملف الرئيسي. يمكن فتح الملف دون ذكر أي مكان في الكود. يجب أن يكون هذا الملف في نفس المجلد مثل المجلد الأصلي.

الخطوات

• لدينا ملف مختلف محفوظ في نفس الدليل حيث يوجد تم حفظ ملف Excel الآن.
• اسم الملف هو 1.

• أولاً ، انتقل إلى المطور علامة التبويب وانقر فوق Visual Basic . إذا لم يكن لديك ذلك ، فيجب عليك تمكين علامة التبويب المطور . أو يمكنك أيضًا الضغط على " Alt + F11 " لفتح محرر Visual Basic .

• ثم سيكون هناك مربع حوار جديد ، في مربع الحوار هذا ، انقر فوق إدراج & gt؛ الوحدة النمطية .

• بعد ذلك ، في نافذة محرر الوحدة النمطية ، اكتب الكود التالي:

5007

• ثم أغلق نافذة الوحدة
• بعد ذلك ، انتقل إلى عرض علامة التبويب & GT ؛ وحدات الماكرو .
• ثم انقر فوق عرضوحدات الماكرو .

• بعد النقر فوق عرض وحدات الماكرو ، حدد وحدات الماكرو التي قمت بإنشائها الآن. الاسم هنا هو Open_without_File_Path . ثم انقر فوق تشغيل.

• بعد الضغط على تشغيل ، ستلاحظ أن الملف المسمى 1 مفتوح الآن.
• وهذه هي الطريقة التي نفتح بها المصنف باسم متغير باستخدام VBA في Excel.

الكود

8450

⮚ أولاً ، نقدم اسمًا للإجراء الفرعي وهو Sub Open_without_File_Path ()

4519

⮚ نعلن wrkbk كمتغير في نوع المصنف

5267

⮚ نفتح ملفًا من الدليل الأصلي المسمى 1.xlsx .

8313

⮚ أخيرًا ، ننهي الإجراء الفرعي من هذا الرمز.

1.3 فتح المصنف كـ Read Only

الطريقة مشابهة تمامًا للطريقة الأولى ، ولكن هنا سنفتح الملف في وضع القراءة فقط ، مما يعني أننا لن قادر على تغيير أي بيانات أو قيمة في ملف Excel.

الخطوات

• يتم حفظ الملف الذي نريد فتحه في مجلد المستند.
• وهذا هو الملف الذي نريد فتحه للقراءة فقط.

• أولاً ، انتقل إلى Developer علامة التبويب وانقر فوق Visual Basic . إذا لم يكن لديك ذلك ، فيجب عليك تمكين علامة التبويب المطور . أو يمكنك أيضًا الضغط على " Alt + F11 " لفتح محرر Visual Basic.

• ثم سيكون هناك جديد في مربع الحوار هذا ، انقر فوق أدخل & gt؛ الوحدة النمطية .

• التالي ، في نافذة المحرر الوحدة النمطية ، اكتب التوليف التالي:

9601

• ثم أغلق نافذة الوحدة النمطية
• بعد ذلك ، انتقل إلى View tab & gt؛ وحدات الماكرو .
• ثم انقر فوق عرض وحدات الماكرو .

• بعد النقر فوق عرض وحدات الماكرو ، حدد وحدات الماكرو التي قمت بإنشائها الآن. الاسم هنا هو Open_with_File_Read_Only . ثم انقر فوق تشغيل .

• بعد النقر فوق تشغيل ، سنرى أن الملف مفتوح الآن للقراءة فقط ، كما هو موضح في شريط العنوان.

🔎 تفصيل الكود

3480

⮚ أولاً ، نقدم اسمًا للإجراء الفرعي وهو Open_with_File_Read_Only ()

9116

⮚ نعلن أن wrkbk كمتغير في نوع المصنف

8181

⮚ سيتم فتح الملف بعد ذلك من الدليل المحدد ، وسيتم تعيين الملف للقراءة فقط بواسطة الوسيطة الأخيرة.

1458

⮚ أخيرًا ، ننهي الإجراء الفرعي لهذا الرمز.

اقرأ المزيد: كيفية فتح المصنف للقراءة فقط باستخدام Excel VBA

2. استخدام مربع الرسائل

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

الخطوات

• أولاً ، انتقل إلى علامة التبويب Developer وانقر فوق Visual Basic . إذا لم يكن لديك ذلك ، فيجب عليك تمكينعلامة تبويب المطور . أو يمكنك أيضًا الضغط على ' Alt + F11' لفتح محرر Visual Basic .

• ثم سيكون هناك مربع حوار جديد ، في مربع الحوار هذا ، انقر فوق إدراج & gt؛ الوحدة النمطية .

• بعد ذلك ، في نافذة محرر الوحدة النمطية ، اكتب الكود التالي:

1930

• ثم أغلق نافذة الوحدة
• بعد ذلك ، انتقل إلى عرض علامة التبويب & GT ؛ وحدات الماكرو .
• ثم انقر فوق عرض وحدات الماكرو .

• بعد النقر فوق عرض وحدات الماكرو ، حدد وحدات الماكرو التي أنشأتها للتو. الاسم هنا هو Open_File_with_Messege_Box . ثم انقر فوق تشغيل .

• ثم حصلنا على مربع التحذير ، والذي يوضح أن تم فتح الملف بنجاح .
• ثم انقر فوق موافق .

• ثم سنرى أن الملف الآن open.

• ثم نحاول تغيير الرمز قليلاً.
• نغير اسم الملف إلى Sample10 ، وفي الواقع لا يوجد ملف اسمه Sample10 في مجلد المستندات.

• ثم نحن قم بتشغيل الكود مرة أخرى ، وهناك مربع رسالة يقول فشل فتح الملف .
• انقر فوق موافق بعد ذلك.

🔎 تفصيل الكود

6352

⮚ أولاً ، نقدم اسمًا للإجراء الفرعي وهو Open_with_File_Read_Only ()

8072

⮚ نحنقم بتعريف wrkbk كمتغير في نوع المصنف

4076

8749

⮚ هذا السطر سيفحص ما إذا كان الملف المسمى عينة متاحًا في الدليل أم لا ، إذا كان الملف موجودًا ، فسيتم افتح الملف وستظهر الرسالة في نفس الوقت.

6207

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

7722

⮚ أخيرًا ، ننهي الإجراء الفرعي لهذا الرمز.

1163

⮚ أخيرًا ، ننهي الإجراء الفرعي لهذا الرمز.

اقرأ المزيد: كيفية فتح المصنف وتشغيل الماكرو باستخدام VBA (4 أمثلة)

3. استخدام مربع الحوار لفتح ملف

استخراج دليل موقع الملف واستيراده في كل مرة في كود VBA مرهقة للغاية. لحل المشكلة ، سنوضح كيف يمكنك استخدام مربع حوار لتحديد ملف من أي دليل.

الخطوات

• الآن سنفتح الملف باستخدام مربع حوار مستكشف الملفات.
• أولاً ، انتقل إلى علامة التبويب Developer وانقر فوق Visual Basic . إذا لم يكن لديك ذلك ، فيجب عليك تمكين علامة التبويب المطور . أو يمكنك أيضًا الضغط على ' Alt + F11' لفتح محرر Visual Basic .

• ثم سيكون هناك مربع حوار جديد ، في مربع الحوار هذا ، انقر فوق إدراج & gt؛ الوحدة النمطية .

• بعد ذلك ، في نافذة محرر الوحدة النمطية ، اكتب الكود التالي:

5661

• ثم أغلق الوحدة النمطية نافذة.
• بعد ذلك ، انتقل إلى عرض علامة التبويب & gt ؛ وحدات الماكرو .
• ثم انقر فوق عرض وحدات الماكرو .

• بعد النقر فوق عرض وحدات الماكرو ، حدد وحدات الماكرو التي قمت بإنشائها الآن. الاسم هنا هو Open_File_with_Dialog_Box . ثم انقر فوق تشغيل .

• ثم تفتح نافذة جديدة. في مربع حوار مستكشف الملفات وحدد نموذج وانقر فوق موافق .

• ثم اسم الملف نموذج فتح.
• وهذه هي الطريقة التي نفتح بها المصنف باسم متغير باستخدام VBA في Excel.

🔎 تفصيل الكود

8262

⮚ أولاً ، نقدم اسمًا للإجراء الفرعي وهو Sub Open_File_with_Dialog_Box ()

2486

⮚ نعلن أن Dbox كمتغير في FileDialog اكتب

7442

⮚ نعلن أن File_Path كمتغير في File_Path كـ سلسلة type

6155

سيكون هناك مربع حوار من السطر الأول. يشير السطر التالي إلى اسم مربع الحوار ونوع الملف.

⮚ Dbox.Title سيحدد عنوان مربع الحوار. و FileType قم بتعيين نوع الملف.

4386

⮚ ستؤدي Dbox.Filters.Clear إلى مسح أي مرشح سابق مطبق في مربع diaog

7096

⮚ Dbox.Show سيجعل مربع الحوار يظهر على الملف.

سيحدد هذا السطر ما إذا كان المستخدم قد حدد أكثر من ملف أم لا. إذا حدد المستخدم أكثر منملف واحد ، سيتوقف الإجراء بأكمله.

5716

⮚ أخيرًا ، ننهي الإجراء الفرعي لهذا الرمز.

اقرأ المزيد: كيفية الفتح المجلد وتحديد الملف باستخدام Excel VBA (4 أمثلة)

4. باستخدام Workbook.Add Property

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

الخطوات

• أولاً ، انتقل إلى علامة التبويب المطور وانقر فوق Visual Basic . إذا لم يكن لديك ذلك ، فيجب عليك تمكين علامة التبويب المطور . أو يمكنك أيضًا الضغط على ' Alt + F11' لفتح محرر Visual Basic .

• ثم سيكون هناك مربع حوار جديد ، في مربع الحوار هذا ، انقر فوق إدراج & gt؛ الوحدة النمطية .

التالي ، في نافذة محرر الوحدة النمطية ، اكتب الكود التالي:

8736

• ثم أغلق نافذة الوحدة النمطية .
• بعد ذلك ، انتقل إلى عرض علامة التبويب & gt ؛ وحدات الماكرو .
• ثم انقر فوق عرض وحدات الماكرو .

• بعد النقر فوق عرض وحدات الماكرو ، حدد وحدات الماكرو التي أنشأتها للتو. الاسم هنا هو Open_File_with_Add_Property . ثم انقر فوق تشغيل .

• بعد النقر فوق تشغيل ، ستلاحظ أن الملف الجديد أصبح الآن تم إنشاؤه وفتحه.

🔎 تفصيل الكود

⮚ أولاً ، نقدم اسم الإجراء الفرعي