操作工作簿/工作表的常用VBA代码，建议收藏！

操作工作簿/工作表的常用VBA代码，主要使用到Workbooks对象、Workbook对象、Worksheets对象以及Worksheet对象的属性与方法。

1.新增、打开、关闭工作簿

Workbooks.Add '新增工作簿

Workbooks.Open("E:/VBAMatrix.xlsx") '打开工作簿

Workbooks.Close '关闭所有打开的工作簿

2.保护/取消保护工作簿

ActiveWorkbook.Protect Password:="123456" '保护工作簿

ActiveWorkbook.Unprotect "123456" '取消当前工作簿的保护

3.激活工作簿

Workbooks("VBAMatrix.xlsx").Activate '激活工作簿

4.获取当前工作簿的路径、名称

ActiveWorkbook.Path '当前工作簿的路径

ActiveWorkbook.Name '当前工作簿的名称

ActiveWorkbook.FullName '当前工作簿的路径及名称

5.在当前工作簿的最后一张工作表后新增工作表，并重命名

ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.count)

ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.count).Name="VBAMatrix"

6.复制当前工作表到当前工作簿的最后一张工作表之后

ActiveSheet.copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.count)

7.复制当前工作表到新的工作簿，并重命名

ActiveSheet.Copy   

ActiveWorkbook.SaveAs Filename:="D:/" & ActiveSheet.Name & ".xlsx"   

ActiveWorkbook.Close

8.激活工作表、删除工作表

Worksheets("VBAMatrix").Activate '激活工作表

'代码块

ActiveSheet.Delete '删除工作表

9.遍历当前工作簿的所有工作表

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

    '代码块

Next

10.关闭当前工作簿以外的所有其他工作簿，并保存其更改

Dim w As Workbook

For Each w In Workbooks

    If w.Name <> ActiveWorkbook.Name Then

        w.Close savechanges:=True

    End If

Next