[已解决]sheet名称的问题

爱疯

1. 
   
2. Sub test2()
   
3.     Dim sh As Worksheet
   
4.     For Each sh In Worksheets
   
5.         If sh.CodeName = "Sheet1" Then
   
6.             MsgBox sh.Name
   
7.             End
   
8.         End If
   
9.     Next sh
   
10. End Sub
    

复制代码

test2.rar (6.64 KB, 下载次数: 7)

2011-8-29 15:05 上传

点击文件名下载附件
是这个意思吗

云龙

回复 爱疯 的帖子

谢谢版主，应该是最佳答案了
您说这就是叫做codename吗?

云龙

回复 爱疯 的帖子

可不可以这样理解
name就是工作表名
index就是sheets（x）
codename就是sheet1，sheet2。。。。

爱疯

云龙 发表于 2011-8-29 15:14
回复 爱疯 的帖子

可不可以这样理解

是这样的