工作簿_Workbook_基本操作应用示例

第三章工作簿(Workbook)基本操作应用示例

Workbook对象代表工作簿，而Workbooks集合则包含了当前所有的工作簿。下面对 Workbook对象的重要的方法和属性以及其它一些可能涉及到的方法和属性进行示例介绍， 同时，后面的示例也深入介绍了一些工作簿对象操作的方法和技巧。

示例03-01:创建工作簿(Add方法）

[示例 03-01-01]

Sub CreateNewWorkbookl () 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 Wk = Workbooks.Add

Application.Disp丨ayAlerts = False Wk.SaveAs Filename:=\End Sub

示例说明：本示例使用了 Add方法和SaveAs方法，添加一个新工作簿并将该工作簿以文 件名SalesData.xls保存在D盘中。其中，语句Application.Disp丨ayAlerts = False表示禁止 弹出警告对话框。

http://fanjy.blog.exce丨home.net

ExcelVBA>>ExcelVBA 编程入门范例>> 第三章 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 = \ 测试.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：保存工作簿(