VBA.UserForms.Add能否加载其他工作簿窗体？正确语法是什么？

核心结论 #

VBA.UserForms.Add()仅支持加载当前代码所在VBA项目（即当前工作簿）中的用户窗体，无法直接通过[工作簿名]!窗体名这类语法跨工作簿调用——这也是你触发Runtime error 424: Object required的根本原因：该方法的参数仅接受当前项目内存在的窗体类名称，完全不支持带工作簿前缀的格式。

跨工作簿加载用户窗体的两种可行方法 #

方法1：通过VBA项目引用（类型安全，推荐） #

1. 启用必要信任设置：打开Excel选项 → 信任中心 → 信任中心设置 → 宏设置，勾选「信任对VBA项目对象模型的访问」，重启Excel生效。
2. 添加项目引用：打开VBE（Alt+F11），点击「工具」→「引用」，在列表中找到目标工作簿的VBA项目（默认名称为VBAProject，建议提前修改为唯一名称，比如Book1_Project），勾选后确定。
3. 调用代码示例：

Public Sub ShowCrossWorkbookForm()
    Dim uf As Book1_Project.UserForm1 '使用引用的项目名称+窗体类名
    Set uf = New Book1_Project.UserForm1
    uf.Show vbModal
    Set uf = Nothing
End Sub

注意：目标工作簿必须处于打开状态，否则引用会失效。

方法2：动态访问目标工作簿的VB组件（无需提前引用） #

同样需要先启用「信任对VBA项目对象模型的访问」，然后通过工作簿对象直接访问其VB组件创建窗体实例：

Public Sub ShowFormFromAnotherWB(WBNameOrPath As String, FormName As String)
    Dim targetWB As Workbook
    '尝试获取已打开的工作簿，若未打开则自动打开
    On Error Resume Next
    Set targetWB = Workbooks(WBNameOrPath)
    If Err.Number <> 0 Then
        Set targetWB = Workbooks.Open(WBNameOrPath)
    End If
    On Error GoTo 0
    
    If Not targetWB Is Nothing Then
        Dim uf As Object
        '创建目标窗体的实例
        Set uf = targetWB.VBProject.VBComponents(FormName).CreateInstance
        uf.Show vbModal
        Set uf = Nothing
        '可选：根据需求决定是否关闭工作簿
        'targetWB.Close SaveChanges:=False
    End If
End Sub

'调用示例
ShowFormFromAnotherWB "C:\Users\[username]\Documents\Book1.xlsm", "UserForm1"

对你原有代码的修正说明 #

你原有代码中的UserForms.Add(FormName)只能识别当前项目内的窗体名称，因此所有带工作簿前缀的参数都会报错。如果要让该函数支持跨工作簿，可以修改为接受工作簿参数，结合方法2实现：

Public Sub ShowFormByName(FormName As String, Optional WB As Workbook = Nothing, Optional Modal As VBA.FormShowConstants = vbModal)
    Dim ufs As Object
    Dim uf As Object
    Set ufs = VBA.UserForms
    
    '先检查当前已加载的窗体
    For Each uf In ufs
        If StrComp(uf.Name, FormName, vbTextCompare) = 0 Then
            uf.Show Modal
            Exit Sub
        End If
    Next uf
    
    '如果指定了外部工作簿，使用动态创建方式
    If Not WB Is Nothing Then
        Set uf = WB.VBProject.VBComponents(FormName).CreateInstance
        uf.Show Modal
    Else
        '否则加载当前工作簿的窗体
        Set uf = ufs.Add(FormName)
        uf.Show Modal
    End If
    Set uf = Nothing
End Sub

'调用示例（加载Book1.xlsm的UserForm1）
ShowFormByName "UserForm1", Workbooks("Book1.xlsm")

内容的提问来源于stack exchange，提问作者spinjector