Workbook 对象应用大全 Workbook 对象代表一个工作簿，Workbooks 集合对象则代表同一 Excel 进程中打开的所有工作簿对象。 [应用 1] 创建新工作簿（Add 方法） 使用 Add 方法在 Workbooks 集合中创建新工作簿，所创建的工作簿为活动工作簿。其语法为： Workbooks.Add(Template) 参数 Template 可选，决定如何创建新工作簿。如果将该参数设置为已存在的 Excel 模板文件名称，那么将以该文件作为模板创建工作簿。该参数可以为下列 XlWBATemplate 常量之一：xlWBATChart（值-4109，代表图表）、xlWBATExcel4IntlMacroSheet（值 4）、xlWBATExcel4MacroSheet（值 3）、xlWBATWorksheet（值-4167，代表工作表）。在创建新工作簿时，如果指定该参数，那么将创建包含指定类型工作表的工作簿；如果省略该参数，那么将创建包含一定数量空工作表的工作簿，工作表数为 SheetsInNewWorkbook属性所设置的数量。 应用示例 1：创建一个新工作簿 Sub CreateNewWorkbook1() MsgBox "将创建一个新工作簿." Workbooks.Add EndSub 应用示例 2：创建一个新工作簿并命名工作表且添加数据 Sub CreateNewWorkbook2() Dim wb As Workbook Dim ws As Worksheet Dim i AsLong MsgBox "将创建一个新工作簿,并预设工作表格式." 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 EndSub 应用示例 3：创建带有指定数量工作表的工作簿 Sub testNewWorkbook() MsgBox "创建一个带有 10 个工作表的新工作簿" Dim wb As Workbook Set wb = NewWorkbook(10) EndSub Function NewWorkbook(wsCount AsInteger) As Workbook '创建带有由变量 wsCount 提定数量工作表的工作簿，工作表数在 1 至 255 之间 Dim OriginalWorksheetCount AsLong Set NewWorkbook = Nothing If wsCount < 1 Or wsCount > 255 ThenExitFunction OriginalWorksheetCount = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = wsCount Set NewWorkbook = Workbooks.Add Application.SheetsInNewWorkbook = OriginalWorksheetCount EndFunction 自定义函数 NewWorkbook 可以创建...
