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

Question

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

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

Private Sub CommandButton1_Click()

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

End Sub

但是，当我运行以下代码时，我收到运行时错误“ 9”“下标超出范围”错误：

Private Sub CommandButton2_Click()

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

结束子

当我尝试调试代码时，“ If Worksheets”行会突出显示。 我确定我在错误地引用了另一个复选框，但是我一直在寻找适当的方式来引用它，而没有运气。 预先感谢您的帮助！

Answer 1

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

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

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

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