如果要编写在工作簿中处理不同工作表的宏，则可能需要先进行工作处理，然后再确定工作簿中存在哪些类型的工作表。这一点特别重要，因为某些VBA命令仅适用于某些类型的工作表。

在弄清楚工作簿中有哪些类型的工作表之前，了解Excel如何在内部存储构成工作簿的某些对象会很有帮助。 Excel维护一个工作表集合和一个图表集合。工作表集合由工作表对象组成，图表集合由图表工作表对象组成。

图表工作表对象是那些占据整个工作表的图表；它不包括那些嵌入在工作表中的对象。

有趣的是，工作表和图表工作表对象也是Sheets集合的成员。因此，如果要按工作表出现的顺序处理工作簿，则最简单的方法是逐步完成“工作表”集合。这样做时，您可以检查集合中单个对象的Type属性，以确定它是什么类型的对象。 Excel定义了可以属于Sheets集合的四种对象：

xlWorksheet。*这是一个常规工作表。

xlChart。*这是一张图表。

xlExcel4MacroSheet。*这是宏表，如在Excel 4.0中所使用。

xlExcel4IntlMacroSheet。*这是国际宏表，在Excel 4.0中使用。

您可能会以为只查看图纸类型列表就足够了。但是，有趣的是，Excel并不总是返回您对Type属性的期望。相反，如果您检查图表的Type属性，它将返回一个等于xlExcel4MacroSheet的值。

这可能会导致任何宏出现问题。

因此，解决方法是将Sheets集合中每个项目的名称与Charts集合中的每个项目的名称进行比较。如果名称在两个集合中都存在，则可以安全地认为该工作表是图表。如果两者都不存在，则可以进一步分析以查看工作表是否为其他类型之一。下面的宏SheetType完全遵循此过程：

Sub SheetType()

Dim iCount As Integer     Dim iType As Integer     Dim sTemp As String     Dim oChart As Chart     Dim bFound As Boolean

sTemp = ""

For iCount = 1 To Sheets.Count         iType = Sheets(iCount).Type         sTemp = sTemp & Sheets(iCount).Name & " is a"



bFound = False         For Each oChart In Charts             If oChart.Name = Sheets(iCount).Name Then                 bFound = True             End If         Next oChart

If bFound Then             sTemp = sTemp & " chart sheet."

Else             Select Case iType                 Case xlWorksheet                     sTemp = sTemp & " worksheet."

Case xlChart                     sTemp = sTemp & " chart sheet."

Case xlExcel4MacroSheet                     sTemp = sTemp & "n Excel 4 macro sheet."

Case xlExcel4IntlMacroSheet                     sTemp = sTemp & "n Excel 4 international macro sheet"

Case Else                     sTemp = sTemp & "n unknown type of sheet."

End Select         End If         sTemp = sTemp & vbCrLf     Next iCount     MsgBox sTemp End Sub

运行宏时，您会看到一个消息框，其中显示工作簿中每个工作表的名称以及工作表的类型。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2538）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

在VBA中检测图纸类型。