Question

怎么用vb把access数据库中的图片导入到excel

实现一个功能，用vb把access数据库中的图片导入到excel，
access数据库名称db.mdb 表名 shuju 图片字段 zhaopian
请教前辈怎么实现！~

Answer 1

你的“图片字段”存储的是文件名还是图片内容？

追问

添加的图片内容

追答

那就要用ADO读取图片文件数据流，存为本地文件再插入，比较麻烦

追问

在读取图片数据的时候，已经先把数据库的图片读取到了tmp.bmp 文件里面了

追答

那么只是插入图片的问题？
Range("E6").Select
ActiveSheet.Pictures.Insert("D:\tmp.bmp")

追问

请问这个是在excel里面添加还是在vb里面呢？

追答

这个是在EXCEL文件里，宏代码

追问

excel 小白，请教过程 -_-!

追答

如果你前面的工作是用VB完成的，建议你搜索一下VB操作EXCEL

需要增加的过程大概是：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlChar As New Excel.Chart
Dim xlSheet As New Excel.Worksheet

Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\BOOK1.xls") '此处为EXCEL文件名
Set xlSheet = xlBook.Worksheets(1)

xlSheet.activate
xlSheet.Range("E6").select
ActiveSheet.Pictures.Insert("D:\tmp.bmp") '此处为图片文件

Answer 2

你这是一个完整的数据读取 再插入的过程
你是一点都不会 还是其中某个问题不会？

追问

一点都不会，求教