تحديد ملف باستخدام مستعرض الملفات Select Single File By File Dialog

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يقوم بتحديد أي ملف من خلال نافذة مستعرض الملفات File Dialog.

يوضع الكود في موديول عادي ، وإليكم الكود مع شرح تفصيلي لأسطر الكود للاستفادة منه

Sub Open_File_Dialog()
    Dim Wb As Workbook
    Dim I As Integer
    Dim strPath As String

    'يمكن تحديد أكثر من ملف [True] السماح للمستخدم باختيار ملف واحد وبتغيير القيمة إلى
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

    'إظهار نافذة مستعرض الملفات
    I = Application.FileDialog(msoFileDialogOpen).Show

    'إذا تم تحديد ملف فإن المتغير لن يساوي صفر ويتم تنفيذ التالي
    If I <> 0 Then
        'تعيين قيمة المتغير ليساوي مسار الملف الذي قمت بتحديده
        strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

        'إظهار مسار الملف في رسالة
        MsgBox strPath

        'فتح المصنف بعد معرفة مساره
        Set Wb = Workbooks.Open(strPath)

        'إظهار قيمة الخلية الأولى في ورقة العمل الأولى في المصنف في رسالة
        MsgBox Wb.Sheets("Sheet1").Range("A1").Value

        '[True] إغلاق المصنف بدون حفظ وإذا أردت الحفظ قم بتغيير القيمة إلى
        Wb.Close False
        'أما إذا لم يتم تحديد ملف فإن المتغير يساوي صفر ويتم تنفيذ التالي
    Else
        'إظهار رسالة تفيد بأن المستخدم قد قام بإلغاء تحديد الملف
        MsgBox "Cancelled By The User", 64
    End If
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء