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

办公教程导读

收集整理了【excel利用VBA判断工作表是否存在】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含367字，纯文字阅读大概需要1分钟。

办公教程内容图文

下面的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