访问没有窗体实例的VBA用户窗体控件

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()）？

任何帮助非常感谢！

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扩展
2. 在Excel选项中，设置 “信任对VBA项目对象模型”

屏幕截图

随访

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

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