11.2.1. Добавление новых листов

– в проекте уровня документа:

Dim newWorksheet As Excel.Worksheet

newWorksheet = CType(Globals.ThisWorkbook.Worksheets.Add(), _

Excel.Worksheet)

– в проекте уровня приложения:

Dim newWorksheet As Excel.Worksheet

newWorksheet = CType(Me.Application.Worksheets.Add(), _

Excel.Worksheet)

11.2.2. Копирование листов

– в проекте уровня документа:

Globals.Sheet1.Copy(After:=Globals.ThisWorkbook.Sheets(3))

– в проекте уровня приложения:

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)

11.2.3. Удаление листов из книг

– путем прямой ссылки на ведущий элемент листа в проекте уровня документа:

Globals.Sheet1.Delete()

– обращением к листу через номер индекса коллекции листов книги Excel в проекте уровня приложения:

CType(Me.Application.ActiveWorkbook.Sheets(4), _

Excel.Worksheet).Delete()

11.2.4. Выбор указанного листа

– использованием ведущего элемента листа в проекте уровня документа:

Globals.Sheet1.Select()

– использованием коллекции листов книги Excel в проекте уровня приложения:

CType(Me.Application.ActiveWorkbook.Sheets(1), _

Excel.Worksheet).Select()

11.2.5. Перечисление всех листов в книге

В настройке уровня документа:

Private Sub ListSheets()

Dim index As Integer = 0

Dim NamedRange1 As _

Microsoft.Office.Tools.Excel.NamedRange = _

Globals.Sheet1.Controls.AddNamedRange( _

Globals.Sheet1.Range("A1"), "NamedRange1")

For Each displayWorksheet As Excel.Worksheet In _

Globals.ThisWorkbook.Worksheets

NamedRange1.Offset(index, 0).Value2 = _

displayWorksheet.Name

index += 1

Next displayWorksheet

End Sub

В надстройке уровня приложения:

Private Sub ListSheets()

Dim index As Integer = 0

Dim rng As Excel.Range = Me.Application.Range("A1")

For Each displayWorksheet As Excel.Worksheet In _

Me.Application.Worksheets

rng.Offset(index, 0).Value2 = displayWorksheet.Name

index += 1

Next displayWorksheet

End Sub

11.2.6. Предварительный просмотр и печать листов

1. Предварительный просмотр страницыперед выводом на печать.

– в проекте уровня документа:

Globals.Sheet1.PrintPreview()

– в проекте уровня приложения:

CType(Application.ActiveSheet, Excel.Worksheet).PrintPreview()

2. Печать листа.

– в проекте уровня документа:

Globals.Sheet1.PrintOut(From:=1, To:=1, Copies:=2, _

Preview:=True)

– в проекте уровня приложения:

CType(Application.ActiveSheet, Excel.Worksheet).PrintOut _

(From:=1, To:=1, Copies:=2, Preview:=True)

11.2.7. Перемещение листов в книгах

– в проекте уровня документа:

Dim totalSheets As Integer = _

Application.ActiveWorkbook.Sheets.Count

Globals.Sheet1.Move(After:=Globals.ThisWorkbook.Sheets( _

totalSheets))

– в проекте уровня приложения:

Dim totalSheets As Integer = _

Application.ActiveWorkbook.Sheets.Count

CType(Application.ActiveSheet, Excel.Worksheet).Move( _

After:=Application.Worksheets(totalSheets))