执行userform时需要运行时错误'424'对象。在导入的userform上显示

Question

我正在尝试导入用户表单，并在初次启动时显示它。 userform导入就很好，但是，当尝试显示它时，我不断收到运行时错误“ 424”对象必需。

这是我的代码：

Sub Workbook_Open()

Dim wkbTarget As Excel.Workbook
Dim szTargetWorkbook As String
Dim cmpComponents As VBIDE.VBComponents
Application.ScreenUpdating = False
szTargetWorkbook = ActiveWorkbook.Name
Set wkbTarget = Application.Workbooks(szTargetWorkbook)
Set cmpComponents = wkbTarget.VBProject.VBComponents

' IMPORT FORM
cmpComponents.Import "\\myserver.domain\Application\Forms\LOGIN.frm"

LOGIN.Show

End Sub

当我单击“错误”上的“结束”时，然后可以显示用户表单。

Answer 1

运行时（感谢@Comintern！）不喜欢您引用尚不存在的对象。您可以使用：

Userforms.add("LOGIN").Show

避免直接引用。