excel - VB6/VBA 迭代所有预先声明的类对象

Question

我可以动态迭代所有预声明的对象吗？

这是我已经处理了一段时间的问题。理想情况下，我会遍历所有类并检查它们是否实现了某些接口(interface)。如果他们这样做，则对其执行一些代码。

目前我必须提供一些要执行的类数组，例如:

ClassesToCheck = Array(Task_Class1,Task_Class2,Task_Class3,Task_Class4, ...)

Dim klass as object
For each klass in ClassesToCheck
  if klass.implements(ITask) then
    Call klass.execute()
  end if
next

在理想的世界中，我会做这样的事情:

Dim klass as object
For each klass in GET_PREDECLARED_CLASS_OBJECTS_FROM_MEMORY()
  if klass.implements(ITask) then
    Call klass.execute()
  end if
next

我不认为有任何简单的方法可以做到这一点，但我对 VBA 运行时内存做了一些研究/探索...我认为这应该是可能的，并且已经找到了一些使用 VB6 的示例然而，遗憾的是，VBA6.DLL 并未在 Microsoft Office 中原生提供。然而，VBA6.DLL 可能“编译到”Microsoft Office 本身中。因此，方法/字段也应该保存在内存中的某个地方，你只需要知道它们在哪里使用指针数学(是我的理论)

我想没有人有过这方面的经验吗？

Answer 1

VB_PredeclaredId 属性使您的 Class1 标识符自动通过该名称引用全局范围的对象，例如UserForm1 是一个类模块的名称(一个带有设计器的模块，但这部分无关紧要)， 它是 VBA 在运行时生成的全局 automagic 对象的名称，并且编译器知道 Class1.DoStuff 是合法的，因为它知道 Class1 已将 VB_PredeclaredId 设置为 True .

感谢 Wayne Phillips (vbWatchDog) 和其他贡献者的工作和贡献，Rubberduck taps into this internal API .

如链接代码 (C#) 所示，您可以通过将指针转换为结构体，从其 References 集合中获取 VBA 项目的 ITypeLib使用这个特定的布局:

[StructLayout(LayoutKind.Sequential)]
internal struct VBEReferencesObj
{
    IntPtr _vTable1;     // _References vtable
    IntPtr _vTable2;
    IntPtr _vTable3;
    IntPtr _object1;
    IntPtr _object2;
    public IntPtr _typeLib; // <--- here's the pointer you want
    IntPtr _placeholder1;
    IntPtr _placeholder2;
    IntPtr _refCount;
}

在 VBA 中，这将是用户定义的类型，可能如下所示:

Public Type VBEReferencesObj
    vTable1 As LongPtr
    vTable2 As LongPtr
    vTable3 As LongPtr
    object1 As LongPtr
    object2 As LongPtr
    typelibPointer As LongPtr '<~ only this one matters
    placeholder1 As LongPtr
    placeholder2 As LongPtr
    refCount As LongPtr
End Type

获得指向 ITypeLib 的指针后，您应该能够获取 VBA 项目的类型库。

从那里，您需要迭代类型，并从那里确定类型的 TYPEFLAGS 是否已打开 TYPEFLAG_PREDECLID (我们这样做 here )。

显然，这是大量极其容易崩溃的试错编码，我不建议这样做，但无论如何，这是可能的 em>，如果不建议的话。

欢迎学习Rubberduck.VBEEditor.ComManagement.TypeLibs命名空间。