التعديل على مجموعه ملفات دفعه واحده ( تنسيق مجموعه ملفات دفعه واحده )

[الطـاهر]

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

 

الساده الافاضل ، اساتذتى الكرام

 

لدى اكثر من 1500 ملف اكسل بنفس التنسيق 

 

المطلوب : هل يمكن من خلال ماكرو مثلا او اى شىء ما شبه ذلك ان اقوم بالتعديل على هذه الملفات من حيث التنسيق وادراج اعمده وتغير فى المعادلات دون المساس بالبيانات الموجوده بهذه الملفات .

 

وشكرا لعمالقه اوفيسنا

[ياسر خليل أبو البراء]

وعليكم السلام 

جرب الكود التالي ..ضع ما تريد من أكواد مكان سطر التعليق في الكود

Sub LoopThroughClosedWBs()
    Dim wbk         As Workbook
    Dim folderPath  As String
    Dim fileName    As String
    Dim founter     As Double
    
    folderPath = ThisWorkbook.Path & "\"
    fileName = Dir(folderPath & "*.xl*")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
        Do While fileName <> ""
            If fileName <> ThisWorkbook.Name Then
                Set wbk = Workbooks.Open(folderPath & fileName)
                
                With wbk.Sheets("Sheet1")
                    'Your Stuff
                End With
                
                wbk.Close SaveChanges:=True
            End If
            fileName = Dir()
        Loop
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    
    MsgBox "Finished ...", 64
End Sub

 

[الطـاهر]

شكرا اخى الفاضل على المتابعه وسرعه الرد

ولكن استاذى الكريم هذا الكود قد تعلمته منك سابقاً ولكنى لا استطيع تطبيقه نظرا لعدم وجود خبره كافيه لدى فى استخدامات الماكرو

مرفق لسيادتك الملف القديم والملف الجديد واستسمح سيادتك بتعديل الكود لكى اقوم بتطبيقه على كافه الملفات مباشره

viewsoft.rar

[ياسر خليل أبو البراء]

قمت بالإطلاع على ملفك المرفق ولم أفهم المطلوب ..

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

على سبيل المثال إذا أردت توسعة عرض العمود الأول في الـ 1500 ملف ستضع سطر يقوم بذلك الأمر

.Columns(1).ColumnWidth=25

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

[الطـاهر]

شكرا اخى 

 

تم بفضل الله

 

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