Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel &引用;调用的对象已与其客户端断开连接;通过在多页中添加页面_Excel_Vba - Fatal编程技术网

Excel &引用;调用的对象已与其客户端断开连接;通过在多页中添加页面

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

当我尝试在multipage1中添加页面时,它可以工作,但在multipage2中不起作用,它们在一个userform中组合在一起。有人能告诉我问题出在哪里吗

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的代码无关。当同一用户窗体上有两个多页控件时,会发生此错误。这可能是某种缺陷。一种可能的解决方法可能是创建两个用户表单,每个表单都有一个多页控件。然后,只需根据需要隐藏和取消隐藏用户表单。谢谢你的建议,我创建了更多的用户表单,而且效果很好:)太好了,很高兴它成功了。干杯