[A高7]如何使用VBA代碼將插入OLE字段中的對(duì)象還原成一個(gè)文件

admin

通過(guò)VBA編程使用DAO或ADO方式將文件寫(xiě)入表OLE字段

與 直接在OLE字段中按右鍵菜單->插入對(duì)象 選擇文件插入

這兩種方式實(shí)際上是不相同的.

1.使用VBA編程插入的文件,在OLE字段上雙擊不會(huì)打開(kāi)相應(yīng)的容器程序

2.使用插入對(duì)象方法插入的文件,無(wú)法直接通過(guò)DAO或ADO方法讀出,因?yàn)椴迦氲奈募�有OLE頭文件,而不僅是插入的文件的內(nèi)容

我們知道,使用VBA編程寫(xiě)入OLE字段的文件或?qū)ο罂梢栽偈褂肰BA代碼還原成一個(gè)文件,那如何實(shí)現(xiàn)將用"插入對(duì)象"方式插入OLE字段的對(duì)象,通過(guò)VBA代碼匯出到一個(gè)文件,匯出的文件擴(kuò)展名需與插入前的擴(kuò)展名一樣,而且匯出的文件格式完整,能夠正常打開(kāi).

test2008

BMP文件可以,有人做過(guò),其它不知行

zhengjialon

這個(gè)題值得做，做出來(lái)比較有意義

tmtony

記得以前effiel 和cg1和我都有關(guān)相關(guān)的探討，但都未完全解決這道難題。我現(xiàn)在只能實(shí)現(xiàn)excel word bmp一些已知擴(kuò)展名的文件導(dǎo)出。對(duì)未知文件擴(kuò)展名的則未找到適當(dāng)?shù)姆椒ā?br />

bigsea76

我用asp顯示過(guò)ole字段中的word文件，方法是查找word文件開(kāi)頭的特征字，把之前的砍掉，但總感覺(jué)是湊出來(lái)的。我想ole文件頭應(yīng)該有一些格式，有誰(shuí)能找到格式說(shuō)明就行，例如偏移字段在哪等。

xinbao

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

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

[此貼子已經(jīng)被作者于2004-8-26 13:15:00編輯過(guò)]

zhuyiwen

整理一下，未測(cè)試

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

lxh1968

好好學(xué)習(xí)，天天向上。

逛兩腳

好貼,頂頂更健康
















古之立大事者，不惟有超世之才，亦必有堅(jiān)忍不拔之志。---魔獸劍圣異界縱橫
極品家丁 龍蛇演義 惡魔法則 斗羅大陸 異界槍神 凡人修仙傳 魔獸領(lǐng)主 超級(jí)農(nóng)民 極品公子 飛升之后