الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة

[محمد سويد]

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

مساكم الله بالخير جميعا

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

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

[محمد سويد]

في ١١‏/٤‏/٢٠١٧ at 07:00, محمد طاهر said:

السلام عليكم

 

اذا اردت تكرار  الامر علي عدد من اوراق العمل التي تختارها بمعرفتك عن طريق تحديد اسمها ، يمكنك تكرار الجزء الاوسط من الكود كما يلي:

Sub SplitSpecificSheet()
    Dim xPath As String
    Dim SH As Worksheet
    xPath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
' Sheet1
    Set SH = Sheets("Sheet1")
        With SH
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With
        
        
  ' Sheet2
            Set SH = Sheets("Sheet2")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        With SH
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With

        
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

السلام عليكم استاذ محمد طاهر زادك الله من علمه انا عندي ملف تقارير يومي هل في كود يغير اسم sheet الى تاريخ عند حفظ المصنف