Office中国论坛/Access中国论坛

标题: 怎样将access中的图片导出到excel？ [打印本页]

作者: sgrshh29 时间: 2005-9-16 22:41
标题: 怎样将access中的图片导出到excel？
如题：需要将数据库的图片导出到excel，导出后要显示出图片。分二种情况

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

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

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

作者: swx 时间: 2005-9-16 23:07
excel中有ole字段吗？

作者: LucasLynn 时间: 2005-9-17 01:50

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

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

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

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

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

作者: sgrshh29 时间: 2005-9-17 03:38

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

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

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

作者: esmile 时间: 2005-9-17 03:48
提示: 作者被禁止或删除内容自动屏蔽

作者: sgrshh29 时间: 2005-9-17 22:30

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)