主题：如何提取excel中的图片

如题 以前将图纸保存到了excel里 现在想批量取出来 有什么方法

 

参考代码

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Test.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作表
ws.Activate
For Each s As object In ws.shapes
    s.CopyPicture(Appearance:=1, Format:=2)
    ClipBoard.GetImage.save("d:\test" & s.name & ".jpg")
Next
app.visible = True

谢谢老师  我试了大概10来个文档花费1分钟左右  现在这样的excel文件有4千多个 有没有快一点的方法

试试：http://www.foxtable.com/webhelp/topics/2492.htm

好  谢谢

老师  现在可以获取部分excel图片 又有新的问题  有部分文档是有密码保护只能只读的 读取的时候需要一个个点 有没有什么方法去掉，还有一个 如果我想获取单元格区间内的图片 要怎么处理

我找到了unprotect的方法 但是有什么办法判断解锁有没有成功呢

 

1、你需要知道密码，才能打开。http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105513&skin=0

 

2、循环每一个 ws.shapes，判断其单元格位置，如

 

Dim rng = s.TopLeftCell

msgbox(rng.address)

 

3、如果文件比较多，试试多线程 http://www.foxtable.com/mobilehelp/scr/3268.htm

 

谢谢  我找到了unprotect的方法 但是有什么办法判断解锁有没有成功呢

解锁了，读取任意单元格的值，如果不出错，应该就可以了