Foxtable(狐表)用户栏目专家坐堂 → 合并导出的execl如何实现图片列的合并?


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

主题:合并导出的execl如何实现图片列的合并?

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


加好友 发短信
等级:小狐 帖子:366 积分:3720 威望:0 精华:0 注册:2018/7/18 21:08:00
合并导出的execl如何实现图片列的合并?  发帖心情 Post By:2021/11/25 16:07:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\XXBOM打印.xls")
Dim i As Integer
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\XXBOM打印.xls"
For Each r As Row In Tables("XXBOM界面_Table1").Rows
    For i = 0 To Tables("XXBOM界面_Table1").Rows.Count -1  '向工作表的单元格中设置值
        Sheet(i+4,0).Value = Tables("XXBOM界面_Table1").Rows(i)("客户代码")
        Sheet(i+4,4).Value = New XLS.Picture(GetImage(ProjectPath & "XX产品图片\" & Tables("XXBOM界面_Table1").Rows(i)("xx编号") & ".png"),10, 5)
        '----------------------------------------------------------------------------------------------------
    Next
Next
Book.Save(ProjectPath & "Reports\冲XXBOM打印.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Reports\XXBOM打印.xls"
Proc.Start()
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
这是逐条导出 可以引用到图片

但是合并模式下 <M> 图片列  即时可以合并  图片是叠堆在一起  并不是合并成一个图片来显示

请教版主大人,如何实现合并导出 图片列  正确的合并方法

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


加好友 发短信
等级:超级版主 帖子:78037 积分:395943 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/25 16:22:00 [只看该作者]

图片列没有办法在模板里设置合并,只能像上面一样使用代码添加到合并单元格里

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


加好友 发短信
等级:小狐 帖子:366 积分:3720 威望:0 精华:0 注册:2018/7/18 21:08:00
  发帖心情 Post By:2021/11/25 16:24:00 [只看该作者]

如何添加?图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:78037 积分:395943 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/25 16:33:00 [只看该作者]

1楼代码不就是吗?

 回到顶部