Практическое руководство. Программное копирование листов Excel

Статья
02/20/2013

Можно создать копию листа и вставить ее перед существующим листом в книге или после него.Если место вставки листа не определено, то Excel создает новую книгу, в которую будут включены новые листы.

Применение. Сведения этого раздела применяются к проектам уровня документа и уровня приложения для Excel 2013 и Excel 2010. Дополнительные сведения см. в разделе Доступность функций по типам приложений Office и проектов.

Примечание
При программном копировании листа или при копировании листа вручную, код не будет связан с новым листом и элементы управления не будут в нем работать.Причина заключается в том, что недавно скопированный лист является объектом Microsoft.Office.Interop.Excel.Worksheet, а не ведущим элементом Microsoft.Office.Tools.Excel.Worksheet.Элементы управления Windows Forms и элементы управления ведущего приложения могут быть добавлены только в ведущие элементы.Дополнительные сведения см. в разделе Программные ограничения ведущих элементов и элементов управления ведущего приложения.

При программном копировании листа или при копировании листа вручную, код не будет связан с новым листом и элементы управления не будут в нем работать.Причина заключается в том, что недавно скопированный лист является объектом Microsoft.Office.Interop.Excel.Worksheet, а не ведущим элементом Microsoft.Office.Tools.Excel.Worksheet.Элементы управления Windows Forms и элементы управления ведущего приложения могут быть добавлены только в ведущие элементы.Дополнительные сведения см. в разделе Программные ограничения ведущих элементов и элементов управления ведущего приложения.

Добавление копии листа к книге в настройке уровня документа

Используйте метод Copy для копирования первого листа в текущую книгу и размещения копии после третьего листа.
```
Globals.Sheet1.Copy(After:=Globals.ThisWorkbook.Sheets(3))
```
```
Globals.Sheet1.Copy(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(worksheet3);