【问题标题】：Find specific text in VBA watch list在 VBA 监视列表中查找特定文本
【发布时间】：2013-09-22 02:35:19
【问题描述】：

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

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

【问题讨论】：

你见过对象浏览器吗？ F2
按照@mehow 的建议使用对象浏览器。不确定监视列表是否允许这种编程访问，但即使允许，如果您不知道如何使用对象浏览器，尝试自动化 VBE 将是一项非常艰巨的任务。
我可能错误地使用了对象浏览器，但我确实在寻找上下文中的属性。我确信我可以最终通过寻找和啄食来识别我正在寻找的属性，但与 CSS（以视觉方式定位项目）类似，您可以操纵一个对象以使其具有非常独特的特征并且然后确定它的位置。同样，我想将唯一文本放入一个字段（例如），然后使用该文本作为目标标识符来查找关联的属性。
我建议简单地询问该属性作为关于 SO 的问题——它甚至可能更快！ :) 据我所知，不可能以有意义的方式搜索活动对象的属性，因为 VBA 不支持Type Introspection。唯一的选择是按照其他人的建议通过对象浏览器搜索对象定义。
@Blackhawk 严格来说并不正确，正如我在下面的回答中，您可以看到在 VBA 中可以对公共对象和成员进行有限的类型自省，就像对象浏览器一样。使用 TypeLib 信息对象库。您可以通过该库以编程方式访问对象浏览器使用的信息。

标签： vba excel-2010 watch

【解决方案1】：

在 VBA（基本上是 VB6）中最接近的是 TypeLib Information Object Library。有一些示例代码here 和 Self Inspection of VB6 UDTs.

您可以创建一个函数来扫描对象的成员以查找某些名称或值。该函数可以在调试时从即时窗口调用，并通过Debug.Print 输出结果。由于语言和环境的限制，您只能搜索公共对象、类型和接口的公共成员。

示例

出于我自己的好奇，我创建了一个简单的示例。它只进行浅层单级搜索，并且只查看成员名称，而不是值。您可能需要通读文档，以便查询成员的值（当它们是属性时），并可能查看返回对象、集合或接口的成员的某种递归。

要运行此代码，您需要在 VBA 编辑器中添加对 TypeLib Information 的引用。

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

然后我运行了 Test 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 信息对象库应该能够查看对象浏览器可以查看的任何内容。兴趣点，尝试在您自己的项目中定义一个私有子。您会看到对象浏览器无法查看它，但可以查看您在模块和（公共）类中定义的公共成员。

【讨论】：