引用另一个打开的工作簿中的复选框

Question

我试图在另一个工作表中引用ActiveX复选框控件的值。我的目标是使当前工作簿中的复选框的值与另一个打开的工作簿中的值相同。

我可以在不同工作表的同一工作簿中的两个复选框之间执行此操作：

Private Sub CommandButton1_Click()

If Sheets("Sheet2").Box2.Value = True Then
    Box1.Value = True
Else: Box1.Value = False
End If

End Sub

但我收到了运行时错误＆＃39; 9＆＃39; ＆＃34;下标超出范围＆＃34;运行以下代码时出错：

Private Sub CommandButton2_Click()

If Worksheets("Book2").OLEObjects("Box3").Value = True Then
    Box1.Value = True
Else: Box1.Value = False
End If

End Sub

＆＃34;如果是工作表＆＃34;我尝试调试代码时突出显示该行。我确定我错误地引用了另一个复选框，但是我已经搜索了高低不正确的方式来参考这个没有任何运气。提前感谢您的帮助！

Answer 1

If Worksheets("Book2").OLEObjects("Box3").Value = True Then

“Book2”不是工作表的名称，可能是另一本书的名称。在这种情况下：

If WorkBooks("Book2").Worksheets(1).OLEObjects("Box3").Value = True Then

..或者使用另一本书中工作表的名称。