如何在运行时为MultiPage添加页面且避免运行时错误与对象断开错误

我刚仔细看了你的代码和遇到的两个报错，这俩问题本质上都是因为在控件状态频繁变更的过程中操作Pages集合导致的COM对象连接不稳定，或者控件未完全就绪就执行了添加操作。下面给你拆解原因和修复方案：

报错原因分析 #

1. "Object has disconnected from the Clients"：如果是动态创建MultiPage后出现这个错误，大多是因为没有正确保留对象引用，或者控件还没完成初始化就操作它的子元素。不过你这里是预先创建的MultiPage，主要问题还是下面的第二个错误。
2. "Run-Time error, Method Add of object Pages failed"：你的循环里反复切换两个MultiPage的Visible、Enabled和SetFocus，每次切换都会触发控件的重绘和状态重置，此时控件还处于未完全就绪的状态，调用Pages.Add自然会失败。另外，代码里没有显式声明变量类型，也可能导致对象引用的隐式错误。

修复后的测试代码 #

Option Explicit ' 强制变量声明，避免隐式类型错误

Private Sub UserForm_Initialize()
    Dim page_num As Integer
    Dim mp1 As MSForms.MultiPage
    Dim mp2 As MSForms.MultiPage
    Dim newPage As MSForms.Page ' 声明Page对象，避免索引访问错误
    
    ' 初始化对象引用
    Set mp1 = Me.MultiPage1
    Set mp2 = Me.MultiPage2
    
    ' 先设置两个MultiPage的初始状态（都隐藏，避免操作时重绘干扰）
    mp1.Visible = False
    mp1.Enabled = False
    mp2.Visible = False
    mp2.Enabled = False
    
    ' 批量给mp1添加10个页面
    For page_num = 0 To 9
        Set newPage = mp1.Pages.Add ' 直接捕获新添加的Page对象
        newPage.Caption = CStr(page_num)
    Next page_num
    
    ' 批量给mp2添加10个页面
    For page_num = 0 To 9
        Set newPage = mp2.Pages.Add
        newPage.Caption = CStr(page_num)
    Next page_num
    
    ' 最后设置默认显示的MultiPage（比如默认显示mp2）
    mp2.Visible = True
    mp2.Enabled = True
    mp2.SetFocus
    mp1.Visible = False
    mp1.Enabled = False
End Sub

关键修复点说明 #

• 添加Option Explicit：强制所有变量必须声明类型，避免因隐式类型转换导致的对象引用错误。
• 先批量添加页面，再切换状态：不要在循环里反复切换控件的可见性和焦点，而是先完成所有页面的添加操作，最后再设置哪个MultiPage显示。这样可以避免控件在状态变更过程中处理Pages集合的冲突。
• 捕获新添加的Page对象：直接用Pages.Add返回的Page对象设置Caption，比用索引访问更可靠，避免因Pages集合动态变化导致的索引越界问题。
• 明确声明对象类型：把mp1和mp2声明为MSForms.MultiPage，确保VBA能正确识别控件类型，避免对象引用的模糊性。

切换按钮的补充代码 #

如果你需要通过按钮切换两个MultiPage的显示，只需要在按钮的Click事件里写状态切换逻辑即可，不需要再操作Pages集合：

Private Sub btnShowMP1_Click()
    Me.MultiPage1.Visible = True
    Me.MultiPage1.Enabled = True
    Me.MultiPage1.SetFocus
    Me.MultiPage2.Visible = False
    Me.MultiPage2.Enabled = False
End Sub

Private Sub btnShowMP2_Click()
    Me.MultiPage2.Visible = True
    Me.MultiPage2.Enabled = True
    Me.MultiPage2.SetFocus
    Me.MultiPage1.Visible = False
    Me.MultiPage1.Enabled = False
End Sub

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