该集合是工作簿 (Workbooks) 中的一组工作表 (Sheets)。让我们看看我们可以在工作表上执行哪些操作。
首先,让我们尝试找出我们的书有多少页:
Sub Test() 'moonexcel.com.ua MsgBox (Str(Application.Workbooks.Item("Test.xls").Sheets.Count)) End Sub
使用此代码,我们向屏幕 (MsgBox) 调用一条消息,该消息显示工作簿 (Workbooks)“Test.xls”中的工作表数量 (Sheets.Count)。
工作表不仅包含单元格,还包含图表。此外,与计算表一样,图表也将包含在表计数中。
在工作表集合中,还可以添加您自己的工作表,为此有一个 Add 方法。该方法有 4 个参数 Add(Before, After, Count, Type)。所有这些参数都是可选的。前两个负责纸张的插入位置。接下来,要插入的纸张数量Count和纸张类型Type。例如,类型可以是电子表格的 xlWorkSheet 和图表的 xlChart。如果未指定位置,则将相对于当前工作表插入工作表。
Sub Test() 'moonexcel.com.ua Sheets.Add After:=Worksheets("Sheet3"), Count:=4 End Sub
这样我们就在工作表“Sheet3”之后插入了 4 个工作表 (Count:=4)。您还可以在书的最后插入一张纸:
Sub Test() 'moonexcel.com.ua Worksheets.Add ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) End Sub
如果您愿意,可以隐藏一些字母。如果您不想在屏幕上以字母的形式看到常量或计算结果,这非常有用。您可以使用 Visible 方法来实现此目的。通过在 TRUE 或 FALSETbl_ 中设置此属性,您可以删除或显示所需的工作表。
Sub Test() 'moonexcel.com.ua ActiveWorkbook.Sheets("Sheet3").Visible = False End Sub