读取水晶报表的ole对象 excel工作表

lsh2216024 2011-08-28 10:30:16
excel的格式很美观,我直接把它贴到水晶报表里面,就是不知道怎么修改这些excel单元格,目前知道了ole对象
代码如下:


' 声明一个新的OLE对象
Dim oOleObject As craxdrt.OLEObject
' 声明一个普通对象
Dim oObject As Object
' 声明一个节对象.
Dim oSection As craxdrt.Section
' 当OLE对象找到时,这个变量设为TRUE.
Dim bOle As Boolean
bOle = False
Dim oWkb As Excel.Workbook
Dim oSht As Excel.Worksheet


' 在每个节中寻找所有报表对象
For Each oSection In carp.Sections

For Each oObject In oSection.ReportObjects
' 找到第一个OLE对象.
If oObject.Kind = craxdrt.crOLEObject Then

' 获取图片对象然后退出循环.
Set oOleObject = oObject
bOle = True
Exit For
End If
Next oObject
If bOle Then Exit For
Next oSection

格式化BLOB区域对象
With oOleObject

.BottomCropping = 1000
.BottomLineStyle = crLSSingleLine
.Left = 1000
.Height = 10000
End With
...全文
208 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

1,453

社区成员

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

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