vba - 在 VBA 监视列表中查找特定文本

Question

VBA 监视列表允许您在逐行执行宏时监视变量。有没有办法扩展监视列表中包含的对象的所有属性并在它们中搜索特定文本？监视列表中的一行可以复制到记事本或 word 等中，但似乎没有办法导出监视列表的全部内容或一次搜索所有行。

我正在尝试确定 Excel 电子表格上对象的特定属性是什么。能够在监视列表中找到其中包含的文本将大大加快我的搜索速度。

Answer 1

在 VBA(基本上是 VB6)中最接近的是 TypeLib Information Object Library .有一些示例代码 here并且在
Self Inspection of VB6 UDTs .
您可以创建一个函数来扫描对象的成员以查找某些名称或值。该函数可以在调试时从即时窗口调用，并通过Debug.Print 输出结果。 .由于语言和环境的限制，您只能搜索公共(public)对象、类型和接口(interface)的公共(public)成员。
例子
出于我自己的好奇，我创建了一个简单的示例。它只进行浅层单级搜索，并且只查看成员名称，而不是值。您可能希望通读文档，以便可以查询成员的值(当它们是属性时)，并可能查看返回对象、集合或接口(interface)的成员的某种递归。
要运行此代码，您需要添加对 TypeLib Information 的引用。在 VBA 编辑器中。

Option Explicit

Sub FindMember(target As Object, searchString As String)
  Dim interface As TLI.InterfaceInfo
  Dim member As MemberInfo
  
  Set interface = TLI.InterfaceInfoFromObject(target)
  
  For Each member In interface.Members
    If InStr(1, member.Name, searchString, VbCompareMethod.vbTextCompare) > 0 Then
      Debug.Print "Found in " & interface.Name & " member " & member.Name
    End If
  Next
End Sub

Public Sub Test()
  Debug.Assert False
End Sub

然后我运行了测试子。当它在 Debug.Assert False 上暂停时我跑了我的 FindMember子在立即窗口中，得到下面的结果。 (您不必调试事件代码即可使用此功能，它可以在正常代码中使用，也可以在没有任何内容运行时从即时窗口中使用。我这样做是为了确保它可以在实时代码暂停时使用)。

FindMember Application, "ang"
Found in _Application member Range
Found in _Application member MaxChange
Found in _Application member MaxChange
Found in _Application member UILanguage
Found in _Application member UILanguage
Found in _Application member LanguageSettings

理论上，TypeLib 信息对象库应该能够查看对象浏览器可以查看的任何内容。兴趣点，尝试在您自己的项目中定义一个私有(private)子。您将看到对象浏览器无法查看它，但可以查看您在模块和(公共(public))类中定义的公共(public)成员。