No.1

Excel可以创建不同类型的工作表，编程中会遇到返回某一类型的工作或所有类型的工作表，对表进行操作，那么如何得到想要的工作表呢？下面介绍一个方法。

首先要认识一下Sheets对象，它表示工作簿中所有工作表的集合。

工作表类型包括：工作表（Worksheet）、图表（Chart）、对话框（DialogSheet）等。

可在工作表名选项卡右击鼠标，插入相关类型的工作表。

如下图所示：

No.2

Sheets对象的属性和方法：

可使用Sheets.Add方法添加一个工作表。

Copy方法复制一个工作表。

Delete删除工作表。

Move移动工作表。

PrintOut打印工作表。

Select选择工作表。

具体如何操作不在本节介绍范围，下面主要讲解，如何获取所有工作表。

No.3

如上图所示，自动提取工作表类型和名称分别显示在单元格中。

本例创建了8个工作表，类型列中可看到工作表不同的分类。

单击按钮完成上述操作，下面看一下代码过程。

Private Sub GetSheets()
ActiveSheet.Cells(1, 1).Offset(1, 0).Resize(Cells.Rows.Count - 1, Cells.Columns.Count).Clear
Dim cell As Range, Carr, Narr, sn As Integer, i As Integer
sn = ThisWorkbook.Sheets.Count
ReDim Carr(0 To sn)
ReDim Narr(0 To sn)
Dim s As Object
For Each s In ThisWorkbook.Sheets'遍历工作表
    Carr(i) = TypeName(s)
    Narr(i) = s.Name
    i = i + 1
Next s
Set cell = ActiveSheet.Range("B3")
Set cell = cell.Resize(sn, 1)
cell.Value = Application.WorksheetFunction.Transpose(Carr)
With cell.Offset(0, -1)
    .Formula = "=row()-2"
    .RowHeight = 25
End With
With cell.Offset(0, 1).Resize(sn, 1)
    .Value = Application.WorksheetFunction.Transpose(Narr)
End With
Dim FiledsArr
FiledsArr = Array("序号", "表类型", "表名")
With cell.Offset(-1, -1).Resize(1, 3)
    .Value = FiledsArr
    .Interior.Color = RGB(22, 222, 255)
    .RowHeight = 25
    .Borders.Item(xlEdgeBottom).LineStyle = 1
End With
End Sub

如上代码，似乎有点太多，但大多没有什么意义。

所以只要明白下面这几行代码，就对本节内容明白了。

For Each s In ThisWorkbook.Sheets'遍历工作表
    Carr(i) = TypeName(s)'保存工作表类型到数组Carr
    Narr(i) = s.Name'保存工作表名到数组Narr
    i = i + 1
Next s

总体来说Sheets是一个不错的对象，在对表进行处理的时候会用到。

而且肯定会用到，只不过通常Excel会默认为当前工作表，即ActiveSheet。

掌握更多VBA知识，欢迎关注、收藏。