使用工作表变量而不是显式工作表名称，抛出“编译错误：找不到方法或数据成员”

Question

打开工作簿时，我基本上需要列出一张工作sheet ComboBox 。
如果我使用变量而不是工作表名称，则会出现此错误：

编译错误：找不到方法或数据成员

Private Sub Workbook_Open()
 
    ThisWorkbook.Sheets(2).Activate
 
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets(2)
 
    sh.ComboBox1.List = sh.Range("D3:D10").Value    'this cause Compile error
 
    ThisWorkbook.Sheets(2).ComboBox1.List = sh.Range("D3:D10").Value  'this works correctly
 
End Sub

那么，如何使用变量sh而不是显式工作表名称？

Answer 1

要么将其声明为Object - 因为工作表 class 没有Combobox1属性，或者使用工作表代号 - 例如Dim sh as Sheet2 。

Dim sh As Object
Set sh = ThisWorkbook.Sheets(2)
sh.ComboBox1.List = sh.Range("D3:D10").Value

或者：

Dim sh As Sheet2
Set sh = ThisWorkbook.Sheets(2)
sh.ComboBox1.List = sh.Range("D3:D10").Value

或者，将其保留为Worksheet变量并使用其OLEObjects属性按名称引用控件：

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets(2)

sh.OLEObjects("ComboBox1").Object.List = sh.Range("D3:D10").Value