Question

在excel中，怎么通过VBA代码读取工作表中控件的值（不是窗体控件）？

像Worksheet(1).OLEObject(1).Object.Text（或.value）能否读取第一个工作表中第一个控件的文本（或值）？在调试中提示worksheet 中找不到OLEObject对象。请高手指点

Answer 1

OLEObject 对象
请参阅 属性 方法 事件 特性
Sheets
OLEObjects (OLEObject)
Borders (Border)
Interior

返回工作表中一个 ActiveX 控件或者一个链接式或内嵌 OLE 对象。OLEObject 对象是 OLEObjects 集合的成员。OLEObjects 集合中包含单张工作表中的所有 OLE 对象。

OLEObject 对象的用法
可用 OLEObjects(index) 返回一个 OLEObject 对象，其中 index 为对象名称或编号。下例删除 Sheet1 中的 OLE 对象一。

Worksheets("sheet1").OLEObjects(1).Delete
下例删除名称为“ListBox1”的 OLE 对象。

Worksheets("sheet1").OLEObjects("ListBox1").Delete
说明
工作表上的 ActiveX 控件的 OLEObject 对象的属性和方法是相同的。这样，通过使用控件名称，Visual Basic 代码即可访问这些属性。下例选中复选框控件“MyCheckBox”，将其设为与活动单元格对齐，然后激活此控件。

With MyCheckBox
.Value = True
.Top = ActiveCell.Top
.Activate
End With
有关详细信息，请参阅在工作表上使用 ActiveX 控件。

追问

非常感谢你的意见，现在要解决的问题是怎么读取控件的值或文本？

追答

代码贴出来大家研究一下，另外Worksheet集合应该写成Worksheets(1).吧

Answer 2

Worksheet(1).后面直接根控件名称即可。
如Worksheet(1).textbox1.text即可取得值