الكود لايقرأ إمتداد XLSX

[((( folks )))]

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

بمساعدة الأساتذة الأفاضل أصبح الكود يستخدم على إصدارات ما بعد 2003 ولكن لايقرأ ملفات الأكسل بإمتداد xlsx  ويعطينى رسائل خطأ

المرفق : Run v2.zip

 

[محمد هشام.]

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

بالنسبة للكود  المقدم لك مسبقا  يمكنك تعديله على الشكل التالي 

 

Private Sub CommandButton16_Click()
    Dim Tmam_Wbk As Workbook, TPath As String

    If ComboBox28.Value = "" Then MsgBox "من فضلك أختار التجهيزة": Exit Sub

    If OptionButton1.Value Then
        TPath = ThisWorkbook.Path & "\تمام\مدينة\" & ComboBox28.Value
    ElseIf OptionButton2.Value Then
        TPath = ThisWorkbook.Path & "\تمام\محافظات\" & ComboBox28.Value
    End If

    If Len(Dir(TPath & ".xlsx")) > 0 Then
        TPath = TPath & ".xlsx"
    ElseIf Len(Dir(TPath & ".xls")) > 0 Then
        TPath = TPath & ".xls"
    Else
        MsgBox "الملف غير موجود": Exit Sub
    End If

    On Error GoTo ErrorHandler
    Set Tmam_Wbk = Workbooks.Open(TPath)
    Unload Me
    Exit Sub
ErrorHandler:
    Unload Me
End Sub

 هنا قمت بتعديل  الامتدادات على عدة أكواد للتجربة 

 

Run V3.xls

تم تعديل مارس 8 بواسطه محمد هشام.

[((( folks )))]

متشكر جداً لحضرتك بعد إذنك أقوم بالتجربة وأبلغك بالنتيجة 🌹