在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://51itzy.com/kjqy/57328.html