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

excel表格的基本操作-excel教程网

当前位置: 主页 > 高级教程 > vba >

用VBA判断工作表是否存在

时间:2014-12-04 13:42来源:excel 作者: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%
踩一下
(0)
0%

------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片