Foxtable(狐表)用户栏目专家坐堂 → [求助] 如何合并带有图片的excel表格??


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

主题:[求助] 如何合并带有图片的excel表格??

帅哥哟,离线,有人找我吗?
fengyungongzi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:291 积分:2330 威望:0 精华:0 注册:2012/12/26 10:12:00
[求助] 如何合并带有图片的excel表格??  发帖心情 Post By:2013/4/19 16:56:00 [只看该作者]

   如何合并带有图片的excel表格??

 回到顶部
帅哥哟,离线,有人找我吗?
fengyungongzi
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:291 积分:2330 威望:0 精华:0 注册:2012/12/26 10:12:00
  发帖心情 Post By:2013/4/19 17:01:00 [只看该作者]

     导入excel 表格的代码为:Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
    'MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim colNames As New List(Of String)
    For i As Integer = 0 To sheet.Cols.Count - 1
        colNames.Add(sheet(0, i).Text)
    Next
   
    Dim dt As DataTable = DataTables("管理处文件")
    For i As Integer = 1 To sheet.Rows.Count - 1
        If dt.Find("序号 = '" & sheet(i, 0).Text & "'") Is Nothing Then
            Dim ndr As DataRow = dt.AddNew
            For j As Integer = 0 To sheet.Cols.Count - 1
                ndr(colNames(j)) = sheet(i, j).Text
            Next
        End If
    Next
End If

可是 如果字段为图片,其它字段能导入,带有图片的字段,图片列就为空了,导入不了图片列。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/19 17:03:00 [只看该作者]


 回到顶部