未findActiveXcombobox方法或数据成员

我有一个叫做Home的combobox（称为userBox ）。 它有select的选项之一，让我们说"User A" 。 所有我想要做的是分配"User A"stringusr ，但我不断收到编译错误：

未find方法或数据成员

 Sub fixPls() Dim row As Integer, col As Integer, usr As String, tbl As String, found As Boolean, k As Integer, payType As String Set wb = ThisWorkbook Set ws = wb.Sheets("Home") ws.Activate Application.DisplayAlerts = False Application.ScreenUpdating = False lastRow = Range("B16").End(xlUp).row usr = ws.userBox.Value tbl = ws.tblBox.Value payType = ws.tpBox.Value .... 

编辑：我尝试了一个新的工作簿中的虚拟程序，它的工作。 使用一个ActiveXcombobox，为什么不同？

 Sub blah() Dim rly As String rly = Sheets(1).ComboBox1.Value ThisWorkbook.Sheets(1).Cells(1, 10) = rly End Sub 

单元格J1返回在combobox中select的值。

Answer 1

如果是ActiveX控件，则需要使用OLEObjects集合来访问它：

 Debug.Print ws.OLEObjects("userBox").Object.Text