فورم يفتح عدة ملفات أكسل

[دكتور حمدي]

السادة الأفاضل أعضاء المنتدى و المشرفين

لو تكرمتوا عايز افتح عدة ملفات في مجلد معين من خلال فورم

فتح.rar

[عبدالله باقشير]

السلام عليكم

ضع هذه الاكواد في الفورم

UserForm2

Dim sPath As String


Private Sub CommandButton1_Click()

On Error GoTo 1

If Val(Application.Version) > 11 Then

    Workbooks.Open Filename:=sPath & "1.xlsx"

End If

1:

End Sub


Private Sub CommandButton2_Click()

On Error GoTo 1

If Val(Application.Version) > 11 Then

    Workbooks.Open Filename:=sPath & "2.xlsx"

End If

1:

End Sub


Private Sub CommandButton3_Click()

On Error GoTo 1

If Val(Application.Version) > 11 Then

    Workbooks.Open Filename:=sPath & "3.xlsx"

End If

1:

End Sub


Private Sub CommandButton4_Click()

On Error GoTo 1

If Val(Application.Version) > 11 Then

    Workbooks.Open Filename:=sPath & "4.xlsx"

End If

1:

End Sub


Private Sub UserForm_Activate()


sPath = ThisWorkbook.Path

If Right(sPath, 1) <> Application.PathSeparator Then

    sPath = sPath & Application.PathSeparator

End If

'''''''''''''''''''''''


End Sub

[دكتور حمدي]

الشكر للاستاذ عبدالله باقشير على الرد السريع و ان شاء الله في ميزان حسناتك

بس وضعت الاكواد في الفورم ذي ما حضرتك تفضلت و ما اشتغل معاي

لو ممكن تعدل على الملف و ترفعه و جزاك الله خير

[عبدالله باقشير]

انت تفتح ملف الاكسل باي اصدار ؟

ملف فتح اصدار 2003

[دكتور حمدي]

انا بفتح باصدار 2007

[عبدالله باقشير]

جرب المرفق

فيه ملفين للفتح 2003-2007

فتح.rar

[دكتور حمدي]

استاذي جزاك الله خير

مش عارف احط المسار فين في الكود

انا عايز اخلي الملفات على الD

و شكرا