Sub vba删除工作表() Dim ws As Worksheet Dim str As String str = Application.InputBox(prompt:="输入需要删除的工作表:", Title:="删除工作表", Default:="sheet1", Type:=2) On Error GoTo back Set ws = Worksheets(str) Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True Exit Sub back: MsgBox "您要删除的工作表不存在!" End Sub |
|