Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么从excel 里面提取每张图片


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

主题：怎么从excel 里面提取每张图片
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/27 11:54:00 [显示全部帖子]

里面有提取图片的代码

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/27 11:59:00 [显示全部帖子]

1楼有大量这种用法啊，现在还搞不清楚是什么意思？！您说1楼代码里If  Sheet(n,0).text > "" Then的n,0是什么意思？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/27 13:39:00 [显示全部帖子]

把4,4改为图片所在的单元格的索引

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/27 16:29:00 [显示全部帖子]

foxtable仅支持一个单元格一张图片。

试试使用vba：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107390&replyID=734188&skin=1
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不是，全部代码都是有用的，先学会看懂代码

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/28 11:36:00 [显示全部帖子]

   Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value
        Dim dic As new Dictionary(of Integer, List(of object))
        For Each s As object In ws.Shapes
            Dim rng = s.TopLeftCell
msgbox("rng.Row=" & rng.Row)
            If dic.ContainsKey(rng.Row) = False Then
                Dim ls As new List(Of object)
                ls.add(s)
                dic.Add(rng.Row, ls)
            Else
                dic(rng.Row).add(s)
            End If
        Next
msgbox("dic.keys=" & dic.keys.count)
        For n As Integer = 2 To rg.Rows.Count
            Dim ro As Row = Tables("table_3").AddNew
            For i As Integer = 0 To Tables("table_3").Cols.Count - 1
                ro(i) = ary(n,i+1)
            Next
            If dic.ContainsKey(n) Then
                Dim ls = dic(n)
msgbox("ls.count=" & ls.count)
                Dim line As new List(Of String)
                For j As Integer = 0 To ls.count-1
                    Dim name = ary(n, 1) & "_" & j & ".jpg"
msgbox("name=" & name)
                    ls(j).copy
                    ClipBoard.GetImage.save(projectPath & "attachments/" & name)
msgbox("attachments=" & projectPath & "attachments/" & name)
                    line.add(name)
                Next
                ro.DataRow.lines("图片") = line
msgbox("line=" & line.count)
            End If
        Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/28 14:04:00 [显示全部帖子]

学会调试分析提示框的值

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/28 14:27:00 [显示全部帖子]

应该是execl里的列数和table3里的列数不一致

msgbox(Rg.Columns.Count)
msgbox(Tables("table_3").Cols.Count)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/28 14:52:00 [显示全部帖子]


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