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

如果你有Excel任何问题，请留言或者加我们qq 24119011 让我们知道。谢谢

用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 指定的工

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

    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)

顶一下

(0)

踩一下

(0)

------分隔线----------------------------