3

我有一个朋友在 Excel 中使用 VBA 项目。这个项目有很多表单，在使用电子表格时会弹出并执行各种功能。其中一些具有复杂的Form_Initialize方法，这些方法依赖于已经存在的其他事物（当项目按预期使用时，这不是问题）。

我们正在尝试打印出应用程序中每个表单上每个控件的名称。我们的问题是该VBA.UserForms集合只包含已经实例化的表单，并且我们无法实例化所有表单而不Form_Initialize执行它们的方法。

例如：

For Each f In VBA.UserForms
    Debug.Print f.Name
    Debug.Print "----------------------"

    For Each c In f.Controls
        Debug.Print c.Name
    Next c
Next f

如果没有使用/加载任何表单，则不执行任何操作。这段代码：

For Each c in frmConfig.Controls
    Debug.Print c.Name
Next c

首先执行frmConfig.Form_Initialize()，然后循环通过表单上的控件打印它们的名称。这会崩溃，因为在此表单可用之前需要发生的事情尚未发生。

是否可以在不实例化表单的情况下获取表单上的控件名称（避免执行frmConfig.Form_Initialize()）？

非常感谢任何帮助！

4

1 回答 1

2

这是你正在尝试的吗？

Option Explicit

Sub FindObjects()
    Dim vbc As VBIDE.VBComponent
    Dim frm As Object
    Dim Ctrl As MSForms.Control

    For Each vbc In ThisWorkbook.VBProject.VBComponents
        If vbc.Type = vbext_ct_MSForm Then
            With VBA.UserForms
                On Error Resume Next
                Set frm = .Add(vbc.Name)
                Debug.Print "Found userform :" & vbc.Name
                If Err.Number = 0 Then
                    For Each Ctrl In frm.Controls
                        Debug.Print "Controls in Userform " & vbc.Name & _
                        " - " & Ctrl.Name
                    Next Ctrl
                End If
                On Error Go To 0
            End With
        End If
    Next vbc
End Sub

小鬼：

  1. 为应用程序可扩展性设置对 Microsoft Visual Basic 的引用
  2. 在 Excel 选项中，设置“信任对 VBA 项目对象模型的访问”

截屏

在此处输入图像描述

跟进

由于这是一次性的事情，请执行此操作

  1. 打开 VBA 项目
  2. 按CTRL+F
  3. 按照下面的屏幕截图所示进行操作，然后运行代码。
  4. 一旦你得到你需要的东西，关闭文件而不保存

在此处输入图像描述

于 2013-04-04T11:39:40.580 回答