运行-time error '424' 对象在对导入的用户窗体执行 userform.show 时需要

Question

我正在尝试导入一个用户表单，并在初始启动时显示它。用户窗体导入得很好，但是，在尝试显示它时，我不断收到运行时间错误“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

避免直接引用。

运行-time error '424' 对象在对导入的用户窗体执行 userform.show 时需要

Run-time error '424' Object Required when doing userform.show on imported userform

excel

vba

userform