نسخ البيانات إلى مصنف آخر في Excel
ستعرض هذه المقالة لكلا الطريقتين من نسخ البيانات إلى مصنف آخر في Microsoft Excel.
- نقل أو نسخ البيانات في نفس المصنف
- نقل أو نسخ البيانات في مصنفات مختلفة
- نقل أو نسخ البيانات باستخدام VBA
نقل أو نسخ البيانات في نفس المصنف
الخطوة الأولى هي تحديد الورقة (الأوراق) التي ترغب في نقلها أو نسخها. لتحديد أوراق متعددة ، حدد الورقة الأولى ببساطة ، ثم اضغط باستمرار على مفتاح التحكم أثناء النقر فوق الأوراق الإضافية التي ترغب في نسخها.في علامة التبويب الصفحة الرئيسية بشريط الأدوات العلوي ، ابحث عن مجموعة الخلايا ، وانقر فوق تنسيق . ضمن تنظيم الأوراق ، انقر فوق نقل أو نسخ ورقة .
سوف يظهر صندوف حوار. في القائمة " قبل" ، يمكنك إما النقر فوق الورقة التي تريد إدراج الأوراق التي تم نقلها أو نسخها قبل ذلك ، أو يمكنك النقر فوق " نقل" لإنهاء لإدراج الأوراق بعد الورقة الأخيرة في مصنفك.
لنسخ الأوراق بدلاً من نقلها ، حدد خانة الاختيار " إنشاء نسخة " الموجودة في مربع الحوار " نقل" أو "نسخ ".
نقل أو نسخ البيانات في مصنفات مختلفة
إذا كنت ترغب في نقل أو نسخ أوراق عمل Excel إلى مصنف آخر ، يجب عليك أولاً التأكد من أن المصنف الهدف مفتوح في نفس الإصدار من Microsoft Excel.حدد الأوراق التي تريد نقلها أو نسخها. بعد ذلك ، انتقل إلى علامة التبويب الصفحة الرئيسية على شريط الأدوات وانقر فوق مجموعة الخلايا > التنسيق . ضمن تنظيم الأوراق ، انقر فوق نقل أو نسخ ورقة .
سوف يظهر صندوف حوار. في قائمة الكتاب ، اختر إما نقل أو نسخ الأوراق المحددة إلى مصنف موجود أو نقل الأوراق أو نسخها إلى مصنف جديد.
في القائمة " قبل" ، يمكنك إما النقر فوق الورقة التي تريد إدراج الأوراق التي تم نقلها أو نسخها قبل ذلك ، أو يمكنك النقر فوق " نقل" لإنهاء لإدراج الأوراق بعد الورقة الأخيرة في مصنفك.
نقل أو نسخ البيانات باستخدام VBA
CopyOpenItems الفرعية ()
'
CopyOpenItems ماكرو
نسخ العناصر المفتوحة إلى ورقة.
'
اختصار لوحة المفاتيح: Ctrl + Shift + O
'
Dim wbTarget As Workbook 'workbook حيث يتم لصق البيانات
Dim wbThis Asbook مصنف من حيث يتم نسخ البيانات
Dim strName As String (اسم السلسلة) لمصنف الورقة / الهدف المصدر
تعيين إلى المصنف النشط الحالي (الكتاب المصدر)
قم بتعيين wbThis = ActiveWorkbook
الحصول على اسم ورقة نشط من الكتاب
strName = ActiveSheet.Name
فتح مصنف له نفس اسم اسم الورقة
قم بتعيين wbTarget = Workbooks.Open ("C: \ filepath \" & strName & ".xlsx")
حدد الخلية A1 في الكتاب المستهدف
wbTarget.Range ( "A1"). اختر
القيم الحالية واضحة تشكل الكتاب المستهدف
wbTarget.Range ( "A1: M51") ClearContents.
تفعيل الكتاب المصدر
wbThis.Activate
مسح أي شيء على الحافظة لزيادة الذاكرة المتاحة
Application.CutCopyMode = خطأ
نسخ النطاق من كتاب المصدر
wbThis.Range. ( "A12: M62") نسخة
لصق البيانات الموجودة في الكتاب المستهدف
wbTarget.Range ( "A1"). PasteSpecial
مسح أي شيء على الحافظة لزيادة الذاكرة المتاحة
Application.CutCopyMode = خطأ
احفظ الكتاب المستهدف
wbTarget.Save
أغلق المصنف
wbTarget.Close
تفعيل الكتاب المصدر مرة أخرى
wbThis.Activate
'مسح الذاكرة
تعيين wbTarget = لا شيء
اضبط wbThis = لا شيء
نهاية الفرعية