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