读写图片(等文件)！！

hhzjxss · 发表于 2009-2-26 08:43

看看不看最近又学了啥！

office2008 · 发表于 2009-3-3 00:05

好，自己能独立搞出来，水平绝对是高．学习学习！

我级别不够无法评分

[ 本帖最后由 office2008 于 2009-3-3 00:08 编辑 ]

kwinawyeth · 发表于 2011-2-8 09:17

好好研究研究

xtanuihazfh · 发表于 2011-6-8 12:29

感谢分享,下载学习

ladapt · 发表于 2011-6-8 13:48

在外面上网，没有excel ，我了个去，留个名字，回去研究下，这个挺有意思的哦。

lqh123108 · 发表于 2012-10-8 13:31

本帖最后由 lqh123108 于 2012-10-8 13:33 编辑

Sub 读取后写入图片() '为什么错误,附件在第一栏
'先读
Dim arr As Byte
Open ThisWorkbook.Path & "\txR.jpg" For Binary As #1
Get #1, , arr
Close #1

'后写
Open ThisWorkbook.Path & "\txR2.jpg" For Binary As #1
Put #1, , arr
Close #1
End Sub

哦！ · 发表于 2012-10-8 16:31

我等菜鸟只有学习的份啊学无止尽

hga · 发表于 2012-11-29 15:30

好方法！！！

wqfzqgk · 发表于 2012-11-29 17:10

做数据库时用到过，vb.net和vba不是一样的调用，不支持open

远征之辉 · 发表于 2017-6-22 14:51

感谢，很有用！

		自动登录	找回密码
密码			免费注册

[分享] 读写图片(等文件)！！