请问如何在VB中访问EXCEL中的checkBox控件啊？请大家帮帮忙，现谢了。

[lzywj998]

我想在vb中访问Excel中checkbox控件的值，但我不知道该如何得到这个Excel中的CheckBox对象。

[lzywj998]

你装的是不是office xp?我这里装的是office 2000,你的checkbox是怎么放上去的阿？怎么样子和我的不一样啊。

[SoHo_Andy]

是office XP ,代码可以运行么

应该没关系的

[lzywj998]

你可以上msn吗，上msn来聊可以吗，我已经加了你？代码可以运行，但你的checkbox和我的不一样，我用你的方法就不能运行

[SoHo_Andy]

简单实例
Private Sub Command3_Click()
Dim xlapp As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

xlapp.Caption = "test"
Set xlbook = xlapp.Workbooks.Open("d:\aa.xls")

xlapp.ActiveSheet.Shapes("Check Box 1").Select
MsgBox xlapp.Selection.Value

xlapp.Visible = True
End Sub

[lzywj998]

我试了一下不行啊。
这句(xlapp.ActiveSheet.Shapes("CheckBox1").Select)里的"CheckBox1"是代表什么啊，我取出来得值为什么是空的呢？

[SoHo_Andy]

你复制我的代码过去试试看行不行，不要加任何改动

这里的"Check Box 1",就是你Excel中的控件名
xlapp.ActiveSheet.Shapes("Check Box 1").Select

[lzywj998]

还是不行啊，根本就取不出来，这是不是跟Excel中的控件有什么关系阿？还有其它的方法没有咯。

[SoHo_Andy]

你是不是有些东西没说清楚

我的程序中只有这几行代码，引用Excel 10.0 ，运行成功

或者你留个邮箱，我把工程发给你试试

[lzywj998]

是不是我引得是Excel 9.0的缘故的啊？我的邮箱是[e-mail]

[lzywj998]

执行你上面的那段程序的xlapp.ActiveSheet.Shapes("CheckBox1").Select时候，提示说：select的方法失败，不知道为什么。

[SoHo_Andy]

已经发送，请接收

另外xlapp.ActiveSheet.Shapes("Check Box 1").Select
不要写成
xlapp.ActiveSheet.Shapes("CheckBox1").Select