7451
社区成员
- 主页
请问如何在VB中访问EXCEL中的checkBox控件啊？请大家帮帮忙，现谢了。
我想在vb中访问Excel中checkbox控件的值，但我不知道该如何得到这个Excel中的CheckBox对象。
...全文
请发表友善的回复…
发表回复
SoHo_Andy 2003-12-22
已经发送，请接收
另外xlapp.ActiveSheet.Shapes("Check Box 1").Select
不要写成
xlapp.ActiveSheet.Shapes("CheckBox1").Select
另外xlapp.ActiveSheet.Shapes("Check Box 1").Select
不要写成
xlapp.ActiveSheet.Shapes("CheckBox1").Select
lzywj998 2003-12-22
执行你上面的那段程序的xlapp.ActiveSheet.Shapes("CheckBox1").Select时候，提示说：select的方法失败，不知道为什么。
lzywj998 2003-12-22
是不是我引得是Excel 9.0的缘故的啊？我的邮箱是zhiyong.li@powerise.com.cn
SoHo_Andy 2003-12-22
你是不是有些东西没说清楚
我的程序中只有这几行代码，引用Excel 10.0 ，运行成功
或者你留个邮箱，我把工程发给你试试
我的程序中只有这几行代码，引用Excel 10.0 ，运行成功
或者你留个邮箱，我把工程发给你试试
lzywj998 2003-12-22
还是不行啊，根本就取不出来，这是不是跟Excel中的控件有什么关系阿？还有其它的方法没有咯。
SoHo_Andy 2003-12-22
你复制我的代码过去试试看行不行，不要加任何改动
这里的"Check Box 1",就是你Excel中的控件名
xlapp.ActiveSheet.Shapes("Check Box 1").Select
这里的"Check Box 1",就是你Excel中的控件名
xlapp.ActiveSheet.Shapes("Check Box 1").Select
lzywj998 2003-12-22
我试了一下不行啊。
这句(xlapp.ActiveSheet.Shapes("CheckBox1").Select)里的"CheckBox1"是代表什么啊，我取出来得值为什么是空的呢？
这句(xlapp.ActiveSheet.Shapes("CheckBox1").Select)里的"CheckBox1"是代表什么啊，我取出来得值为什么是空的呢？
SoHo_Andy 2003-12-22
简单实例
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
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 2003-12-22
你可以上msn吗，上msn来聊可以吗，我已经加了你？代码可以运行，但你的checkbox和我的不一样，我用你的方法就不能运行
SoHo_Andy 2003-12-22
是office XP ,代码可以运行么
应该没关系的
应该没关系的
lzywj998 2003-12-22
你装的是不是office xp?我这里装的是office 2000,你的checkbox是怎么放上去的阿？怎么样子和我的不一样啊。