大家好，欢迎来到IT知识分享网。

大家好,最近推出的内容是”VBA信息获取与处理”中的部分内容，这套教程面向中高级人员，涉及范围更广，实用性更强，现在的内容是第三个专题”VBA代码的分类及如何利用代码自动关闭空闲文件”的内容。

第二节 工作簿和工作表模块代码（Workbook And Sheet Modules）

工作簿和工作表模块是直接绑定到工作簿对象和每个工作表对象的特殊模块。工作簿的模块称为ThisWorkbook，每个工作表模块的名称与其所属工作表的名称相同。这些模块应该包含对象的事件过程，仅此而已。如果将事件过程放在标准代码模块中，Excel将找不到它们，因此不会执行它们。如果将普通过程放在工作簿或工作表模块中，则在不完全限定引用的情况下无法调用它们。

1 工作簿和工作表对象的名称的获得

工作簿和工作表模块有一个名为CodeName的属性，这是VBA内部了解对象的方式。默认情况下，工作簿代码名为ThisWorkbook，对于工作表，每个工作表模块都是Sheet1、Sheet2等，对于图表，则是Chart1、Chart2等。在VBA代码中可以像使用普通变量一样使用这些名称。例如：

Sub MYNZA()

MsgBox ThisWorkbook.Name

MsgBox Sheet1.Name

End Sub

代码运行结果：

这很有用，因此您可以始终引用工作表，例如，即使用户从Excel重命名工作表。例如，如果有一个名为”Sheet1″的工作表，则其名称和代码名都将为Sheet1。但如果用户将工作表重命名为MySheet，则代码

Msgbox Worksheets(“Sheet1”).Name

将失败，因为不再有名为Sheet1的工作表。但是，代码

Msgbox Sheet1.Name

将继续工作，因为VBA仍通过其代码名Sheet1知道该工作表。

2 工作簿和工作表对象的重命名

在上面的讲解中我们了解到：工作簿的模块称为ThisWorkbook，每个工作表模块的名称与其所属工作表的名称相同。那么是否可以更改这个名称呢？

可以更改ThisWorkbook或Sheet对象的代码名。若要更改模块的代码名，可在”项目资源管理器”窗口中选择该模块，然后打开”属性”窗口（F4或从”视图”菜单中），更改”名称”属性。这里需要注意一点如果在这些模块中已经有了代码之后再执行此操作，可能会遇到问题。下面结合两个例子来说明：

a 更改ThisWorkbook对象的代码名，这时ThisWorkbook将继续引用工作簿对象。例如，如果将ThisWorkbook对象的代码名更改为MyWorkbook，则以下两行代码都将工作：

Sub MYNZB()

‘更改名称ThisWorkbook为MyWorkbook

MsgBox ThisWorkbook.Name

MsgBox MyWorkbook.Name

End Sub

代码截图：

代码的运行：

b 如果将Sheet1对象的代码名更改为MySheet1，由于不再有代号为Sheet1的工作表对象，则以下代码将失败

Sub mynzc()

MsgBox Sheet1.Name

End Sub

运行结果：

c 此外，还可以使用VBA过程更改对象的代码名。例如：要将代码名为Sheet2的工作表的代码名更改为NewCodeName，请使用

ThisWorkbook.VBProject.VBComponents(“Sheet1”).Name= “NewCodeName”

要将MyWorkbook代码名改为NewWBName可以使用下面代码：

ThisWorkbook.VBProject.VBComponents(“MyWorkbook”).Name = “NewWBName”

全部代码如下:

Sub mynzd()

ThisWorkbook.VBProject.VBComponents(“Sheet1”).Name = “NewCodeName”

ThisWorkbook.VBProject.VBComponents(“MyWorkbook”).Name = “NewWBName”

End Sub

代码截图：

运行结果：

大家要注意上面的操作，可能会导致很多问题，所以除非我们事先知道自己在做什么，而且必须要做这种更改，否则不要进行这样的操作。

例如：当我们更改ThisWorkbook对象的代码名，下面的代码：

Msgbox ThisWorkbook.Name 将继续工作，但

Msgbox ThisWorkbook.VBProject.VBComponents(“ThisWorkbook”).Name

将失败，因为没有代码名为ThisWorkbook的对象，除非有一个ThisWorkbook的对象在对象浏览器中存在。

本节知识点回向：工作薄和工作表模块有什么特点？如何更改他们的名称？更改名称时要注意哪些问题？

本节内容详细代码”参考003工作表.XLSM”

VBA是利用Office实现自己小型办公自动化的有效手段，这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！学习VBA是个过程，也需要经历一种枯燥的感觉，如太白诗云：众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。

“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，用一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。学习时微而无声，利用时则巨则汹涌。

我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了六部VBA专门教程。

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；

第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。

第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。

第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。

第六套教程：《VBA信息获取与处理》，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。如需要可以可以WeChat: NZ9668

学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。这些教程也是为帮助大家起航，助上我自己之力，我的上述教程是我多的经验的传递，大家可以根据以上资料1,3,2,6,5或者是4,3,2,6,5的顺序逐渐深入的逐渐学习。

每一分收获都是成长的记录，怎无凭，正是这种执着，成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着：

浮云掠过，暗语无声，

唯有清风，惊了梦中啼莺。

望星，疏移北斗，

奈将往事雁同行。

阡陌人，昏灯明暗，

忍顾长亭。

多少VBA人，

暗夜中，悄声寻梦，盼却天明。

怎无凭！

分享成果，随喜正能量