bachiri401 قام بنشر أبريل 24, 2022 مشاركة قام بنشر أبريل 24, 2022 السلام عليكم ورحمة الله وبركاته رمضان كريم إخواني خبراء المنتدى هل هناك كود اوطريقة لتفريق كل الصفحات الموجودة بملف الاكسيل وجعل كل صفحة في ملف منفرد بتسمية الصفحة الملف به اربع صفحات.xlsx كل صفحة وحدها.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر أبريل 24, 2022 أفضل إجابة مشاركة قام بنشر أبريل 24, 2022 وعليكم السلام -نعم يمكن ذلك بهذا الكود 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 7 1 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر أبريل 25, 2022 مشاركة قام بنشر أبريل 25, 2022 لكي تعم الفائدة حل للاستاذ ياسر 2 1 رابط هذا التعليق شارك More sharing options...
bachiri401 قام بنشر أبريل 26, 2022 الكاتب مشاركة قام بنشر أبريل 26, 2022 بارك الله فيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.