la_any=OleObjectName.application.cells(x,y).value
choose case classname(la_any)
case "string"
case "int"
case else
return
end choose
取的值应设为any型
以上为使用OLE对象,
如使用OLE控件,
可以用:
ole_1.object.cell(x,y).value=data
或
ole_1.object.cell(x,y).application.value=data
。。。