انشاء فولدر و انشاء ملف اكسيل بداخله

[moh250]

السلام عليكم هناك فولدر اسمة EXCEL و بداخلة ملف اكسيل اسمه FFFF بداخله زر اريد عندما اضغط عليه ينشأ فولدر و بداخله ملف اكسيل اينما وضع الفولدر الى اسمه EXCEL

excel.rar

[طارق محمود]

السلام عليكم

أخي الكريم

بفرض ان إسم الفولدر المراد إنشاؤه Folder1

غير الكود إلي التالي

Sub Button3_Click()

xx = ActiveWorkbook.Path & "\Folder1"

  MkDir (xx)

Set NewBook = Workbooks.Add

	With NewBook

    	'.Title = "All Sales"

    	'.Subject = "Sales"

    	.SaveAs Filename:=xx & "\" & "m.xlsx", CreateBackup:=False

	End With

Workbooks.Open Filename:=xx & "\" & "m.xlsx"

Sheets.Add

ActiveSheet.Name = "TDR"

ActiveWorkbook.Close savechanges:=True

End Sub

[moh250]

السلام عليكم شكراً اخى الكريم على ردك السريع

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

[طارق محمود]

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

ممكن إن شاء الله

بس اكتب لي مثلا إسم أو أسماء الملفات والفولدر وسوف أضبطها علي الأساس

[ياسر الحافظ]

الاستاذ المراقب م. طارق :

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

وفقك الله

ياسر الحافظ

[MAHMOUD ALI YOUSSEF]

السلام عليكم

استاذنا الكبير طارق

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

وتقبل مروري

[moh250]

اليكم فولدر بأسم X و ملفين اكسل الاول بأسم TDR_TOTAL و الاخر بأسم TDR_KKK اريد عندما يشيك على ملفين الاكسل اذا رأى كلمة TOTAL فى اسم الملف ينشأ فولدر بأسم TOTAL ,و ملف اكسل بأسم TDR و الثانى نفس الحكايه اذا رأى حروف KKK فى اسم الملف ينشأ فولدر بأسم KKK و ملف اكسل بداخله

x.rar

[moh250]

السلام عليكم الاخ طارق انا اسف على الازعاج

هل يوجد لهذا الموضوع ؟؟؟؟؟؟؟؟؟؟؟؟

[طارق محمود]

السلام عليكم

أخي الكريم

في المرفق تجد الملف fff موجود بالفولدر excel وموجود أيضا عدد 2 فولدر x, Y في نفس مستوي الفولدر excel

عند تشغيل الكود ، سيكتشف وجود عدد 2 فولدر x, Y غير الفولدر الأصلي excel

وسيبحث داخلهما ويجد الآتي: داخل الفولدر x ملف TDR_KKK.xlsx وملف TDR_TOTAL.xlsx

وداخل الفولدر Y ملف TDR_AAA.xlsx وملف TDR_BBB.xlsx

فيقوم بعمل الفولدرات الجديدة TOTAL، KKK داخل الفولدر x

والفولدرات الجديدة BBB، AAA داخل الفولدر Y

وبداخل كل منها الملف المطلوب

أرجو أن يكون هذا هو المطلوب

moh250.rar

[moh250]

جزاك الله كل خير هو هذا المطلوب