كيفية القيام بما يلي: نسخ أوراق العمل

مقالة
11/01/2010

ينطبق على
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع مشروعات على مستوى المستند مشروعات على مستوى التطبيق إصدار Microsoft Office Excel 2007 Excel 2010

تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع.

نوع المشروع

مشروعات على مستوى المستند
مشروعات على مستوى التطبيق

إصدار Microsoft Office

Excel 2007
Excel 2010

يمكنك إنشاء نسخة من ورقة العمل و إدراج ورقة العمل هذه قبل أو بعد ورقة عمل موجودة في المصنف. إذا لم تحدد مكان إدراج ورقة العمل, يقوم Excel بإنشاء مصنف جديد ليحتوي على ورقة العمل الجديدة.

ملاحظة

سواء قمت بنسخ ورقة العمل بشكل برمجي, أو قام المستخدم النهائي بنسخ ورقة العمل يدوياً، لن توجد أي تعليمة برمجية خلف ورقة العمل الجديدة و عناصر التحكم في ورقة العمل الجديدة لن تعمل. وهذا لأن ورقة العمل المنسوخة حديثاً هي كائن Microsoft.Office.Interop.Excel.Worksheet و ليست العنصر المضيف Microsoft.Office.Tools.Excel.Worksheet. عناصر تحكم Windows Forms و عناصر تحكم المضيف يمكن فقط إضافتهم لعناصر المضيف. لمزيد من المعلومات، راجع القيود البرمجية للعناصر مضيفة وعناصر التحكم.

لإضافة ورقة عمل منسوخة جديدة إلى مصنف في تخصيص على مستوى المستند

استخدم أسلوب Copy لنسخ ورقة العمل الأولى في المصنف الحالي و قم بوضع النسخة بعد الورقة الثالثة.
```
Globals.Sheet1.Copy(After:=Globals.ThisWorkbook.Sheets(3))
```
```
Globals.Sheet1.Copy(missing, Globals.ThisWorkbook.Sheets[3]);
```

لإضافة ورقة عمل منسوخة في مصنف داخل الوظيفة الإضافية على مستوى التطبيق

استخدم أسلوب Copy لنسخ ورقة العمل الأولى في المصنف الحالي و قم بوضع النسخة بعد الورقة الثالثة.

Dim worksheet1 As Excel.Worksheet = CType(Application.ActiveWorkbook.Worksheets(1),  _
Excel.Worksheet)
Dim worksheet3 As Excel.Worksheet = CType(Application.ActiveWorkbook.Worksheets(3),  _
Excel.Worksheet)
worksheet1.Copy(After:=worksheet3)

Excel.Worksheet worksheet1 = ((Excel.Worksheet)Application.ActiveWorkbook.Worksheets[1]);
Excel.Worksheet worksheet3 = ((Excel.Worksheet)Application.ActiveWorkbook.Worksheets[3]);
worksheet1.Copy(missing, worksheet3);