VBA验证工作表是否存在

发布时间:2016-12-31 7:45:45编辑: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学习笔记四—增删改文档下
下一篇:div css 自适应

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。

好贷网好贷款