- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 从Excel报表提取图片问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82393)
-- 发布时间：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发上来看看。
-- 发布时间：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
-- 发布时间：2016/3/17 1:02:00
--
原来可以扩大范围，解决了，谢谢红版！