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

我是不是没有权限 不能上传excle文件？

 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩 - 副本.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:面试.table

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文件的图片不是直接插入的图片，而是一个链接的图片地址，无法获取这样的图片的。

嗯嗯，明白了谢谢啊。难怪呢。那如果这样的话 该如何处理啊。我的原始数据是 一张带身份证号码的excle表，和以身份证号命名的照片，现在想将两者关联，我用excle可以关联一一对应，请问如何用foxtable实现照片与人的一一对应呢？

mark vba读取excel图片

 

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
   
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        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
            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
        For n As Integer = 2 To rg.Rows.Count
            Dim ro As Row = Tables("进入面试0").AddNew
            For i As Integer = 0 To Tables("进入面试0").Cols.Count - 1
                ro(i) = ary(n,i+1)
            Next
            If dic.ContainsKey(n) Then
                Dim ls = dic(n)
                Dim line As new List(Of String)
                For j As Integer = 0 To ls.count-1
                    Dim name = ary(n, 7) & "_" & j & ".jpg"
                    ls(j).copy
                    ClipBoard.GetImage.save(projectPath & "attachments/" & name)
                    line.add(name)
                Next
                ro.DataRow.lines("照片") = line
            End If
        Next
        MessageBox.Show("导入成功!","恭喜!")
    catch ex As exception
        msgbox(ex.message)
        MessageBox.Show("导入失败!","恭喜!")
    finally
        app.quit
    End try
End If

 

 

学习了