Comment : répertorier toutes les feuilles de calcul d'un classeur

Mise à jour : novembre 2007

S'applique à
Les informations de cette rubrique s'appliquent uniquement aux projets et versions Visual Studio Tools pour Office spécifiés de Microsoft Office. Type de projet Projets au niveau du document Projets au niveau de l'application Version de Microsoft Office Excel 2003 Excel 2007 Pour plus d'informations, consultez Fonctionnalités disponibles par type d'application et de projet.

La classe Microsoft.Office.Interop.Excel.Workbook fournit un objet Microsoft.Office.Interop.Excel.Worksheets. Cet objet contient une collection de tous les objets Microsoft.Office.Interop.Excel.Worksheet du classeur spécifié.

Pour répertorier toutes les feuilles de calcul existantes dans un classeur dans une personnalisation au niveau du document

• Parcourez la collection Worksheets et envoyez le nom de chaque feuille vers une cellule décalée par un contrôle 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++;
      }
  }
  

Pour répertorier toutes les feuilles existantes dans un classeur dans un complément d'application

• Parcourez la collection Worksheets et envoyez le nom de chaque feuille vers une cellule décalée par un objet 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++;
      }
  }
  

Voir aussi

Tâches

Comment : ajouter des feuilles de calcul à des classeurs

Comment : déplacer des feuilles de calcul dans les classeurs

Concepts

Utilisation des feuilles de calcul

Accès global aux objets dans les projets Visual Studio Tools pour Office