[讨论]浅谈代码名(Sheet1)在VBA中的使用

su45

Sheet1是什么？要回答这个问题，首先要搞清楚工作表。
       我们都知道，一个工作簿有多个工作表，可每张工作表都有两个名字，就不一定大家都知道了。一个是大家常用的工作表名称，也就是标签上显示的名称（如下图中右边的“567”、“abc”、“aabb”等）,它是显性的。另一个则是代码名，而这上名字在工作表窗口是看不到的（如见下图左边的Sheet1、Sheet2……、表一 ），代码名却是隐性的。那么这两个名字有什么区别呢？
       其实它们最大的区别就是可写性。
       工作表名可以随意修改，平常大家都是通过来标签名修改，或用VBA语句来修改，如Sheets(1).Name="abc" ，而且也能用VBA读取该表的工作表名，如 MySheet=Sheets(1).Name  。在VBA中的对象引用时一般是：Sheets("aabb")
       而代码名就不同了，虽然用VBA可以获得一个工作表的代码名，但却不能用VBA代码修改代码名。获取代码名的语句是：MySheet=Sheets(1).CodeName  ，但用Sheets(1).CodeName="abc" 修改代码名是不可以得，因为CodeName是只读的。那么代码名能不能修改呢？可以！但必须在VBA编辑器中通过属性来修改。图中的“表一”就是这样修改的。代码名在VBA中可直接引用，如：Sheet1、表一……。



      由此可见，代码名在一个工作簿中是相对稳定的，不会轻意被改变。
       需要说明的是，两种名字中修改任一个名字都不会影响另一个。即：修改工作表名，代码名不会变；修改代码名，工作表名不会变。
      了解了工作表的这两个名字的不同，我们在VBA编写时也就能正确使用工作表对象了。先看段代码：(见附件)
Sub aa()
    x=Sheets(1).[A1]       '用Sheets的index值确定工作表对象
    y=Sheet1.[A1]          '用工作表代码名来确定工作表对象
    z=Sheets("567").[A1]   '用工作表名来确定工作表对象
    r = 表一.[A1]          '用工作表代码名来确定工作表对象
    End Sub
表中[A1]的值是：12345
运行后，在一般情况下，x、y、z的值都是12345 ，但当你第一个表拖到最后时，运行的结果就不一样了，此时，x的值就不是12345了，而y和z的值仍是12345，原因是Sheets(1)是所有工作表中的所显示的第一张表；当你将名为“567”的表名改为“789”时，第三句代码就会出错，因为已经没有“567”这个表了。而y值仍是12345。
       通过实例，我们可得出以下结论表：

以上是本人体会，不妥之处望指正。


[attach]313265[/attach

zez

谢谢分享

LDSPM

简单而实际。受用

su45

下沉的这么快呀！

ladefoged

有些高深。。

哥们我暂时用不到这个。

友情up下。

su45

QUOTE:

以下是引用ladefoged在2007-12-27 2:19:51的发言：

有些高深。。

哥们我暂时用不到这个。

友情up下。

这个还“高深”？！这应是基础呀！还自认为通俗易懂。惭愧！

dxyss

真是高手，佩服佩服。

agstick

第三种，封装成dll时，不能识别。即前面不能加Application.Sheet1，不知有何法可解。

用Application.ThisWorkbook.VBProject.VBComponents("Sheet").Activate
可先激活在用ActiveSheet调用，但是较麻烦。

su45

QUOTE:

以下是引用agstick在2008-6-30 15:54:06的发言：

第三种，封装成dll时，不能识别。即前面不能加Application.Sheet1，不知有何法可解。

用Application.ThisWorkbook.VBProject.VBComponents("Sheet").Activate
可先激活在用ActiveSheet调用，但是较麻烦。

没封装过dll，但我想Application.Sheet1肯定是不行的，Sheet1的所属对象不是Application。希望版主能想到个好办法！

extyg

代码修改Codename,此代码需要 "信任对vb项目的访问":

Sub test()
    ThisWorkbook.VBProject.VBComponents(Sheets("Sheet1").CodeName).Name = "ChangeCodename"
End Sub