VBA 删除工作表

WorkSheet.Delete：删除WorkSheet。

语法

Delete As Boolean

删除工作表时，会询问是否删除，如果选中是返回True；否则返回Flase。

示例

删除Sheet2表单。

Sub sub6()
  Dim wb As Workbook
  Dim flag As Boolean

  Set wb = Workbooks("小步教程1.xlsx")

  '删除工作表
  flag = wb.Worksheets("Sheet2").Delete
  
  If flag Then
    Debug.Print "continue"
    wb.Save
  End If

End Sub

运行效果：

删除时会进行提示

取消删除提示的方法

Application.DisplayAlerts设为Flase则取消提示。

通常，删除前设为False，删除后设为True。

Sub sub6_2()

  Dim wb As Workbook
  Dim flag As Boolean
  Set wb = Workbooks("小步教程1.xlsx")

  '删除除禁用警告
  Application.DisplayAlerts = False
  wb.Worksheets("Sheet4").Delete

  '删除后重新开启警告
  Application.DisplayAlerts = True

  Debug.Print "continue"
  wb.Save

End Sub

❮上一节 VBA 新建工作表下一节 VBA 隐藏工作表❯

第08章 VBA Excel对象

VBA 删除工作表

VBA 教程