Workbook对象是一个Microsoft Excel 工作簿。有Name、Path等属性。有SaveAs等方法。有Open、Activate等事件。

      ThisWorkbook属性返回运行Visual Basic代码的工作簿。当Visual Basic代码是加载宏的组成部分时，返回加载宏的工作簿，而非调用该加载宏的工作簿。

使用 Workbooks(index)（其中 index 是工作簿名称或索引号）可返回一个 Workbook 对象。index指创建或打开工作簿的顺序。Workbooks(1) 是创建的第一个工作簿，而 Workbooks(Workbooks.Count)Workbooks返回最后一个打开的工作簿。激活某工作簿并不更改其索引号。所有工作簿均包括在索引计数中，即便是隐藏工作簿也是。

Workbooks(1).Activate             '  激活工作簿一（创建或打开的第一个工作簿）。

Workbooks("TEST.xlsx").Worksheets("Sheet1").Activate     '  激活名为“TEST.xlsx”的工作簿（该工作簿必须已经在 Microsoft Excel 中打开）中的 Sheet1。

ActiveWorkbook.Author = "Jean Selva"               '  设置活动工作簿作者的名称。

Sheets集合是指定的或者活动工作簿中所有的工作表（图表工作表Chart和工作表Worksheet）的集合。有Add等方法。

使用 Sheets(index)（其中 index 是工作表名称或索引号）可返回一个 Chart 或 Worksheet 对象。工作表索引号指示该工作表在工作簿的标签栏上的位置。所有工作表均包括在索引计数中，即便是隐藏工作表也是。

 Sheets(array)                        ‘可指定多个工作表。

Worksheets(1)                         '工作簿中第一个（最左边的）工作表

Worksheets(Worksheets.Count)               '最后一个打开的工作表。

Sheets(1).Activate                                     ' 激活活动工作簿中的工作表二。

Sheets("sheet1").Activate                         '  激活活动工作簿中名为“Sheet1”的工作表。

Sheets(Array("Sheets4", "Sheet5")).Move before:=Sheets(1)          '  将名为"Sheet4"和"Sheet5"的工作表移到活动工作簿的开头。

Worksheets对象是指定的或者活动工作簿中所有WorkSheet对象的集合。有Add等方法。

使用 Worksheets(index)（其中 index 是工作表索引号或名称）可返回一个 Worksheet 对象。工作表索引号指示该工作表在工作簿的标签栏上的位置。所有工作表均包括在索引计数中，即便是隐藏工作表也是。

Worksheets(1)                                        '工作簿中第一个（最左边的）工作表

Worksheets(Worksheets.Count)             '最后一个工作表。

Worksheets.move After:=Sheets(SHeets.Count)            '  将所有工作表都移到工作簿的尾部，即将图表工作表都放在工作表之前。

Worksheets.Add count:=2, Before:=Sheets(1)               '  在活动工作簿的工作表一之前创建两个新工作表。

Worksheets(1).Visible = False                                        '  隐藏活动工作簿中的工作表一。

Worksheet对象代表一个工作表。有Name等属性。有Activate、Delete等方法。有Name、Cells等属性。有Activate、Change等事件。

使用 Worksheets(index)（其中 index 是工作表索引号或名称）可返回一个 Worksheet 对象。工作表索引号指示该工作表在工作簿的标签栏上的位置。所有工作表均包括在索引计数中，即便是隐藏工作表也是。工作表名称是工作表的标签上显示的名称。

ActiveSheet                        '返回当前处于活动状态的工作表。如果没有活动的工作表，则返回Nothing。

Range对象代表某一单元格、某一行、某一列、某一选定区域（可包含一个或多个连续单元格区域）或某一三维区域。有Clear、Copy等方法。有Cells、Value、Font等属性。

Range("A1).Value = "test"         

               '  将活动表上的A1单元格赋值为“test”。如果活动表不是工作表，则失败。

Worksheets("sheet1").Range("A5").Value = "test"             

               ' 将活动工作簿中名为“Sheet1”的工作表上的A1单元格赋值为“test”。字母大写或小写都可以。

Worksheets("Sheet1").Range("A1:H8").Formula = "=Rand()"            

              ' 为活动工作簿中名为“Sheet1”的工作表上的区域A1:H8中的每个单元格设置公式。

Worksheets(1).Range("Criteria").ClearContents

             ' 清除区域名为“Critiria”的区域中的内容。

Range("1:4").Select                            '  选择第1到4行

Range("A:C").Select                           '  选择A到C列

Range("A:C").EntireColumn.Insert     '  在第1列左边插入三列空白列

使用 Cells(row, column)（其中 row 是行号，column 是列标）可返回一个单元格。当工作表激活以后，使用 Cells 属性时不必明确声明工作表（它将返回活动工作表上的单元格）。column列标可以是字母格式的，例如Cells(1,"A")；也可以是数字格式的。row行号和column列标可以为变量。

Worksheets("sheet1").Cells(1,1).Value = "test"

                '  将活动工作簿中名为“Sheet1”的工作表上的A1单元格赋值为“test”。