حل مشكلة في جمع ملفات اكسل

[محمد لؤي]

السلام عليكم

ممكن حل مشكلة في كود لجمع ملفات اكسل - وممكن توضيح اسباب المشكلة

مواقف10-5.rar

[حسين مامون]

اخي الكريم 

لديك امتداد الملفات المخزنة في المجلد هو :xlsm وفي الكود xlsx 

اخل الى الكود وحول الامتداد من

File = Dir(Path & "*.xlsx*")

الى

File = Dir(Path & "*.xlsm*")

وسيعمل بحول الله وقوته

[عبدالفتاح في بي اكسيل]

بعد  اذن  استاد حسين 

قم  بتغيير  هذا  السطر  من 

Set ws = Workbooks("دمج  الملفات").Worksheets("ورقة1")

الى

Set ws = Workbooks("دمج الملفات.xlsm").Worksheets("ورقة1")

 

[محمد لؤي]

جزيتم خيرا

حلت المشكلة بفضل الله وجهودكم اساتذتى الكرام