VBA验证工作表是否存在

发布时间:2017-1-24 21:05:01 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"VBA验证工作表是否存在 ",主要涉及到VBA验证工作表是否存在 方面的内容,对于VBA验证工作表是否存在 感兴趣的同学可以参考一下。

使用VBA验证工作表是否存在

=============================================================

代码区域

=============================================================

Sub 判断工作表是否存在()Dim wk As WorkbookDim wt As WorksheetDim worksheetname As StringDim i As IntegerDim count As IntegerDim flag As Boolean worksheetname = "产品表" '定义要查找的工作表名称 Set wk = Workbooks(1)    '获取第一个工作簿 count = wk.Worksheets.count '获取工作表数目 flag = False For i = 1 To count        '顺序查找工作表名  Set wt = wk.Worksheets(i)  If wt.Name = worksheetname Then '判断工作表名是否相同  flag = True  Exit For  End If  Next  If flag Then   MsgBox "工作表集合中存在" & worksheetname, vbOKOnly, "判定工作表是否存在"   Else   MsgBox "工作表集合中不存在" & worksheetname, vbCritical, "判定工作表是否存在" End If Set wk = Nothing '释放内存 Set wt = NothingEnd Sub

执行结果:(存在时)

执行结果:(不存在时)

实例附件下载地址

上一篇:MongoDB学习笔记四—增删改文档下

相关文章

相关评论