EXCELWorkbook对象应用大全.docx

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.AddEnd Sub应用示例2：创建一个新工作簿并命名工作表且添加数据Sub CreateNewWorkbook2() Dim wb As Workbook Dim ws As Worksheet Dim i As Long 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 iEnd Sub应用示例3：创建带有指定数量工作表的工作簿Sub testNewWorkbook() MsgBox 创建一个带有10个工作表的新工作簿 Dim wb As Workbook Set wb = NewWorkbook(10)End Sub?Function NewWorkbook(wsCount As Integer) As Workbook 创建带有由变量wsCount提定数量工作表的工作簿，工作表数在1至255之间 Dim OriginalWorksheetCount As Long Set NewWorkbook = Nothing If wsCount 1 Or wsCount 255 Then Exit Function OriginalWorksheetCount = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = wsCount Set NewWorkbook = Workbooks.Add Application.SheetsInNewWorkbook = OriginalWorksheetCountEnd Function自定义函数NewWorkbook可以创建最多带有255个工作表的工作簿。本测试示例创建一个带有10个工作表的新工作簿。[应用2] 打开工作簿（Open方法）Open方法用于打开一个现有的工作簿，其语法为：Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)可以看到，该方法具有很多参数，但大多数参数都很少用到。在这些参数中，除参数FileName必须外，其它参数都可选。参数FileName指定要打开的工作簿文件的名称，参数UpdateLinks指定更新工作簿中链接的方式，参数ReadOnly用来设置是否以只读方式打开工作簿。如果需要使用密码来打开工作簿，则应该将参数Password设置为该密码；如果需要使用密码打开工作簿但没有指定密码，则会弹出询问密码的对话框。参数AddToMru指定是否将工作簿添加到最近使用的文件列表中，建议将其设置为True，默认值为False。应用示例4：以只读方式打开某工作簿Sub openWorkbook2() Dim fname As String MsgBox 将D盘中的测试.xls工作簿以只读方式打开 f