دمج عددة ملفات بنفس الاسم من أكثر من فولدر

[Al-Raadi]

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

استاذ محمد  انا عندي ملفات اكسل بصيغ مختلفة:

xlsx
xlsm
xlsb
xls

الملفات عبارة عن كشوفات درجات الطلاب كل ملف اكسل يحتوي على عدة شيتات.

حاولت ادمج جميع الملفات في ملف واحد وشيت واحد فلم يتم الدمج .

ما هي الطريقة الصحيحة لدمج جميع الملفات  xlsx
xlsm
xlsb
xls

في ملف واحد وشيت واحد 

 

 

 

 

[أبو إيمان]

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

يمكن الاطلاع على الروابط التالية يمكن تفيدك

 

[lionheart]

Please put some files of different cases in a folder then compress the folder and upload it to the topic. Also upload the excel file with some of the expected results if you really need help

[أبومروان]

Sub MergeSheets()
    Dim wb As Workbook
    Dim sht As Worksheet
    Dim vFiles As Variant
    Dim fName As Variant
    Dim i As Integer
 
    Application.ScreenUpdating = False
    vFiles = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx", MultiSelect:=True)
    If TypeName(vFiles) = "Boolean" Then
        MsgBox "No files were selected"
        Exit Sub
    End If
 
    Set wb = Workbooks.Add
    For Each fName In vFiles
        Set sht = Workbooks.Open(fName).Sheets(1)
        sht.Copy After:=wb.Sheets(wb.Sheets.Count)
        Workbooks(fName).Close False
    Next
    Application.ScreenUpdating = True
End Sub

جرب هذا الكود وعدل عليه حسب الرغبه لعله يفيدك