首页 > Excel专区 > Excel函数 >

excel利用VBA判断工作表是否存在

Excel函数 2022-02-13 20:34:38

下面的VBA代码可以判断当前Excel工作簿中的某个工作表是否存在,如果指定的工作表不存在,则以指定的工作表名新建一个工作表,如果指定的工作表已存在,则给出一个提示,并激活该工作表。下例中指定的工作表标签为“一月”,可根据实际进行修改。

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


标签: 不存在工作指定是否存在excel函数

office教程网 Copyright © 2016-2020 http://www.office9.cn. Some Rights Reserved. 苏ICP备20040415号-9