我正在尝试导入用户表单,并在初始启动时显示它。 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
当我在错误上单击结束时,我可以显示用户表单就好了。
运行时(感谢@Comintern!)不会喜欢你引用一个尚不存在的对象。你可以使用:
Userforms.add("LOGIN").Show
避免直接引用。