怎样将access中的图片导出到excel？

sgrshh29

如题：需要将数据库的图片导出到excel，导出后要显示出图片。分二种情况

1、图片储存在access数据表的ole字段中。

2、图片仅以它的路径储存在access表中。

[此贴子已经被作者于2005-9-16 16:07:44编辑过]

swx

excel中有ole字段吗？

LucasLynn

以下是引用sgrshh29在2005-9-16 14:41:00的发言：



如题：需要将数据库的图片导出到excel，导出后要显示出图片。分二种情况

1、图片储存在access数据表的ole字段中。

2、图片仅以它的路径储存在access表中。

Access读出来不难做到，但是以什么形式存放在Excel中呢？Excel中并不支持图片字段。

sgrshh29

以下是引用LucasLynn在2005-9-16 17:50:00的发言：







Access读出来不难做到，但是以什么形式存放在Excel中呢？Excel中并不支持图片字段。

已经有了一些方案，还不成熟。等差不多时，再向你请教。

esmile

可以用shape来处理.

sgrshh29

以下是引用esmile在2005-9-16 19:48:00的发言：

可以用shape来处理.

请教esmile版主,用了shape后,为什么无法释放对Excel.Application的引用.一定要关闭mdb后,才能释放引用.相关代码如下:

Dim xlapp As Object

Dim xlBook As Object

Dim xlSheet As Object

Set xlapp = CreateObject("Excel.Application")

Set xlBook = xlapp.Workbooks.Open(CurrentProject.Path & "\" & "book1.xls")

Set xlSheet = xlBook.Worksheets("sheet1")

...............................................

xlSheet.Cells(i + 1, j).Select

Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

ActiveSheet.Pictures.Paste.Select

Selection.ShapeRange.Fill.UserPicture Me.Recordset.Fields(j - 1)

With Selection

.Placement = xlMoveAndSize

.PrintObject = True

End With

.................................................

xlBook.Save

xlapp.Quit

Set xlapp = Nothing

Set xlBook = Nothing

Set xlSheet = Nothing

请帮助看看是什么问题?谢谢!

lzongb

这个问题一直未见解决的办法，顶一下。尤其是“图片仅以它的路径储存在access表中”，感觉越来越多的人采用这种方式。
我目前的解决办法是在Excel中插入image控件，然后通过Excel的VBA用LoadPicture加载，但总感觉应该有办法在Access中直接控制，希望高人们出手啊。