以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何从excle中导入图片  (http://www.foxtable.com/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表格图片列有存储了正确的文件名称吗?