怎样用VB读取EXCEL中CHECKBOX控件的值?

Question

EXCEL作为数据源,包括一些客户基本信息,其中有一列是布尔型,Cells中添加了一个checkbox控件,那VB中用什么方法把这个checkbox的值读取出来呢?

Answer 1

问题是我在VB里不知道怎么读取EXCEL里的checkbox控件啊,用常规的方法调用EXCEL对象时根本就没有自动带出checkbox对象来

Answer 2

我前几天做一个用VB把Excel表的数据导入到数据库中， 不知道你说的checkbox对你有什么用？

Answer 3

使用OLEObjects对象，比如：    Dim i As Integer
    For i = 1 To objSheet.OLEObjects.Count
        If TypeName(objSheet.OLEObjects(i).Object) = "CheckBox" Then
            Debug.Print objSheet.OLEObjects(i).Object.Value
        End If
    Next

Answer 4

我用你这个方法试了,没用,这个OLEObjects对象里的Count的值为0,后面的Object也带不出来,是不是我的工程里还有什么东西没添加?

Answer 5

自己琢磨出来了读取Check Box值的方法,主要是这个Check Box是EXCEL窗体工具箱中的控件,所以不能直接用控件工具箱中的方法.
If InStr(1, objexcel.Shapes(i).Name, "Check Box") Then
   Debug.Print objexcel.Shapei).OLEFormat.object.Value
End If但现在我又遇到一个问题,怎么才能得到这个Check Box控件是在哪个CELLS里呢?因为我的Check Box顺序是无规则的.
希望高手们指点!
谢谢!