Excel &引用;调用的对象已与其客户端断开连接;通过在多页中添加页面
当我尝试在multipage1中添加页面时,它可以工作,但在multipage2中不起作用,它们在一个userform中组合在一起。有人能告诉我问题出在哪里吗Excel &引用;调用的对象已与其客户端断开连接;通过在多页中添加页面,excel,vba,Excel,Vba,当我尝试在multipage1中添加页面时,它可以工作,但在multipage2中不起作用,它们在一个userform中组合在一起。有人能告诉我问题出在哪里吗 If MultiPage1.Visible = True And OberbaudickeRStO.ComboBox1.Text = Label2.Caption Then With OberbaudickeRStO.MultiPage1 For i = 1 To anzahl .Pages.Add
If MultiPage1.Visible = True And OberbaudickeRStO.ComboBox1.Text = Label2.Caption Then
With OberbaudickeRStO.MultiPage1
For i = 1 To anzahl
.Pages.Add
.Pages(MultiPage1.Value).Controls.Copy
Set MyPage = MultiPage1.Pages.Item(i)
MyPage.Paste
For Each ctl In MultiPage1.Pages(i).Controls
Select Case TypeName(ctl)
Case "TextBox"
ctl.Text = ""
End Select
Next ctl
Next i
End With
End If
If MultiPage2.Visible = True And OberbaudickeRStO.ComboBox1.Text = Label13.Caption Then
With OberbaudickeRStO.MultiPage2
For i = 1 To anzahl
.Pages.Add
.Pages(MultiPage2.Value).Controls.Copy
Set MyPage = MultiPage2.Pages.Item(i)
MyPage.Paste
For Each ctl In MultiPage2.Pages(i).Controls
Select Case TypeName(ctl)
Case "TextBox"
ctl.Text = ""
End Select
Next ctl
Next i
End With
End If
我完全可以重现这个错误。它似乎与MultiPage2的代码无关。当同一用户窗体上有两个多页控件时,会发生此错误。这可能是某种缺陷。一种可能的解决方法可能是创建两个用户表单,每个表单都有一个多页控件。然后,只需根据需要隐藏和取消隐藏用户表单。谢谢你的建议,我创建了更多的用户表单,而且效果很好:)太好了,很高兴它成功了。干杯