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

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

解决方案 »

  1.   

    简单实例
    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
      

  2.   

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

  3.   

    你复制我的代码过去试试看行不行，不要加任何改动这里的"Check Box 1",就是你Excel中的控件名
    xlapp.ActiveSheet.Shapes("Check Box 1").Select
      

  4.   

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

  5.   

    你是不是有些东西没说清楚我的程序中只有这几行代码，引用Excel 10.0 ，运行成功或者你留个邮箱，我把工程发给你试试
      

  6.   

    是不是我引得是Excel 9.0的缘故的啊？.cn
      

  7.   

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

  8.   

    已经发送，请接收另外xlapp.ActiveSheet.Shapes("Check Box 1").Select
    不要写成
    xlapp.ActiveSheet.Shapes("CheckBox1").Select
      

  9.   

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

  10.   

    是office XP ,代码可以运行么应该没关系的
      

  11.   

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