[A高7]如何使用VBA代码将插入OLE字段中的对象还原成一个文件

admin

通过VBA编程使用DAO或ADO方式将文件写入表OLE字段

与 直接在OLE字段中按右键菜单->插入对象 选择文件插入

这两种方式实际上是不相同的.

1.使用VBA编程插入的文件,在OLE字段上双击不会打开相应的容器程序

2.使用插入对象方法插入的文件,无法直接通过DAO或ADO方法读出,因为插入的文件有OLE头文件,而不仅是插入的文件的内容

我们知道,使用VBA编程写入OLE字段的文件或对象可以再使用VBA代码还原成一个文件,那如何实现将用"插入对象"方式插入OLE字段的对象,通过VBA代码汇出到一个文件,汇出的文件扩展名需与插入前的扩展名一样,而且汇出的文件格式完整,能够正常打开.

leijiqiang

不知TRIMFILE中的比较B,M,B,K是什么意思

此方式不能将插入对象的图片,正常导出磁盘文件

leijiqiang

我为此苦恼半个月了.急切需要解决

weizw55

有没有办法把控件中的图片还源成一个文件?

逛两脚

好贴,顶顶更健康
















古之立大事者，不惟有超世之才，亦必有坚忍不拔之志。---魔兽剑圣异界纵横
极品家丁 龙蛇演义 恶魔法则 斗罗大陆 异界枪神 凡人修仙传 魔兽领主 超级农民 极品公子 飞升之后

lxh1968

好好学习，天天向上。

zhuyiwen

整理一下，未测试

MS Access OLE Object to Disk File Export

--------------------------------------------------------------------------------

'Written : 9 Jun 2004
'Modified : 27 Jul 2004
'Author : Sonam Gurung 2004
'Module to export bmp file data from OLE Field to disk file
'===========================

Option Compare Database
Option Explicit

'Constants That User Can Modify
Const table = "table1"
Const unid = "id"
Const field = "data"
Const dirpath = "c:\"
'End of Constant Declaration

Sub SaveOLEToFile()
        Dim db As Database, rs As DAO.Recordset, q As String, fname As String, b() As Byte
        Set db = CurrentDb()
        q = "select " & unid & "," & field & " from " & table
        Set rs = db.OpenRecordset(q)
        While Not rs.EOF
                fname = dirpath & "\" & Trim(Str(rs.Fields(0).Value)) & ".tif"
                ReDim b(rs.Fields(1).Size)
                b = rs.Fields(1).Value
                Open fname For Binary Access Write As #1
                Put #1, , b
                Close #1
                TrimFile (fname)
                rs.MoveNext
        Wend
        rs.Close
        Set rs = Nothing
End Sub

Sub TrimFile(ByVal fname As String)
        Dim b() As Byte, l As Long
        ReDim b(4)
        Open fname For Binary As #1
        For l = 1 To LOF(1)
                Seek #1, l
                Get #1, , b
                If b(0) = asc("B") And b(1) = asc("M") And b(2) = asc("B") and b(3)="K" Then Seek #1, l: Exit For
        Next l
        ReDim b(LOF(1) - l)
        Get #1, , b
        Close #1

        Open fname For Binary As #1
        Put #1, , b
        Close #1
End Sub

Benjamin_luk

MS <B >Access <B >OLE <B >Object to Disk <B >File Export



--------------------------------------------------------------------------------



'Written : 9 Jun 2004

'Modified : 27 Jul 2004

'Author : Sonam Gurung 2004

'Module to export bmp <B >file data from <B >OLE Field to disk <B >file

'===========================



Option Compare Database

Option Explicit



'Constants That User Can Modify

Const table = "table1"

Const unid = "id"

Const field = "data"

Const dirpath = "c:\"

'End of Constant Declaration



Sub SaveOLEToFile()

Dim db As Database, rs As DAO.Recordset, q As String, fname As String, b() As Byte

Set db = CurrentDb()

q = "select " & unid & "," & field & " from " & table

Set rs = db.OpenRecordset(q)

While Not rs.EOF

fname = dirpath & "\" & Trim(Str(rs.Fields(0).Value)) & ".tif"

ReDim b(rs.Fields(1).Size)

b = rs.Fields(1).Value

Open fname For Binary <B >Access Write As #1

Put #1, , b

Close #1

TrimFile (fname)

rs.MoveNext

Wend

rs.Close

Set rs = Nothing

End Sub



Sub TrimFile(ByVal fname As String)

Dim b() As Byte, l As Long

ReDim b(4)

Open fname For Binary As #1

For l = 1 To LOF(1)

Seek #1, l

Get #1, , b

If b(0) = asc("B") And b(1) = asc("M") And b(2) = asc("B") and b(3)="K" Then Seek #1, l: Exit For

Next l

ReDim b(LOF(1) - l)

Get #1, , b

Close #1



Open fname For Binary As #1

Put #1, , b

Close #1

End Sub

[此贴子已经被作者于2004-8-26 13:15:00编辑过]

xinbao

可能xls、doc、bmp等格式各有不同！

bigsea76

我用asp显示过ole字段中的word文件，方法是查找word文件开头的特征字，把之前的砍掉，但总感觉是凑出来的。我想ole文件头应该有一些格式，有谁能找到格式说明就行，例如偏移字段在哪等。