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

إخواني وأحبابي في الله

قدمت من قبل موضوعات تخص تصدير ورقة عمل محددة إلى مصنف جديد ، وكذلك موضوع آخر تصدير مجموعة أوراق عمل بحيث كل ورقة عمل تكون في مصنف مستقل

اليوم نقدم موضوع مرتبط بهذه الموضوعات لكن المخرج مختلف ، حيث سيقوم الكود بتصدير أوراق عمل محددة إلى مصنف واحد فقط (يتم تحديد أوراق العمل المراد تصديرها من خلال مصفوفة أحادية) .. أي أن الأوراق التي سيتم تصديرها ستكون في ملف واحد مجمع

أترككم مع الكود المستخدم في الملف المرفق

Sub Export_Specific_Sheets_To_One_Workbook_Using_Arrays()
    Dim ws          As Worksheet
    Dim sSheets()   As String
    Dim n           As Long

    Application.ScreenUpdating = False
        For Each ws In Worksheets(Array("Sheet1", "Sheet4"))
            n = n + 1
            ReDim Preserve sSheets(1 To n)
            sSheets(n) = ws.Name
        Next ws
    
        Worksheets(sSheets).Copy
        Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "Output", FileFormat:=51
        Application.DisplayAlerts = True
    
        For Each ws In ActiveWorkbook.Worksheets
            ws.UsedRange.Value = ws.UsedRange.Value
        Next ws
    
        ActiveWorkbook.Close True
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

يوجد سطر بالكود من خلاله يمكنك إضافة أو حذف أوراق العمل المطلوب تصديرها ، وهذا هو السطر الذي يمكنك من خلاله تغيير أوراق العمل

For Each ws In Worksheets(Array("Sheet1", "Sheet4"))

نلاحظ هنا أنه تم تعيين ورقة العمل Sheet1 و Sheet4 لتكون هي أوراق العمل المصدرة ، وستكون أوراق العمل مجمعة في مصنف واحد فقط في نفس مسار الملف الذي به الكود ...


رابط الملف من هنا

إعداد وتقديم / ياسر خليل أبو البراء