تفريق صفحات ملف الاكسيل

[bachiri401]

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

رمضان كريم

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

الملف به اربع صفحات.xlsx كل صفحة وحدها.rar

[Ali Mohamed Ali]

وعليكم السلام -نعم يمكن ذلك بهذا الكود

Sub Splitbook()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

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

كيفية فصل الشيتات الموجودة داخل الملف إلى ملفات منفصلة

الملف به اربع صفحات.xlsm

[أبو إيمان]

لكي تعم الفائدة

 

حل للاستاذ ياسر

 

[bachiri401]

بارك الله فيكم