نسخ عدة اوراق عمل

[rahekk]

السلام عليكم

كيف يمكن نسخ عدة اوراق عمل مختلفة من ملفات خارجية لنفس الملف الذي اعمل علية

بمعنى اني اعمل في ورقة1

اريد ان انسخ اوراق مختلفة من ملفات اكسبل خارجية لتكون في ورقة2      و ورقة 3        الخ

وشكرا

[احمد برمجة]

الطلب غير واضح ارسل ملف 

اما كيفية النسخ اضغظ بالزر الايمن للماوس وقم باختيار تحريك او نسخ وبعدها اختر الملف الذي تريد نقل الورقة اليه على شرط ان يكون الملف الذي تريد النقل اليه مفتوح

في حالة تريد الاحتفاظ بورقة الملف الاكسل الخارجي ضع اولا علامة على مربع انشاء نسخة التي تظهر لك في البداية واكمل الخطوات المذكوره اعلاه

ويمكن ايضا عند غلق الملف الخارجي الذي اخذت منه نسخه لاتحفظ التغيرات

[rahekk]

اخي احمد انا اقصد ملف خارجي ولااريد فتح هذا الملف اريد احضار هذا الملف او الفولدر بما فيه الي الملف الذي اعمل فيه

ارجو الرد

تم تعديل أكتوبر 5, 2013 بواسطه rahekk

[الـعيدروس]

ان كان نسخ بيانات او نسخ اوراق كما هيا

وهل الملفات في نفس الفولدر او في مسار معين

ارفق مثال 

يوضح ماتريد

[rahekk]

ان كان نسخ بيانات او نسخ اوراق كما هيا

وهل الملفات في نفس الفولدر او في مسار معين

ارفق مثال 

يوضح ماتريد

اخي عباد الموضوع نسخ اوراق

والملفات في المسار c  داخل فولدر 123 حاولت ارفق مثال لكن لم يتم ارجو المعذرة لو تجيبني عن الكيفية لهذا النسخ بدون ان ارفق مثال

[الـعيدروس]

الطريقة كما تفضل الاخ احمد

اذا كانت الطريقة يدوياً

لابد ان تكون الملفات مفتوحه

 

 

 

اقصد ملف خارجي ولااريد فتح هذا الملف اريد احضار هذا الملف او الفولدر بما فيه الي الملف

عن طريق كود يمكن ان يقوم بهذا العمل

 

لإرفاق ملف أولاً قوم بضغطه بأحد برامج الضغط ( Winrar أو Winzip )

ثم ارفقه

[الـعيدروس]

السلام عليكم

 

غير الإمتداد حسب إمتداد الملفات المراد نسخ أوراقها

أول الكود

Private Const Mtd As String = "*.xls"

' مسار الملفات
Private Const Pth As String = "C:\123"
' الإمتداد
Private Const Mtd As String = "*.xls"
Sub Copy_Sht()
Dim W   As Workbook
Dim Sht As Worksheet
NM = ThisWorkbook.Name
   Fl_M = Dir(Pth & "\" & Mtd)
    Do While Fl_M <> ""
        Workbooks.Open Filename:=Pth & "\" & Fl_M
        Set W = Workbooks(Fl_M)
         For Each Sht In W.Worksheets
            Sht.Copy After:=Workbooks(NM).Sheets(1)
         Next
        W.Close 0
      Fl_M = Dir
    Loop
End Sub

تحياتي

[rahekk]

السلام عليكم

 

غير الإمتداد حسب إمتداد الملفات المراد نسخ أوراقها

أول الكود

Private Const Mtd As String = "*.xls"

' مسار الملفات
Private Const Pth As String = "C:\123"
' الإمتداد
Private Const Mtd As String = "*.xls"
Sub Copy_Sht()
Dim W   As Workbook
Dim Sht As Worksheet
NM = ThisWorkbook.Name
   Fl_M = Dir(Pth & "\" & Mtd)
    Do While Fl_M <> ""
        Workbooks.Open Filename:=Pth & "\" & Fl_M
        Set W = Workbooks(Fl_M)
         For Each Sht In W.Worksheets
            Sht.Copy After:=Workbooks(NM).Sheets(1)
         Next
        W.Close 0
      Fl_M = Dir
    Loop
End Sub

تحياتي

بارك الله فيك دائما متميز

[rahekk]

الاخ عباد

بارك الله فيك دائما متميز هذا  المطلوب شكرا