读写图片(等文件)！！

HHAAMM

这个其实不难，偶是试着用二进制的方式读图片后才发现操作成功！！

放弃加精申请！！

添加了一个生成.wav文件的工作薄，工作薄内的数据生成的是“谢谢彭总加分”

[ 本帖最后由 HHAAMM 于 2009-2-25 23:30 编辑 ]

HHAAMM

昨晚忙活到大半夜才弄成，所以申请...
这个不会是很平常，俺在大惊小怪吧！！

[ 本帖最后由 HHAAMM 于 2009-2-25 16:48 编辑 ]

987654321

Sub 图片文件的数据保存到EXCEL的A列中()
    Dim arr() As Byte, H&
    Columns("A:A").ClearContents
    Open ThisWorkbook.Path & "\txR.jpg" For Binary As #1
    H = LOF(1)
    ReDim arr(1 To H)
    Get #1, , arr
    Close #1
    '[a1].Resize(H, 1) = Application.Transpose(arr)
End Sub

excel2003运行出错

HHAAMM

读数据量较大的图片时，请设置代码，分列存放数据（或存到access中）！！

HHAAMM

原帖由 987654321 于 2009-2-25 16:55 发表
Sub 图片文件的数据保存到EXCEL的A列中()
    Dim arr() As Byte, H&
    Columns("A:A").ClearContents
    Open ThisWorkbook.Path & "\txR.jpg" For Binary As #1
    H = LOF(1)
    ReDim arr(1 To H)
   ...

这段因为是写入，确信当前目录下有这个文件吗？

987654321

当前目录下有txr.jpg文件的

HHAAMM

偶这里操作是成功的！！
xp + office2003

HHAAMM

原帖由 987654321 于 2009-2-25 17:07 发表
当前目录下有txr.jpg文件的

一楼附件中的数据都是这么读到A列的

yangchun88

楼主是使用了数据库图片的保存方法.
原理差不多,这样很直观,如果加上压缩功能那就更好了!

彭希仁

呵呵精化还差一点,因为在EH里已经有答案了.
http://club.excelhome.net/viewth ... 26amp%3Btypeid%3D11