Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何提取excel中的图片


  共有2934人关注过本帖树形打印复制链接

主题：如何提取excel中的图片
帅哥哟，离线，有人找我吗？
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 22:22:00 [只看该作者]

execl文件的打开密码是多少？

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/6/17 22:23:00 [只看该作者]

123

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/6/17 22:24:00 [只看该作者]

文档由多个部门合作 密码有7种 都是知道的  
[此贴子已经被作者于2019/6/17 22:24:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 22:24:00 [只看该作者]

If ok = False
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作表
    ws.Activate
    Dim Rg As MSExcel.Range = Ws.UsedRange
    For j As Integer=0 To rg.count
        If j<29 Then
            Dim na As String
            na=Ifo.Name.Replace(Ifo.Extension,"")
            Dim i As Integer=0
            For Each s As object In rg.shapes
                s.CopyPicture(Appearance:=1, Format:=2)
                ClipBoard.GetImage.save(r("保存路径") & "\" & na & "-" & i & ".jpg")
                i=i+1
            Next
            Dim nr As Row=Tables("扫描记录").addnew
            nr("文件名")=Ifo.name
            nr("扫描时间")=Date.now
            nr("图片数量")=i
            nr.save

        End If
    Next
    app.quit
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 22:26:00 [只看该作者]

工作簿的密码呢？

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/6/17 22:27:00 [只看该作者]

都是123

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 23:16:00 [只看该作者]

wb= App.WorkBooks.Open(file,password:=psw(idx),WriteResPassword:=psw(idx))

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/6/18 6:45:00 [只看该作者]

感谢老师半夜还在解答
现在红色部分报错 提示不存在对象 
蓝色这段代码可能有有问题  我的本意是只截取29行以内的图片 
If ok = False
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作表
    ws.Activate
    Dim Rg As MSExcel.Range = Ws.UsedRange
    For j As Integer=0 To rg.count
        If j<29 Then
            Dim na As String
            na=Ifo.Name.Replace(Ifo.Extension,"")
            Dim i As Integer=0
            For Each s As object In rg.shapes
                s.CopyPicture(Appearance:=1, Format:=2)
                ClipBoard.GetImage.save(r("保存路径") & "\" & na & "-" & i & ".jpg")
                i=i+1
            Next
            Dim nr As Row=Tables("扫描记录").addnew
            nr("文件名")=Ifo.name
            nr("扫描时间")=Date.now
            nr("图片数量")=i
            nr.save

        End If
    Next
    app.quit


[此贴子已经被作者于2019/6/18 6:47:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/6/18 6:57:00 [只看该作者]

另外老是报这个错误 常来自 HRESULT:0x800A03EC

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/6/18 7:01:00 [只看该作者]

还有个问题  另存的时候能设置图片大小吗 在excel里插入的 1080*900的图片 缩小了 提取出来也是缩小后的 能还原成1080*900吗？

 回到顶部
总数 36 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询