VBA 工作表的操作方法

新建表单

方法一：

Sub Test
Sheets.add after:=Sheets(Sheets.count) '在所有表单后面建新表单
Sheets(Sheets.count).name = “新表单” '给新建表单命名
End Sub

方法二：

Sub Test
Set Sht = Sheets.add '新建表单
Sht.name = “新表单” '给新建表单命名
End Sub

删除表单

Sub Test
Application.DisplayAlerts = False '禁止显示提示
ActiveSheet.Delete '删除当前表单
Application.DisplayAlerts = True '激活显示提示
End Sub

'如果要删除所有表单，可以用For Each Sht in Sheets 做个循环
Sub Test
Application.DisplayAlerts = False '禁止显示提示
For Each Sht in Sheets
If Sht.name <> “首页” then Sht.Delete '删除除表单名为首页之外的所有表单
Next
Application.DisplayAlerts = True '激活显示提示
End Sub

打开并关闭工作簿

Sub Test
set wb = workbook.open(“C:\1.xlsx”) '打开工作簿
arr = ActiveSheet.UsedRange ‘将已用区域载入数组，这中间可以编写需要执行的命令’
wb.close '工作簿关闭
End Sub