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"