أريد حل لتعارض جملة FileSearch مع الإصدارات ما بعد أوفيس 2003

[((( folks )))]

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

أرجوا من الأساتذة الأفاضل حل  للمشكلة 

الملف شغال على إصدار 2003 بدون أى مشكلة وليعمل على إصدارات أخرى 

RUN.xls

[محمد هشام.]

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

الكود الخاص بك  يستخدم  Application.FileSearch

والذي كان مدعوما في Excel 2003 ولكن تم إيقاف دعمه في الإصدارات الأحدث من Excel أعتقد مند 2007  وبالتالي يتطلب تعديلات ليعمل على الإصدارات الأحدث 

جرب هدا 

Private Sub TamamUpdate()
    Dim val As String, Namey As String, file As String
    ComboBox28.Clear
    If OptionButton1.Value = True Then
        val = ThisWorkbook.Path & "\تمام\مدينة\"
    ElseIf OptionButton2.Value = True Then
        val = ThisWorkbook.Path & "\تمام\أكثر\"
    End If
    file = Dir(val & "*.xls*")
    Do While file <> ""
        Namey = Left(file, InStrRev(file, ".") - 1)
        ComboBox28.AddItem Namey
        file = Dir
    Loop
End Sub

بطريقة أخرى 

 الكود التالي يؤدي نفس المهمة ولكنه يوفر للمستخدم خيار تحديد المجلد الذي سيتم البحث فيه 

 الكود الخاص بك كان يعتمد على اختيار المجلد بناء على الاختيارات OptionButton1 و OptionButton2 بينما هذا الكود يسمح للمستخدم بتحديد المجلد يدويا باستخدام FileDialog

Private Sub TamamUpdate()
 Dim val As String, Namey As String
 Dim fd As FileDialog, tmps As String

    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then
        tmps = fd.SelectedItems(1)
    Else
        Exit Sub
    End If

    ComboBox28.Clear
    val = tmps & "\"
    file = Dir(val & "*.xls*")
    Do While file <> ""
        Namey = Left(file, InStrRev(file, ".") - 1)
        ComboBox28.AddItem Namey
        file = Dir
    Loop
End Sub

 

 

 

RUN-v2.xls

تم تعديل الجمعة at 22:37 بواسطه محمد هشام.

[((( folks )))]

كل التحية والتقدير نفع الله بك وبعلمك وزادك علماً 🌹