vb中如何给EXCEL文件中的控件赋值问题

Question

比如，在EXCEL中放一个BarCodeCtrl1条码控件，存盘关闭这个EXCEL文件。然后在VB中给这个控件赋值“123456”，
如何操作？试过类似：ShExcel.OLEObjects("BarCodeCtrl1").object.Value = "123456"
这样的写法，被当前OLE不支持此属性大家帮忙看看！

Answer 1

代码不全，看不出问题。
如果是OLE文档或COM组件方式，ShExcel.OLEObjects("BarCodeCtrl1").object.Value = "123456"没有错。

Answer 2

    Dim AppExcel As Excel.Application
    Dim WbExcel As Excel.Workbook
    Dim ShExcel As Excel.Worksheet        
    Dim sPath As String
    
    sPath = "c:\11.xls"
    
    Set AppExcel = New Excel.Application
    AppExcel.Visible = False
    Set WbExcel = AppExcel.Workbooks.Open(sPath)
    Set ShExcel = WbExcel.Worksheets("Sheet1")
  
    ShExcel.OLEObjects("BarCodeCtrl1").object.Value = "123456"
    ……
     ……    实时错误'1004';
错误提示：
不能取得类 OLEObject的Object属性

Answer 3

但是debug
ShExcel.OLEObjects("BarCodeCtrl1").name
可以正确取得它的名称:BarCodeCtrl1就是不能取得 .object.Value 

Answer 4

ShExcel.OLEObjects("BarCodeCtrl1").Value = 123456
试试

Answer 5

实时错误'438'
对象不支持该属性或方法ShExcel.OLEObjects("BarCodeCtrl1").name
ShExcel.OLEObjects("BarCodeCtrl1").width
ShExcel.OLEObjects("BarCodeCtrl1").top等等都行，就是.Value不行！在EXCEL中打开BarCodeCtrl1的属性框，有Value属性啊，不解……

Answer 6

你的Office版本是什么？会不会和Office版本有关。
以前我在一台Office2003的电脑上和Office2000的电脑上测试，
支持的属性方法就是有不同的，其他的版本具体没试过。
你的会不会是这种问题？