HOW TO：列出活頁簿中的所有工作表

更新：2007 年 11 月

適用於
本主題中的資訊僅適用於指定的 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 控制項位移 (Offset) 的儲存格。

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

請參閱

工作

HOW TO：在活頁簿中加入新的工作表

HOW TO：在活頁簿內移動工作表

概念

使用工作表

全域存取 Visual Studio Tools for Office 專案中的物件