菜鸟也懂VBA-excle2007VBA入门教程(9)

Excel 2007 VBA 教程

第七讲 工作表对象

一. 工作表的引用

1. 以名称方式引用：Worksheets (\工作表名称\，Worksheets是工作表的集合，包括所有工作表。

（1） 实例

Sub test1() '这是用名称来引用工作表名

Worksheets(\总表\佛山小老鼠\End Sub

2. 以索引号方式引用：Worksheets(数字)或者Sheets(数字)，这两者的区别在前面的课程里提过，Sheets

也是工作表的集合，把其它的工作表也包括在内，如图表工作表，宏表工作表。而Worksheets只包括我平常操作的工作表。如Sheet1,Sheet2 （1） 实例

Sub test2() '这是用索引号来引用工作表名

On Error Resume Next '目的是为了防止此工作簿中没有“佛山小老鼠”这个工作表报错 Application.DisplayAlerts = False '屏蔽询问对话框

Worksheets(\佛山小老鼠\删除“佛山小老鼠”这个工作表 Application.DisplayAlerts = True '打开“询问对话框”

Sheets.Add After:=Worksheets(Sheets.Count) '在最后一张工作表后插入一张新工作表 Worksheets(Sheets.Count).Name = \佛山小老鼠\把最后一张工作表改为“佛山小老鼠” End Sub

3. 其它方式的引用

（1） 用ActiveSheet引用

Sub test3() '用ActiveSheet引用

MsgBox \活动工作表的名字是：\End Sub

二. 添加工作表

1. 添加工作表的方法是Add,其表达式Add(Before/After,Count,Type)。Before前面，After后面，Count

插入的数量，Type是插入的类型，如正常工作表Xlworksheet,图表工作表Xlchart，还有宏表工作表这里就不多说了。如果省略第二参，第三参数就会插入一张正常工作表 （1） 实例 在第一张工作表前面插入5张工作表

Sub test4() '在第一张工作表前面插入5张工作表 Sheets.Add Before:=Worksheets(1), Count:=5 End Sub

三. 删除工作表

1. 按名称来删除 Worksheets(工作表名称).Delete 记得给工作表名加双引号

2. 按索引号来删除 Worksheets(数字).Delete 这个数字就是我们在工作簿看到工作表位置。 3. 用代码删除工作表，会弹出一个“询问对话框”如图 17

图 17

4. 解决询问对话框的问题

其实前面许多实例里我都用了，只是没有和大家说详细，这次和大家讲清楚，用了这下面的代码，

第 23 页 共 52 页

Excel 2007 VBA 教程

Application.DisplayAlerts = False '屏蔽询问对话框 Worksheets(1).Delete '删除第一个工作表

Application.DisplayAlerts = True '打开“询问对话框” 5. 至少要保留一张可见工作表 6. 实例 删除第一个工作表

Sub test1() '会弹出询问对话框的 Worksheets(1).Delete End Sub

Sub test2() '不会弹出询问对话框的 Application.DisplayAlerts = False Worksheets(1).Delete

Application.DisplayAlerts = True End Sub

四. 实例 提取各工作表名制作目录

Sub 提取工作表名()

Dim i As Integer '定义i为整型变量

On Error Resume Next '防止工作簿里没有目录工作表，在删除时报错 Application.DisplayAlerts = False '关闭询问对话框 Worksheets(\目录\删除目录工作表

Application.DisplayAlerts = True '打开询问对话框

Sheets.Add before:=Sheets(1) '在第一个工作表前插入一张新的工作表 Sheets(1).Name = \目录\把第一个工作表取名为“目录”

Cells(1, 1) = \目录\在目录工作表中的A1单元写于“目录”两字

For i = 2 To Worksheets.Count 'Worksheets.Count统计工作的总数，整句代码的意思遍历每一个作表

Cells(i, 1) = Sheets(i).Name '依次把工作表的名字写A列 Next i '下一个i End Sub Sub 清空()

Worksheets(\目录\ Worksheets(\目录\ End Sub

五. 实例 提取各工作表名制作目录且还要建立超链接

Sub 提取工作表名()

Dim i As Integer '定义i为整型变量

On Error Resume Next '防止工作簿里没有目录工作表，在删除时报错 Application.DisplayAlerts = False '关闭询问对话框 Worksheets(\目录\删除目录工作表

Application.DisplayAlerts = True '打开询问对话框

Sheets.Add before:=Sheets(1) '在第一个工作表前插入一张新的工作表 Sheets(1).Name = \目录\把第一个工作表取名为\目录\

Cells(1, 1) = \目录\在目录工作表中的A1单元写于\目录\两字

For i = 2 To Worksheets.Count 'Worksheets.Count统计工作的总数，整句代码的意思遍历每一个作表 …… 此处隐藏：663字，全部文档内容请下载后查看。喜欢就下载吧 ……