- 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=185375)
-- 发布时间：2023/2/20 11:05:00
-- 关于提取excel中的图片问题
For Each file As String In filesys.GetFiles("E:\\测试2")
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim xm As Image = sheet(0, 0)
End If
Next
编译错误类型xls.cell
-- 发布时间：2023/2/20 11:06:00
--
取图片？http://www.foxtable.com/webhelp/topics/2492.htm
-- 发布时间：2023/2/20 11:24:00
--
For Each file As String In filesys.GetFiles("E:\\测试2")
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dr As DataRow = DataTables("表A").AddNew
dr("姓名") = sheet(0, 0).Text
Dim fl As String = ProjectPath & "Attachments\\" & dr("姓名") & ".jpg"
If Sheet(0, 1).SaveImage(fl) Then \'如果照片保存成功
dr("照片") = fileSys.GetName(fl)
End If
End If
Next
此主题相关图片如下：微信图片_20230220112314.png
[此贴子已经被作者于2023/2/20 11:24:33编辑过]
-- 发布时间：2023/2/20 12:00:00
--
图片不在(0, 1)这个单元格
-- 发布时间：2023/2/20 13:15:00
--
这个图片就在这个单元格，换成没有图片的单元格程序正常跳过图片运行
-- 发布时间：2023/2/20 13:47:00
--
execl文件发上来测试
-- 发布时间：2023/2/20 15:09:00
--
文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:report.xls |
-- 发布时间：2023/2/20 15:15:00
--
7楼文件我测试没有问题。如果是其它文件有问题，请把有问题的文件发上来
此主题相关图片如下：1.png
-- 发布时间：2023/2/20 16:02:00
--
问题文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cs6.rar |
-- 发布时间：2023/2/20 16:04:00
--
请老师帮我look以下