大家好，欢迎来到IT知识分享网。
在Excel中修改工作表名称有什么可讲的，在工作表标签上点右键，选择重命名就可以了，恭喜你答对了一半。
另一半呢？除了这个名称外，工作表还有另外一个名称——CodeName，想修改这个名字就没那么简单了。一个工作表竟然有两个名字，这不是添乱吗！？
先看看CodeName在哪里，既然叫做CodeName，肯定和Coding相关了，打开VBE窗口。
| 工作表名称 | 工作表CodeName |
|---|---|
| ShtName | Sheet1 |
| MySht | Sheet2 |
| Sheet3 | Sheet3 |
Sub ChangeCodeName() Const SHT_NAME = "MySht" Dim strNewCodeName As String Dim strOldCodeName As String strOldCodeName = Sheets(SHT_NAME).CodeName On Error Resume Next ' DEMO1 strNewCodeName = "Sheet1" ThisWorkbook.VBProject.VBComponents(strOldCodeName).Name = strNewCodeName If Err = 0 Then MsgBox "你要指定的CodeName已经存在", , "DEMO 1" Else MsgBox "指定的CodeName(" & strNewCodeName & ")已经存在", , "DEMO 1" End If ' DEMO2 Err.Clear strNewCodeName = "SheetNew" ThisWorkbook.VBProject.VBComponents(strOldCodeName).Name = strNewCodeName If Err = 0 Then MsgBox "工作表(" & SHT_NAME & ")的CodeName改为：" & strNewCodeName, , "DEMO 2" Else MsgBox "指定的CodeName(" & strNewCodeName & ")已经存在", , "DEMO 2" End If End Sub此时，需要借助VBProject.VBComponents来处理，如果该CodeName已经存在，将产生运行时错误。运行代码，结果如下：
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://haidsoft.com/142316.html
