主题：如何从excle中导入图片

参考

http://www.foxtable.com/webhelp/scr/2492.htm

If Sheet(4,4).SaveImage(fl) Then '如果照片保存成功

以下是引用616647654在2017/9/27 11:39:00的发言：
还是不怎么会，导入图片显示不出来

foxtable的图片的显示，要这样处理的 -> http://www.foxtable.com/webhelp/scr/1646.htm

执行6楼代码后，你foxtable照片列存放什么数据？在项目的Attachments文件夹下，有没有对应jpg文件？

用下面的代码合并数据

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("表B")
    t.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow '= t.DataTable.Find("第一列 = '" & sheet(n, 0).text & "'")
        If r Is Nothing Then r = t.DataTable.AddNew()
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                r(cname) = sheet(n, i).Text

            End If
            If cname = "照片" Then
                Dim fl As String = ProjectPath & "Attachments\" & r("身份证号") & ".jpg"
                msgbox(fl)
                If Sheet(n,i).SaveImage(fl) Then '如果照片保存成功
                    r("照片") = fileSys.GetName(fl)
                End If
            End If
        Next
    Next
    t.ResumeRedraw()
End If

foxtable项目和excel表格发上来。

excel表格和foxtable项目发上来测试。

使用ie浏览器，像上传图片那样上传，文件大小不要超过2M

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("进入面试0")
    t.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow = Nothing ' t.DataTable.Find("身份证号 = '" & sheet(n, 6).text & "'")
        If r Is Nothing Then r = t.DataTable.AddNew()
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                r(cname) = sheet(n, i).Text
            End If
            If cname = "照片" Then
                Dim fl As String = ProjectPath & "Attachments\" & r("身份证号") & ".jpg"
                If Sheet(n,i).SaveImage(fl) Then '如果照片保存成功
                    r("照片") = fileSys.GetName(fl)
                End If
            End If
        Next
    Next
    t.ResumeRedraw()
End If

你excel文件的图片不是直接插入的图片，而是一个链接的图片地址，无法获取这样的图片的。