7

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

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

4

1 回答 1

4

在 VBA（基本上是 VB6）中最接近的是TypeLib Information Object Library。这里和 VB6 UDTs 的自我检查中有一些示例代码。

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

例子

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

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

于 2013-11-08T19:12:32.147 回答