السلام عليكم جميعا،
نبدأ بشرح الدالة GetOpenFilename في Excel VBA.
إذا كنت تعمل في مشروع يتطلب منك اختيار ملفات معينة، فهذه الدالة مثالية لك. إليكم كود بسيط يستخدم هذه الدالة:
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 في صندوق الحوار.
