excel 提示不能创建同名的工作表

显示全部楼层 · 2008-10-31 23:36:52

我编写了一段在同一个工作薄中创建工作表的程序，当按下按纽时会自动创建一张新的工作表，如何使得程序在运行的时候发现同名的工作表时发出错误提示？（假设我的工作薄有sheet1,sheet2,sheet3三个工作表，当我再创建一个sheet2时会出现一个错误提示）
哪位大虾能够提供源码为谢！

千问 · 2008-10-31 23:36:52

Sub 创建新表()'Nms是要创建新表的名称For i = 1 To Sheets.CountIf Sheets(i).Name = Nms Then 'Nms是要创建新表的名称
Dim Msg, Style, Title, Help, Ctxt, Response
Msg = Nms & "工作表已经存在，是否删除原工作表？"
' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2
' 定义按钮。
Title = "分科表复制信息"
' 定义标题。
Help = "DEMO.HLP"
' 定义帮...

千问 · 2008-10-31 23:36:52

'函数名:创建新工作表'参数:sname----新建表名'功能:检测表名是否存在,存在则提示,不存在则创建新表.'样例:addsheet("sheet2")Sub addsheet(sname)For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
If ws.Na...