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

Статья
02/20/2013

Класс Microsoft.Office.Interop.Excel.Workbook предоставляет объект Microsoft.Office.Interop.Excel.Worksheets.Этот объект содержит коллекцию всех объектов Microsoft.Office.Interop.Excel.Worksheet в книге.

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

Составление списка существующих в книге листов в настройке уровня документа

Следует выполнить итерацию коллекции Worksheets и отправить имя каждого листа в смещение ячейки из элемента управления NamedRange.

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 void ListSheets()
{
    int index = 0;

    Microsoft.Office.Tools.Excel.NamedRange NamedRange1 =
        Globals.Sheet1.Controls.AddNamedRange(
        Globals.Sheet1.Range["A1"], "NamedRange1");

    foreach (Excel.Worksheet displayWorksheet in Globals.ThisWorkbook.Worksheets)
    {
        NamedRange1.Offset[index, 0].Value2 = displayWorksheet.Name;
        index++;
    }
}

Составление списка существующих в книге листов в надстройке уровня приложения

Следует выполнить итерацию коллекции Worksheets и отправить имя каждого листа в смещение ячейки из объекта Microsoft.Office.Interop.Excel.Range.

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

private void ListSheets()
{
    int index = 0;

    Excel.Range rng = this.Application.get_Range("A1");

    foreach (Excel.Worksheet displayWorksheet in this.Application.Worksheets)
    {
        rng.get_Offset(index, 0).Value2 = displayWorksheet.Name;
        index++;
    }
}

См. также

Задачи

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

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

Основные понятия

Работа с листами

Глобальный доступ к объектам в проектах Office

Поделиться через