将Dim'ing工作表作为工作表而不是变体时，“找不到方法或数据成员”

Question

考虑这个简单的例子。 在新工作表中创建一个名为Checkbox1的ActiveX复选框

请尝试以下两个子例程。 第一个没有编译“找不到方法或数据成员”错误，第二个工作正常。

为什么第一个例子不起作用？

Option Explicit

Sub DoesntWork()
Dim ws As Worksheet
Set ws = Worksheets(1)

MsgBox "Checkbox state is: " + CStr(ws.CheckBox1.Value)

End Sub

Sub Works()
Dim ws As Variant
Set ws = Worksheets(1)

MsgBox "Checkbox state is: " + CStr(ws.CheckBox1.Value)

End Sub

Answer 1

问题在于行ws.CheckBox1.Value 。 你不能像这样使用它，因此你得到了这个错误。 试试这个

Sub Sample()
    Dim ws As Worksheet
    Dim objole As OLEObject

    Set ws = Worksheets(1)

    Set objole = ws.OLEObjects("CheckBox1")

    MsgBox "Checkbox state is: " & objole.Object.Value
End Sub

如果您想直接使用Object，那么您也可以使用它

Sub Sample()
    Dim ws As Worksheet

    Set ws = Worksheets(1)

    MsgBox "Checkbox state is: " & Worksheets(ws.Name).CheckBox1.Value
End Sub