تحويل الشيتات الى ملفات

[sabah2023]

السلام عليكم - 

عندي ملف يحتوى على 19 شيت 

ممكن كل شيت يتحول الى ملف اكسل

جزاكم الله خير

شيتات الى ملفات.xlsx

[أ / محمد صالح]

بالضغط لزر الفأرة الأيمن على اسم الشيت واختيار نقل أو نسخ إلى مصنف جديد وتسميه بالاسم المراد

وهكذا مع جميع الشيتات

ويمكنك تسجيل ماكرو لشيت منهم وتعديل كود الماكرو لتنفيذ الكل مرة واحدة 

بالتوفيق 

[بحار الاكسس]

اتفضل استاذى بالضغط على ctrl+k

سيحول اى مجموعة شيتات الى ملفات حتى لو كان 1000 شيك 

تحياتى 

 

mySheet.xlsm

[sabah2023]

تسلموا وشكر على المرور

اخ بحار الاكسس

لو احتجت نقل الكود الى ملف اخر

والملف محمي بكلمة مرور

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

ممكن كلمة السر

[بحار الاكسس]

Sub myDatainWorkSheetToworkbook()
Dim myData As String
myData = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each mysheet In ThisWorkbook.Sheets
mysheet.Copy
Application.ActiveWorkbook.SaveAs Filename:=myData & "\" & myshet.Nam & ".xlsx"
Application.ActiveWorkbook.Close

Next

End Sub

 

[sabah2023]

تسلم

 

[أ / محمد صالح]

1 ساعه مضت, بحار الاكسس said:

اتفضل استاذى بالضغط على ctrl+k

بارك الله فيك أخي الكريم تنفيذ رائع للحل المقدم في مشاركتي السابقة

فدائما أعطي فكرة الحل ليتعلم صاحب الاستفسار تنفيذها بنفسه

بدلا من تعليمه الكسل والاعتماد على الغير

موفقين جميعا