Como: Lista Tudo as planilhas de uma pasta de trabalho

Se aplica a
As informações contidas neste tópico se aplicam apenas às especificado Ferramentas do Visual Studio para o Office projetos e as versões do Microsoft Office. Tipo de Projeto Projetos de nível de documento Projetos de nível de aplicativo Versão do Microsoft Office O Excel 2003 O Excel 2007 For more information, see Recursos disponíveis pelo aplicativo e o tipo de projeto.

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

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

• Iterar através a coleção Worksheets e enviar o nome de cadPlanilha para um deslocamento de célula de um Controlarar de 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++;
      }
  }
  

Para listar Tudo as planilhas existentes em uma pasta de trabalho em um aplicativo-nível Adicionar - in

• Iterar através a coleção Worksheets e enviar o nome de cadPlanilha para um deslocamento de célula de um objeto 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++;
      }
  }
  

Consulte também

Tarefas

Como: Adicionar Novo planilhas a pastas de trabalho

Como: Mover planilhas em pastas de trabalho

Conceitos

Trabalhando com planilhas

Global Acessar a objetos no Visual Studio Tools para projetos do Office