كود لفتح ملف اكسل

[a.kawkab]

السلام عليكم

يوجد لدى فولدر على سطح المكتب وبه مجموعة من ملفات الاكسل مطلوب كود لفتح هذه الملفات من داخل ملف العمل(ملف الاكسل المفتوح) النشط

[Ali Mohamed Ali]

وعليكم السلام-تفضل هذا الكود

Option Explicit
Sub opening_multiple_file()
Dim i As Integer
With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = True
    .Filters.Clear
        .Filters.Add "Excel Files", "*.xls*"
        If .Show = True Then
        For i = 1 To .SelectedItems.Count
                     Workbooks.Open .SelectedItems(i)
        Next i
    End If
    End With
End Sub

 

[a.kawkab]

شكرا استاذ على حياك الله

[علي بطيخ سالم]

جميل يا استاذ علي بارك الله لك وجزاك الله خيراً