将Excel工作表定义为Worksheet对象后无法访问特定控件的问题

这个问题我之前也碰到过，本质是VBA里通用Worksheet对象和特定工作表类的成员差异导致的，我给你拆解下原因和两种可行的解决办法：

为什么会出错？ #

你之前直接用Sheets("Voltest").cbFee能正常运行，是因为Sheets("Voltest")返回的是该工作表对应的具体类实例（不是通用的Worksheet对象），这个类里包含了cbFee这类ActiveX控件的成员。但当你把它赋值给Dim wsVoltest As Worksheet这种通用Worksheet变量时，变量只保留了所有工作表共有的属性/方法，丢失了该工作表特有的控件成员，所以直接访问wsVoltest.cbFee会报错。

解决办法 #

办法1：通过OLEObjects集合间接访问控件 #

不管变量是通用Worksheet还是特定工作表类，都可以通过工作表的OLEObjects集合来访问ActiveX控件，这是最通用的写法：

' 先定义工作簿和工作表对象
Dim wbMacros As Workbook
Set wbMacros = Workbooks("你的原工作簿名称.xlsm") ' 替换成实际的工作簿名
Dim wsVoltest As Worksheet
Set wsVoltest = wbMacros.Sheets("Voltest")

' 读取复选框的选中状态
Dim isFeeChecked As Boolean
isFeeChecked = wsVoltest.OLEObjects("cbFee").Object.Value

' 设置复选框的选中状态
wsVoltest.OLEObjects("cbFee").Object.Value = True

如果是表单控件（不是ActiveX），可以用Shapes集合：

wsVoltest.Shapes("cbFee").ControlFormat.Value = xlOn ' 选中

办法2：声明变量为特定的工作表类 #

如果你希望保持wsVoltest.cbFee这种简洁写法，可以把变量声明为该工作表对应的具体类：

1. 打开原工作簿的VBA编辑器，找到Voltest工作表的代码模块，查看它的代码名称（在属性窗口里的(Name)属性，默认可能是Sheet1，但如果你改了就是Voltest）。
2. 然后在代码里这样声明变量：

Dim wbMacros As Workbook
Set wbMacros = Workbooks("你的原工作簿名称.xlsm")

' 用具体的工作表类声明，而不是通用Worksheet
Dim wsVoltest As wbMacros.Voltest ' 如果代码名称是Voltest的话
Set wsVoltest = wbMacros.Sheets("Voltest")

' 现在可以直接访问cbFee了
wsVoltest.cbFee.Value = True

这种写法的好处是保留了原有的简洁调用方式，但需要确保你引用的是正确的工作表代码名称。

内容的提问来源于stack exchange，提问作者JDCAce