我遇麻烦了.急呀!!!解决了还加分.

Question

想从SQL Server数据库中查询出图片,然后显示在Excel里,不知道怎么实现呢?
假如保存的表名是 TblPic  保存图片的字段是 FldPic.
急呀.各位大虾一定要帮我呀.

Answer 1

先用二进制的方式将SQL Server中的图片存成本地文件，然后利用OLE Automation将图片插入Excel，这两部分的实现论坛上面都有答案，可以自己搜索一下。

Answer 2

问题是老大的意思是写一个公式来在一个单元格里输出从数据库查询出来的图片信息.
就像  =FucPic(ControlNo) 是一个单元格的值.
ControlNo是一个查询图片的关键字.
然后就实现输出图片.
还请赐教.
是不是没有办法呢?非常感谢TechnoFantasy(冰儿马甲www.applevb.com),但是因为把它存为本地文件可能不太现实,所以还请给点其他的方法.谢谢!!

Answer 3

我编了这么多VBA的程序，也没有像你这样的要求，嵌入式图片，怎么可能插入到单元格中呢，就算可以，再说了，存为本地文件有什么不可能的

Answer 4

只能说是插入到以某个单元格为起始的位置，如果将图片保存成文件，插入的话就很简单了：    Range("A2").Select
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\Administrator\My Documents\My Pictures\140850_14770.jpg" _
        ).Select
两个语句就搞定（在Excel中，如果在VB中只需要增加一些打开文档的语句就可以了）

Answer 5

=FucPic(ControlNo) 
不可能通过函数FucPic实现吗？

Answer 6

要用函数实现其实很简单，参见这篇文档：
http://office.microsoft.com/assistance/preview.aspx?AssetID=HA010548462052&CTT=3&Origin=HP051984252052&Client=1

Answer 7

如果先从数据库中查询出来存入本地,然后再插入Excel表单,有人可以做吗？

Answer 8

先用二进制的方式将SQL Server中的图片存成本地文件  这一步对我来说比较难实现,是否有高手可以在VBA中实现呀.高分相送!!!

Answer 9

楼上这一步已做到.多谢大家.现在的问题是我要在一个格子里面写入 =showimg.
showimg 只能是函数,但是又不能执行函数中的
public function showimg
  ActiveSheet.Pictures.Insert("C:\temp.bmp").Select
end function
提示是:Unable to get the Insert property of the pictures class.如果我把showimg写成过程又不能用 =showimg这样调用,因为它没有返回值.请高手帮忙!!!!!

Answer 10

不好意思,忘了跟大家说,这些东西只在Excel文档中实现.