用VBA判断工作表是否存在_excel表格的基本操作-excel教程网

用VBA判断工作表是否存在

时间:2014-12-04 13:42 来源:excel.org.cn 作者:admin 点击:次

下例中指定的工作表标签为“一月”，可根据实际进行修改。

    Sub IsSheetExist()
    Dim ws As Worksheet
    Dim sName As String
    sName = "一月" '指定工作表
    On Error Resume Next
    Set ws = Sheets(sName)
    If ws Is Nothing Then '指定的工作表不存在
      Sheets.Add.Name = sName
    Else '指定的工作表已存在
      MsgBox "“" & sName & "”工作表已存在。"
      ws.Activate
    End If
    End Sub (责任编辑：admin)