ترحيل شيتات معينة من ملف إكسيل إلى ملف مستقل

[محمد هشام.]

نسخ  شيتات معينة من ملف إكسيل إلى ملف آخر مستقل بإسم معين يعني عندي ملف فيه 20 شيت وعاوز انسخ 5 شيتات معينة  إلى ملف خارجي بنفس التنسيق وبدون معادلات  على سطح المكتب بإسم تقرير.22/2/2022 مثلا هل هناك كود لهذه المهمة

[عبدالفتاح في بي اكسيل]

قم بتطويع  هذا  الكود  مع  ما يتناسب مع  احتياجاتك

Sub export_sheets()
   Dim Fname As String, ws As Worksheet

    Application.DisplayAlerts = False
     '  في  هذا  السطر  ضع  اسماء  الشيتات  المحددة 
        Sheets(Array("sheet1", "sheet2")).Copy
        For Each ws In ActiveWorkbook.Sheets
            ws.UsedRange = ws.UsedRange.Value
        Next ws
        wb_name = "taqreer"
        ActiveWorkbook.SaveAs Filename:= _
            'مكان تخزين  الملف
"C:\Users\alhajaj\Desktop\" & wb_name & " report " & Format(Date, "dd-mm-yy") & ".xlsx", FileFormat:=51
        ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

 

[محمد هشام.]

شكرا لحضرتك على المساعدة بس طلب أخير لو سمحت هل هناك طريقة عند استخراج التقرير انه يتعرف على رقم الأسبوع تلقائيا بحيث يتم تسمية الملف المستخرج بإسم الأسبوع 

مثال: لو تم استخراج التقرير في الأسبوع الخامس  يتم تسمية الملف بإسم ( تقرير w5_2022)

[عبدالفتاح في بي اكسيل]

قبل  ان  تقوم  باضافة  طلبات  اخرى  وجب  عليك  قراءة  هذا  الشيء