如何用代码修改工作表名称

maditate

新建一个文件，通常默认工作有为sheet1\sheet2等几个工作表。这里的sheet1即是此工作表的标签即Name ，同时也是此工作表的名称。在代码窗口的左边看到的是sheet1(sheet1)等等。用Name可以修改工作表的标签，sheets("sheet1").name="新工作表"，其结果是你看到的此工作表的标签是  "新工作表"，而我想修改的是代码窗口左边看到的是成为  “新工作表（sheet1）”，即在属性窗口中的第一行名称中的修改。

回贴请看清标题，是用  “代码”  来修改

[ 本帖最后由 maditate 于 2009-9-6 15:54 编辑 ]

lb_bn

打开属性窗口，将名称改为你要的。

maditate

原帖由 lb_bn 于 2009-9-6 15:50 发表
打开属性窗口，将名称改为你要的。

请看清标题，是用代码来修改。

lb_bn

论坛里找的：

改變 Code name 需要在【指定引用項目】選取Microsoft Visual basics extensibilty Library，再用下列句子 Sub RenameSheetCodeName() On Error GoTo ErrChg With ActiveSheet '.Name = "Sheet1" 'This is name .Parent.VBProject.vbComponents(.CodeName).Properties("_CodeName") = "Sheet1" End With Exit Sub ErrChg: MsgBox Err.Number & ":=" & Err.Description, vbCritical End Sub

天空真蓝

用CodeName这个就可以修改了。

1. Activesheet.CodeName="Sheet10"

复制代码

爱情悬崖555

楼上的代码我试验过了，不对

爱情悬崖555

索然是很久以前的帖子了，但是在百度能搜索的出来，为了避免误导大家我跟下帖吧
用这句即可：
ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).Name = "sheet0"
另外，可以看这篇文章：
http://www.cnblogs.com/wangminbai/archive/2008/03/22/1118123.html

gf6181854

1. sheet2.Name="  "

复制代码

superdsk

Worksheets("你的那个sheet名字").Name="哥哥"

Robinhuang

这个为何要改?  name 就可以引用这个sheet啊