共27 条记录, 每页显示 10 条, 页签: [1] [2][3]

标题：导入Excel的图片

1楼

yangwenghd 发表于：2025/4/21 23:15:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:文件导入.table

老师，您好，请问可以导入Excel的图片到foxtable的列表里面吗？

像这样，感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:swbom表有图.xlsx

2楼

有点蓝 发表于：2025/4/21 23:37:00

3楼

yangwenghd 发表于：2025/4/22 8:42:00

Dim fl As String = ProjectPath & "Attachments\" & dr("文件名") & ".jpg"

If Sheet(4, 4).SaveImage(fl) Then '如果照片保存成功

dr("文件照片") = fileSys.GetName(fl)

End If

老师这个代码可以直接获取Excel同行的图片吗？

因为这个Excel也是其他软件导出的，没有单独的图片文件

感谢感谢

4楼

有点蓝 发表于：2025/4/22 8:49:00

If Sheet(图片所在的行数, 图片所在的列数).SaveImage(图片保存的路径) Then '如果照片保存成功

[此贴子已经被作者于2025/4/22 8:49:13编辑过]

5楼

yangwenghd 发表于：2025/4/22 9:53:00

老师们可以在帮忙看看吗还是没有倒出图片到路径，也没有导入到foxtable 麻烦您了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:文件导入.table

6楼

有点蓝 发表于：2025/4/22 10:08:00

1、没有指定保存的文件名称

2、图片在第一列，不是第2 列

Dim fl As String = dr("路径") & "这里需要指定图片名称.jpg" '获取Excel表格图片到文件夹’

If Sheet(n, 0).SaveImage(fl) Then '如果照片保存成功

7楼

yangwenghd 发表于：2025/4/22 11:38:00

老师能再帮忙看看吗？还是不能把Excel第一列的图片导入到路径列对应的文件，也没有输入到foxtable的第一列显示，麻烦您感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:文件导入.table

8楼

有点蓝 发表于：2025/4/22 13:25:00

Dim fl As String = sheet(n, 5).Text & sheet(n, 1).Text & ".jpg"

9楼

yangwenghd 发表于：2025/4/22 16:44:00

老师我写了N+1，为什么前面还有有一行空的呢？感谢感谢，我感觉是这个原因才导致没有导入到图片。

10楼

有点蓝 发表于：2025/4/22 17:15:00

代码？

共27 条记录, 每页显示 10 条, 页签: [1] [2][3]