Workbook和Worksheet的简单综合应用

　　VBA代码中的Workbook对象代表工作簿，而Workbooks集合则包含了当前所有的工作簿。

　　本文，为大家介绍Workbook和Worksheet的简单应用

　　下面的代码，功能是这样的，创建一个工作薄，并设置该工作薄的第一个工作表，并在表中自动录入数据，最后，将该工作薄保存到D盘，名称是dzwebs.xls。

　　Dim wb As Workbook'申明一个工作薄参数
　　Dim ws As Worksheet'申明一个工作表参数
　　Dim i As Long
　　Set wb = Workbooks.Add'新建一个工作薄
　　Set ws = wb.Sheets(1)'激活第一个工作表

　　'以下内容，是工作表添加内容
　　ws.Name = "产品汇总表"
　　ws.Cells(1, 1) = "序号"
　　ws.Cells(1, 2) = "产品名称"
　　ws.Cells(1, 3) = "产品数量"
　　For i = 2 To 10
　　　ws.Cells(i, 1) = i - 1
　　Next i

　　'保存工作薄
　　Application.DisplayAlerts = False'禁止弹出警告框
　　wb.SaveAs Filename:="D:/dzwebs.xls"

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18