课程来源:王佩丰老师的《王佩丰学VBA视频教程》,如有侵权,请联系删除!
概述:本节课,主要讲述VBA对工作簿的基本操作,主要有打开工作簿、新建工作簿、保存工作薄/另存工作簿以及关闭工作簿。
1. 基本概念
1.1 ActiveWorkbook
在VBA(Visual Basic for Applications)中,ActiveWorkbook
是一个引用当前活动工作簿的对象。具体来说,ActiveWorkbook
表示的是当前在 Excel 应用程序中处于活动状态(即最顶层或最近被用户交互过)的工作簿。
简单而言,当前打开或新建的工作簿即为ActiveWorkbook
2. Workbooks工作簿对象 —— Open、Add、Save/Save as、Close
注1:save保存至默认路径,save as 另存至
2.1 拆分工作表(方法应用:Copy & Save as & Close)
Sub Copy_Sheet()
'拆分工作表至新工作簿,并将工作簿命名为工作表名称
Dim sheet As Worksheet
For Each sheet In Sheets
sheet.Copy ' 无参数时,默认复制粘贴到新工作簿
'ActiveWorkbook 即为上一步copy工作表所新建的工作簿
'Save as 另存为... ; Save 保存至默认路径
ActiveWorkbook.SaveAs Filename:="d:\data\" & sheet.Name & ".xlsx"
ActiveWorkbook.Close
Next
End Sub
2.2 Add、Open说明
Workbooks.Add '新建工作簿
Workbooks.Open "路径名称\文件名称.后缀" '打开工作簿 路径名以字符串表示,用""括住
ActiveWorkbook.SaveAs "路径名称\文件名称.后缀" '保存活动工作簿为...