شرح الدالة GetOpenFilename

شرح الدالة GetOpenFilename

السلام عليكم جميعا،

نبدأ بشرح الدالة GetOpenFilename في Excel VBA.

إذا كنت تعمل في مشروع يتطلب منك اختيار ملفات معينة، فهذه الدالة مثالية لك. إليكم كود بسيط يستخدم هذه الدالة:

Sub GetFile()

Dim strFile As variant

strFile = Application.GetOpenFilename()

If strFile <> “False” Then

Workbooks.Open strFile

End If

End Sub

في هذا الكود، نستخدم GetOpenFilename لفتح صندوق حوار يتيح للمستخدم اختيار الملف. نقوم بتخزين اسم الملف المختار في المتغير strFile. إذا تم اختيار ملف، نقوم بفتحه في Excel. إذا تم الضغط على زر الإلغاء في صندوق الحوار، تقوم الدالة بإرجاع القيمة “False”، ولذلك لا يتم فتح أي ملف.

أيضًا، يمكن تكوين هذه الدالة لتظهر فقط أنواع معينة من الملفات، مثل:

vba

strFile = Application.GetOpenFilename(FileFilter:=”Excel Files, *.xlsx”)

في هذا السيناريو، ستظهر فقط الملفات التي تحمل الامتداد .xlsx في صندوق الحوار.

لا يتوفر وصف للصورة.

اترك تعليقاً

لن يتم نشر عنوان بريدك الإلكتروني. الحقول الإلزامية مشار إليها بـ *