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

lzywj998 2003-12-22 11:00:07
我想在vb中访问Excel中checkbox控件的值,但我不知道该如何得到这个Excel中的CheckBox对象。
...全文
68 点赞 收藏 11
写回复
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
SoHo_Andy 2003-12-22
已经发送,请接收

另外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 ,运行成功

或者你留个邮箱,我把工程发给你试试
回复
lzywj998 2003-12-22
还是不行啊,根本就取不出来,这是不是跟Excel中的控件有什么关系阿?还有其它的方法没有咯。
回复
SoHo_Andy 2003-12-22
你复制我的代码过去试试看行不行,不要加任何改动

这里的"Check Box 1",就是你Excel中的控件名
xlapp.ActiveSheet.Shapes("Check Box 1").Select
回复
lzywj998 2003-12-22
我试了一下不行啊。
这句(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
回复
lzywj998 2003-12-22
你可以上msn吗,上msn来聊可以吗,我已经加了你?代码可以运行,但你的checkbox和我的不一样,我用你的方法就不能运行
回复
SoHo_Andy 2003-12-22
是office XP ,代码可以运行么

应该没关系的
回复
lzywj998 2003-12-22
你装的是不是office xp?我这里装的是office 2000,你的checkbox是怎么放上去的阿?怎么样子和我的不一样啊。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告