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

Статья
04/28/2010

Обновлен: Ноябрь 2007

Применение
Сведения, приведенные в данном разделе, относятся только к указанным проектам Visual Studio Tools for Office и версиям Microsoft Office. Тип проекта Проекты уровня документа Проекты уровня приложения Версия Microsoft Office Excel 2003 Excel 2007 Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов.

Сведения, приведенные в данном разделе, относятся только к указанным проектам Visual Studio Tools for Office и версиям Microsoft Office.

Тип проекта

Проекты уровня документа
Проекты уровня приложения

Версия Microsoft Office

Excel 2003
Excel 2007

Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов.

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

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

Следует выполнить итерацию коллекции 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", missing], "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", missing);

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

См. также

Задачи

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

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

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

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

Глобальный доступ к объектам в Visual Studio Tools for Office

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