以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  从Excel报表提取图片问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82393)
--  作者：lhlh
--  发布时间：2016/3/16 23:32:00
--  从Excel报表提取图片问题

Excel报表提取图片并保存到二进制列中，EXCEL中的图片与单元格边线不靠在一起时，无法取出图片。如下图所示，不知什么原因。


                        Dim fll As String = ProjectPath & "Images\\"  & dr1("姓名") & ".jpg"
                        If sheet1(3,18).SaveImage(fll) Then 
                            dr1.DataRow.SQLInsertFile("证件照片",fll) 
                        End If

 


此主题相关图片如下：qq图片20160316232515.png
按此在新窗口浏览图片

 


此主题相关图片如下：qq图片20160316232544.png
按此在新窗口浏览图片
[此贴子已经被作者于2016/3/16 23:39:10编辑过]
--  作者：大红袍
--  发布时间：2016/3/16 23:39:00
--  
excel发上来看看。
--  作者：lhlh
--  发布时间：2016/3/16 23:45:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:信息采集.zip
--  作者：大红袍
--  发布时间：2016/3/16 23:56:00
--  
Dim dlg As new OpenFileDialog
dlg.filter = "excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets(0)
    For i As Integer = 3 To 5
        For j As Integer = 18 To 20
            If sheet(i, j).SaveImage("d:\\test.jpg") Then
                msgbox("保存成功")
                goto break
            End If
        Next
    Next
    break:
    msgbox("结束")
End If
--  作者：lhlh
--  发布时间：2016/3/17 1:02:00
--  

原来可以扩大范围，解决了，谢谢红版！