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

来源:转载

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

分享给朋友:
您可能感兴趣的文章:
随机阅读: