Foxtable(狐表)用户栏目专家坐堂 → 导出的EXCEL表自动合并列内容


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

主题:导出的EXCEL表自动合并列内容

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


加好友 发短信
等级:四尾狐 帖子:924 积分:6639 威望:0 精华:0 注册:2013/8/10 18:33:00
导出的EXCEL表自动合并列内容  发帖心情 Post By:2023/5/7 12:14:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "Attachments\明细表.xls")
Dim fl As String = ProjectPath & "Reports\明细表.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("明细表",2)

老师,上面代码生成了EXCEL报表数据,我现在想将C列,如果挨着的行内容相同的,就合进行合同,请问应该如何处理?

 回到顶部