EelVBA编程入门范例-h 工作簿_Wrkbk_基本操作应用示例.pdf

ExcelVBAExcelVBA 编程入门范例第三章 Workbook 对象(fanjy) 第三章 工作簿(Workbook)基本操作应用示例 Workbook 对象代表工作簿，而 Workbooks 集合则包含了当前所有的工作簿。下面对 Workbook 对象的重要的方法和属性以及其它一些可能涉及到的方法和属性进行示例介绍， 同时，后面的示例也深入介绍了一些工作簿对象操作的方法和技巧。 示例03-01：创建工作簿(Add 方法) [示例03-01-01] Sub CreateNewWorkbook1() MsgBox 将创建一个新工作簿. Workbooks.Add End Sub [示例03-01-02] 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 i End Sub 示例03-02：添加并保存新工作簿 Sub AddSaveAsNewWorkbook() Dim Wk As Workbook Set W k = Workbooks.Add Application.DisplayAlerts = False Wk.SaveAs Filename:=D:/SalesData.xls End Sub 示例说明：本示例使用了Add 方法和 SaveAs 方法，添加一个新工作簿并将该工作簿以文 件名SalesData.xls 保存在D 盘中。其中，语句Application.DisplayAlerts = False 表示禁止 弹出警告对话框。 - 1 - ExcelVBAExcelVBA 编程入门范例第三章 Workbook 对象(fanjy) 示例03-03：打开工作簿(Open 方法) [示例03-03-01] Sub openWorkbook1() Workbooks.Open 需打开文件的路径\文件名 End Sub 示例说明：代码中的里的内容需用所需打开的文件的路径及文件名代替。Open 方法共有 15 个参数，其中参数FileName 为必需的参数，其余参数可选。 [示例03-03-02] Sub openWorkbook2() Dim fname As String MsgBox 将D 盘中的测试.xls工作簿以只读方式打开 fname = D:\测试.xls Workbooks.Open Filename:=fname, ReadOnly:=True End Sub 示例03-04：将文本文件导入工作簿中(OpenText 方法) Sub TextToWorkbook() 本示例打开某文本文件并将制表符作为分隔符对此文件进行分列处理转换成为工作表 Workbooks.OpenText Filename:=文本文件所在的路径/文本文件名, _ DataType:=xlDelimited, Tab:=True End Sub 示例说明：代码中的里的内容需用所载入的文本文件所在路径及文件名代替。OpenText 方法的作用是导入一个文本文件，并将其作为包含单个工作表的工作簿进行分列处理，然后 在此工作表中放入经过分列处理的文本文件数据。该方法共有 18 个参数，其中参数 FileName 为必需的参数，其余参数可选。 示例03-05：保存工作簿(Save 方法) [示例03-05-01] Sub SaveWorkbook() MsgBox 保存当前工作簿. ActiveWorkbook.Save End Sub [示例03-05-02] Sub SaveAllWorkbook1() Dim wb As Workbook MsgBox 保存所有打开的工作簿后退出Excel. Fo