VBA将UserForm作为参数传入窗体启动工具报错问题咨询

• VBA语法规定As New关键字后必须跟随编译阶段可确定的固定类型，不支持运行时通过变量动态指定类型，因此Dim Form As New FormType写法本身非法。
• 直接将窗体类名作为参数传入的写法不符合VBA类型校验规则，编译器无法识别RemovePart为合法的UserForm类型，因此抛出“用户定义类型未定义”错误。

方案1：字符串传参+CreateObject动态创建实例（适配原有调用逻辑） #

标准模块代码修改为：

Public Sub LaunchForm(MachID As String, FormClassName As String)
    Dim Form As Object
    ' 按传入的窗体类名创建新实例
    Set Form = VBA.CreateObject(FormClassName)
    
    With Form
        .MachineID = MachID
        .Show
    End With
End Sub

调用处代码需要传入「VBA项目名.窗体类名」格式的字符串，默认项目名为VBAProject时写法如下：

Private Sub RemovePart32_Click()
   LaunchForm "Machine32", "VBAProject.RemovePart"
End Sub

提示：如果修改过VBA项目名称，将字符串里的VBAProject替换为实际项目名即可，项目名可在VBA编辑器工程资源管理器中查看。
所有需要通过该方法启动的窗体，必须提前声明Public级别的MachineID属性/变量，否则会触发成员找不到的运行时错误。

方案2：传入窗体实例原型克隆 #

如果不想处理字符串拼接，可以先声明一个目标窗体的原型实例传入，通过原型复制生成新实例：

' 标准模块代码
Public Sub LaunchForm(MachID As String, FormPrototype As UserForm)
    Dim Form As UserForm
    ' 基于传入的窗体原型创建新实例
    Set Form = VBA.UserForms.Add(FormPrototype.Name)
    
    With Form
        .MachineID = MachID
        .Show
    End With
End Sub

调用处先创建一个空的目标窗体实例作为参数传入即可：

Private Sub RemovePart32_Click()
    Dim prototype As RemovePart
    Set prototype = New RemovePart
    LaunchForm "Machine32", prototype
    Unload prototype
End Sub

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