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

lzywj998 2003-12-22 11:00:07
我想在vb中访问Excel中checkbox控件的值,但我不知道该如何得到这个Excel中的CheckBox对象。
...全文
128 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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是怎么放上去的阿?怎么样子和我的不一样啊。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧