如何将access的图片导入到excel表内

这货是菜鸟

如何将access的图片导入到excel表内  

roych

楼主说反了吧？
按截图来看，好像是将Excel的图片导入Access吧？

这货是菜鸟

roych 发表于 2016-3-17 16:54
楼主说反了吧？
按截图来看，好像是将Excel的图片导入Access吧？

截图没有先后顺序，数据库的图片是在ACCESS里导入的， 我想把ACCESS的图片导出到excel表内 ,excel里的宏只能将非图片的数据导入到excel里 我想把ACCESS图片也导进excel表里。

roych

这货是菜鸟 发表于 2016-3-17 17:07
截图没有先后顺序，数据库的图片是在ACCESS里导入的， 我想把ACCESS的图片导出到excel表内 ,excel里的宏 ...

试试用stream来读写。
http://www.office-cn.net/thread-83567-1-1.html
您可能需要注册用户，登录论坛后回复即可下载附件。

这货是菜鸟

roych 发表于 2016-3-17 17:33
试试用stream来读写。
http://www.office-cn.net/thread-83567-1-1.html
您可能需要注册用户，登录论坛 ...

谢谢了 ， 我去看看

这货是菜鸟

Sub t2() '向数据库添加图片
Dim cnn, rst, stm
Set cnn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
Set stm = CreateObject("adodb.stream")
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/data.mdb;Jet OLEDB:Database Password=" & "123456"
rst.Open "select * from 商品图", cnn, 1, 3 '1,1为只读数据,1,3为插入数据，2,3是修改数据
With stm
.Mode = 3 '1:binary(二进制流） 2:text（文本）
.Type = 1 '1:Read 2:Write 3:ReadWrite
.Open
End With
rst.AddNew
rst.Fields(0) = "a6"
stm.LoadFromFile ThisWorkbook.Path & "\c.jpg"
rst.Fields(1).Value = stm.Read
rst.Update
rst.Close
stm.Close
cnn.Close
Set rst = Nothing
Set stm = Nothing
Set cnn = Nothing
End Sub
Sub t3() 'excel读取数据库的图片
Dim cnn, rst, stm
Set cnn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
Set stm = CreateObject("adodb.stream")
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/data.mdb;Jet OLEDB:Database Password=" & "123456"
rst.Open "select * from 商品图 where 商品编码='a6'", cnn, 1, 3 '1,1为只读数据,1,3为插入数据，2,3是修改数据
With stm
.Type = 1 '1:binary(二进制流） 2:text（文本）
.Mode = 3 '1:Read 2:Write 3:ReadWrite
.Open
End With
stm.write (rst.Fields(1).Value)
stm.savetofile ThisWorkbook.Path & "\0.jpg", adSaveCreateOverWrite
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\0.jpg").Select
rst.Close
stm.Close
cnn.Close
Set rst = Nothing
Set stm = Nothing
Set cnn = Nothing
End Sub

roych

这货是菜鸟 发表于 2016-3-18 18:01
Sub t2() '向数据库添加图片
Dim cnn, rst, stm
Set cnn = CreateObject("adodb.connection")

应该没什么问题吧？