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


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

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/14 20:56:00 [显示全部帖子]


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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 20:12:00 [显示全部帖子]

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

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 21:03:00 [显示全部帖子]

Dim file As String = "f:\dd2.xls"
Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook
'App.DisplayAlerts = False
Dim ok As Boolean = True
Dim psw() As String = {"111","222","123"}
Dim idx As Integer = 0
Do While ok AndAlso idx < 3
    Output.Show(psw(idx))
    try
        wb= App.WorkBooks.Open(file,password:=psw(idx))
        ok = False
    Catch ex As Exception
        idx += 1
        app.quit
    End try
Loop
If ok = False
    app.visible = True
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 21:58:00 [显示全部帖子]

我测试没有问题。execl发上来测试

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 22:22:00 [显示全部帖子]

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

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/17 22:26:00 [显示全部帖子]

工作簿的密码呢？

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：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))

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