/ / Excel VBA إغلاق وفتح الأسلوب

Excel VBA إغلاق وفتح الأسلوب

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

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

1. إغلاق سطر الرمز أدناه close-open-workbooks.xls.

Workbooks("close-open-workbooks.xls").Close

2. يقوم سطر الرمز أدناه بإغلاق أول مصنف تم فتحه / إنشاؤه.

Workbooks(1).Close

3. إغلاق سطر الرمز أدناه المصنف النشط.

ActiveWorkbook.Close

4. إغلاق سطر التعليمات البرمجية أدناه كافة المصنفات المفتوحة حالياً.

Workbooks.Close

5. يفتح سطر الرمز أدناه sales.xls.

Workbooks.Open ("sales.xls")

ملاحظة: يمكنك فقط فتح sales.xls بدون تحديد مسار الملف إذا كان قد تم تخزينه في موقع ملفك الافتراضي. موقع الملف الافتراضي هو المجلد الذي تراه عند فتح ملف أو حفظه.

6. يمكنك أيضًا استخدام أسلوب GetOpenFilename لكائن التطبيق لعرض مربع حوار مفتوح قياسي وتحديد الملف (بدون فتح الملف بالفعل).

Dim MyFile As String
MyFile = Application.GetOpenFilename()

نتيجة:

أسلوب GetOpenFilename

7. بعد ذلك ، يمكنك فتح المصنف كالمعتاد.

Workbooks.Open (MyFile)
اقرأ أيضًا: