Como: Listar todas as planilhas em uma pasta de trabalho.

Artigo
08/08/2011

O Microsoft.Office.Interop.Excel.Workbook classe fornece uma Microsoft.Office.Interop.Excel.Worksheets objeto. Este objeto contém uma coleção de todos os Microsoft.Office.Interop.Excel.Worksheet objetos na pasta de trabalho.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Excel 2007 e Excel 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

Para listar todas as planilhas de existentes em uma pasta de trabalho em uma personalização em nível de documento

Iterar por meio de Worksheets coleta e enviar o nome de cada planilha a uma célula de deslocamento a partir um NamedRange de controle.

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++;
    }
}

Para listar todas as planilhas de existentes em uma pasta de trabalho em um suplemento em nível de aplicativo

Iterar por meio do Worksheets coleta e enviar o nome de cada planilha a uma célula de deslocamento de um Microsoft.Office.Interop.Excel.Range objeto.

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++;
    }
}

Consulte também

Tarefas

Como: Adicionar novas planilhas para pastas de trabalho

Como: Mover planilhas dentro de pastas de trabalho

Conceitos

Trabalhando com planilhas

Acesso global a objetos em projetos do Office

Compartilhar via