使用Worksheet变量替代显式工作表名触发编译错误：未找到方法或数据成员

问题原因 #

你遇到的编译错误是因为Worksheet对象本身并没有ComboBox1这个直接成员。直接使用ThisWorkbook.Sheets(2).ComboBox1能运行，是因为VBA会隐式在工作表的OLEObjects集合中查找对应名称的ActiveX控件，但当你用Worksheet类型变量时，必须明确指定控件的访问路径。

解决方案 #

根据你的控件类型（ActiveX控件，因为你用到了List属性），可以通过以下两种方式修正代码：

方法1：通过OLEObjects集合访问控件 #

Private Sub Workbook_Open()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets(2)
    
    ' 通过OLEObjects获取控件对象，再访问其List属性
    sh.OLEObjects("ComboBox1").Object.List = sh.Range("D3:D10").Value
End Sub

方法2：将变量声明为具体的工作表类型（适用于已命名的工作表） #

如果你知道工作表的代码名称（可在VBA编辑器属性窗口查看，默认是Sheet1、Sheet2这类），可以把变量声明为该工作表的类类型，这样就能直接访问控件：

Private Sub Workbook_Open()
    Dim sh As Sheet2 ' Sheet2是工作表的代码名称，不是标签名
    Set sh = ThisWorkbook.Sheets(2)
    
    sh.ComboBox1.List = sh.Range("D3:D10").Value
End Sub

补充说明 #

如果你的ComboBox是表单控件（Form Control），则无法使用List属性，需要用AddItem方法逐个添加选项，或者通过控件的LinkedCell等方式处理，但从你的代码逻辑来看，应该是ActiveX控件。

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