Excel VBA中Modules属性始终为空或报错的问题排查

核心结论 #

.Modules是Access VBA专属的模块集合属性，Excel VBA从始至终就没有官方支持这个属性，并非因安全原因被移除。

具体问题分析 #

• 属性归属差异：Access的Application.Modules和ThisWorkbook.Modules是官方文档明确收录的功能，用于管理数据库里的VBA模块；但Excel的对象模型里根本没有公开的.Modules属性，对象浏览器里看到的隐藏版本实际指向Sheets对象，属于内部遗留的未公开项，完全不具备Access中Modules的功能。
• 测试异常原因：
  • Test1里Application.Modules返回0：因为它实际关联的是工作表集合，无工作表时就返回0，就算有工作表，也和VBA模块无关；
  • Test2触发类型不匹配：ThisWorkbook对象在Excel里不存在Modules属性，调用未公开的内部属性必然报错；
  • Test3返回0的逻辑和Test1一致，本质操作的不是模块集合。

替代实现（导入文本模块） #

如果要在Excel里导入文本格式的VBA模块，用VBProject.VBComponents集合就能实现，示例代码：

Sub ImportModuleFromText()
    Dim targetModule As VBComponent
    ' 添加新的标准模块
    Set targetModule = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
    ' 从文本文件导入代码
    targetModule.CodeModule.AddFromFile "C:\你的模块文件路径.txt"
End Sub

注意：这个方法需要在信任中心开启"信任对VBA项目对象模型的访问"；要是想完全绕过信任中心，只能用非VBA原生的方式，但这类方法通常存在安全风险，不推荐。

内容的提问来源于stack exchange，提问作者DecimalTurn