Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何从excle中导入图片


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

主题：如何从excle中导入图片
帅哥哟，离线，有人找我吗？
616647654
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		如何从excle中导入图片  发帖心情 Post By：2017/9/27 10:35:00 [显示全部帖子]

问题：现在有一个excel表，里面有一列是图片，想现在导入到foxtable中，不知如何导入。

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


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/27 11:39:00 [显示全部帖子]

还是不怎么会图片点击可在新窗口打开查看，导入图片显示不出来
 回到顶部
帅哥哟，离线，有人找我吗？
616647654
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/27 15:18:00 [显示全部帖子]

照片的那一列也已经设置成图片了，就是显示不出来。

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


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/27 15:30:00 [显示全部帖子]

For Each file As String In filesys .GetFiles("C:\Users\Think\Desktop")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("表A").AddNew
        dr("姓名") = sheet(3,2).Text
        dr("报考单位") = sheet(2,6).text
        Dim fl As String = ProjectPath & "Attachments\" & dr("报考单位") & ".jpg"
        If Sheet(3,7).SaveImage(fl) Then '如果照片保存成功
            dr("照片") = fileSys.GetName(fl)
        End If
    End If
Next
 
这是代码 我的问题是现在能运行 就是显示不出来。我的原始文件是有个excle表，里面有一列是照片，其他信息都能显示，就是图片不能，而且在表A中已经把照片列设置成能放图片的 
 回到顶部
帅哥哟，离线，有人找我吗？
616647654
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/27 15:31:00 [显示全部帖子]

请问这可以用高速导入的那个方法吗？就是在 杂项里面的告诉导入方法。

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


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/27 17:21:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：iuv%j_xs(zrfaywcu~v83.png
图片点击可在新窗口打开查看


这是excle表中的样子
 回到顶部
帅哥哟，离线，有人找我吗？
616647654
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/27 19:55:00 [显示全部帖子]

还是不太明白，照片列怎么保存正确的图片名称。excle表中的图片没有名称啊，从excle表中复制出来的图片名称是随机的。而且不就是要把excle表中的图片保存在Attachments目录下吗，你意思是要提前吧图片保存在Attachments目录下？
 我原本的目的就是把excle的数据 原封不动的保存在foxtable里，包括图片。就像高速导入那样可以把文本数据一下导入，但是高速导入不能导入图片。这个程序也只是针对报表。有点犯愁。
图片点击可在新窗口打开查看此主题相关图片如下：h721$s26684~_}_vlyao@kt.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
616647654
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/27 19:57:00 [显示全部帖子]

执行之后，没有什么数据。

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


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/28 10:14:00 [显示全部帖子]

还是没有达到效果，代码执行后，只显示最后一行数据，图片依然保存不了。已经崩溃。
图片点击可在新窗口打开查看此主题相关图片如下：ps8dnxf4zolxmac)mu%%lb9.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/9/28 10:16:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
616647654
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：164 威望：0 精华：0 注册：2017/9/26 10:28:00 		  发帖心情 Post By：2017/9/28 10:18:00 [显示全部帖子]

这是excle表格，foxtabke 就是高速导入出来的表，然后把照片列改成了图片。
[此贴子已经被作者于2017/9/28 10:20:59编辑过]
 回到顶部
总数 16 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 次数据查询