如何批量从多个excel里提取图片

zjxhp6

我有上千个excel 结构基本一致 每个里面都有一张图片 现需要将其中的图片提取出来。一个个搞太浪费时间，求大神指点有没有什么便捷的方式可以搞定。我的版本是2007的。求助求助不胜感激！ Desktop.zip (385 KB, 下载次数: 21)

2014-1-5 20:20 上传

点击文件名下载附件

补充一下 图片都是在同一个位置的 希望可以按照我原有的文件顺序提取图片 谢谢

xing2yang

直接批量转换为xlsx，然后统一解压到各自文件，再搜索合到一起呗

zjxhp6

xing2yang 发表于 2014-1-6 09:31
直接批量转换为xlsx，然后统一解压到各自文件，再搜索合到一起呗

求详细描述，你这样说不是很懂

KCFONG

see if help you

zjxhp6

KCFONG 发表于 2014-1-6 21:50
see if help you

大神 我在运行时出现下面的对话框

KCFONG

Did you enable the macro ??

PLease use this version to test again

zjxhp6

KCFONG 发表于 2014-1-6 21:50
see if help you

Sub 提取图片()
    Dim sht As Worksheet, sht1 As Worksheet
    Dim pic As Picture
    Dim wb As Workbook
    Application.ScreenUpdating = False
    wbname = ThisWorkbook.Name
    Set sht1 = ThisWorkbook.ActiveSheet
    mypath = ThisWorkbook.Path & "\"
    Filename = Dir(mypath & "*")
    Do While Filename <> ""
        If Filename <> wbname Then
            Set wb = Workbooks.Open(Filename:=mypath & Filename)
            For Each sht In Sheets
                sht.DrawingObjects.Copy
                sht1.Paste
            Next
            wb.Close
        End If
        Filename = Dir
    Loop
Application.ScreenUpdating = True
End Sub
这是之前我用过的一段代码 但是有两个问题 一个是在我发的样例中 居然不适用。还有一个问题就是这个代码在处理文件的时候居然是二进制方式递进的。
还有一个问题是 大神您用的代码提取的是图片的改变后的大小 我用的这个代码 可以先放到excel里 然后通过rar提取源文件 我想要源文件 应该怎么办呢？

caoslut

KCFONG 发表于 2014-1-6 22:49
Did you enable the macro ??

PLease use this version to test again

你好大神，如果是一表多个图片怎么修改代码呢