实施例

Question

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

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

Answer 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

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

在VBA观察列表中查找特定文本

1 个答案:

实施例