如何用Excel VBA 从Access数据库中提取记录中的附件

joestafsjo · 发表于 2011-5-3 16:04

有没有哪位大侠知道如何用Excel VBA 从Access数据库中提取记录中的附件。例如示例数据库中的Fattachment字段的记录。

joestafsjo · 发表于 2011-5-3 16:34

自己顶一下吧！

joestafsjo · 发表于 2011-5-3 17:31

有木有人回答一下啊？

lsdongjh · 发表于 2011-5-3 17:32

最好将数据库存为mdb文件，呵~

joestafsjo · 发表于 2011-5-3 17:40

用MDB就不支持附件类型的字段了，就是想知道如何通过VBA读写附件。

apollokk · 发表于 2011-5-3 17:57

用access的VBA倒可以，这个是2007及以后版本才有的功能，在EXCEL里怕是不好弄吧

apollokk · 发表于 2011-5-3 17:59

以下是access帮助里面的代码

将附件保存到磁盘
下面的代码段说明了如何使用 SaveToFile 方法将指定员工的所有附件保存到磁盘上。

' Instantiate the parent recordset.
Set rsEmployees = db.OpenRecordset("Employees")
… Code to move to desired employee
' Instantiate the child recordset.
Set rsPictures = rsEmployees.Fields("Pictures").Value
' Loop through the attachments.
While Not rsPictures.EOF
' Save current attachment to disk in the "My Documents" folder.
rsPictures.Fields("FileData").SaveToFile _
"C:\Documents and Settings\Username\My Documents"
rsPictures.MoveNext
Wend

复制代码

lsftest · 发表于 2011-5-3 18:09

在excel理引用ADO(Microsoft ActiveX Data Objects) 的运行库.然后按照常规数据库的读取方式操作就行了,网上很多资料.

joestafsjo · 发表于 2011-5-3 18:19

我试过用常规方式，fields(0).value 不会返回附件文件。我查了网上，说可以用getchunk和appendchunk方法，或用savetofile和loadfromfile，但是尝试了一下，都不成功。
不知哪位能不能提供示例代码。

lsftest · 发表于 2011-5-3 18:24

原帖由 joestafsjo 于 2011-5-3 18:19 发表
我试过用常规方式，fields(0).value 不会返回附件文件。我查了网上，说可以用getchunk和appendchunk方法，或用savetofile和loadfromfile，但是尝试了一下，都不成功。
不知哪位能不能提供示例代码。

先问清楚,你的FAttachment是采用什么方式存进access的?

[ 本帖最后由 lsftest 于 2011-5-3 18:30 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 如何用Excel VBA 从Access数据库中提取记录中的附件

回复 8楼 lsftest 的帖子