Copy Each Sheet from Closed Workbooks

[Yasser Fathi Albanna]

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

أحبائى فى الله تقبلوا جميعا تحياتى

أقدم لكم اليوم كود لعله يفيد

Copy Each Sheet from Closed Workbooks

Option Explicit
 
Sub  OpenImpShts() 'Excel VBA procedure to Copy each sheet from closed workbook.

    Const sPath="D:\Temp\" 'Change to suit

    Dim sFil As String

    Dim owb As Workbook

    Dim ws As Worksheet

    Dim sh As Worksheet

   

    Set ws=Sheet1

    sFil=Dir(sPath & "*.xl*")

 

    Do While sFil <> "" 'Start the loop through Excel files.

        Set owb=Workbooks.Open(sPath & sFil)

        For Each sh In ActiveWorkbook.Sheets

            sh.[A2:AZ2000]=sh.[A2:AZ2000].Value

            sh.Copy After:=ws

            owb.Close False 'Close no save

       Next sh

        sFil=Dir

    Loop

End Sub

 

[Yasser Fathi Albanna]

أتمنى أن يكون الموضوع عجب أحد من الأخوة

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

جزاك الله خيراً أخي الحبيب ياسر

يرجى إرفاق ملف مع الموضوع لسهولة متابعة الأخوة (إنت عارف الكسل ...معلش هنتعبك يا عسل)