访问没有Form实例的VBA Userform控件

Question

我有一个朋友在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()表单上控件的名称（避免执行frmConfig.Form_Initialize() ）？

任何帮助非常感谢！

Answer 1

这是你在尝试什么？

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

IMP ：

1. 设置对Microsoft Visual Basic For Applications Extensibility的引用
2. 在Excel选项中，设置“信任访问VBA项目对象模型”

屏幕截图

跟进

由于这是一次性的事情，所以这样做

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