以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何从excle中导入图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107390) |
-- 作者:616647654 -- 发布时间:2017/9/27 10:35:00 -- 如何从excle中导入图片 问题:现在有一个excel表,里面有一列是图片,想现在导入到foxtable中,不知如何导入。 |
-- 作者:有点甜 -- 发布时间:2017/9/27 10:40:00 -- 参考
http://www.foxtable.com/webhelp/scr/2492.htm
If Sheet(4,4).SaveImage(fl) Then \'如果照片保存成功 |
-- 作者:616647654 -- 发布时间:2017/9/27 11:39:00 -- 还是不怎么会,导入图片显示不出来 |
-- 作者:有点甜 -- 发布时间:2017/9/27 12:11:00 -- 以下是引用616647654在2017/9/27 11:39:00的发言:
还是不怎么会,导入图片显示不出来
foxtable的图片的显示,要这样处理的 -> http://www.foxtable.com/webhelp/scr/1646.htm
|
-- 作者:616647654 -- 发布时间:2017/9/27 15:18:00 -- 照片的那一列也已经设置成图片了,就是显示不出来。 |
-- 作者:616647654 -- 发布时间: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 -- 发布时间:2017/9/27 15:31:00 -- 请问这可以用高速导入的那个方法吗?就是在 杂项里面的告诉导入方法。 |
-- 作者:有点蓝 -- 发布时间:2017/9/27 17:08:00 -- 图片正常保存了吗,图片列有存储了正确的文件名称吗 |
-- 作者:616647654 -- 发布时间:2017/9/27 17:21:00 -- 此主题相关图片如下:iuv%j_xs(zrfaywcu~v83.png 这是excle表中的样子
|
-- 作者:有点蓝 -- 发布时间:2017/9/27 17:32:00 -- 要看Foxtable,不是Excel Execl里的图片正常保存到项目里的Attachments目录下了吗?Foxtable表格图片列有存储了正确的文件名称吗?
|