Foxtable(狐表)用户栏目专家坐堂 → 多个产品分别导出至同个excel工作簿的不同工作表


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

主题:多个产品分别导出至同个excel工作簿的不同工作表

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


加好友 发短信
等级:幼狐 帖子:79 积分:602 威望:0 精华:0 注册:2016/11/15 22:12:00
多个产品分别导出至同个excel工作簿的不同工作表  发帖心情 Post By:2018/7/23 20:22:00 [显示全部帖子]

老师请教下,我想实现一个功能 多个产品分别导出至同个excel工作簿的不同工作表 设计一个报表输出按钮,代码如下:模板没有问题,现在的问题是执行代码后,报表除了工作表名有变化,其他没反应。老师帮我看看哪里的问题。
Dim CPMS As List(OF String) = DataTables("统计表").GetValues("品名","[品名] is not null")

Dim F1 As String = ProjectPath & "Reports\业绩表.xls"

Dim Book As New XLS.Book(ProjectPath & "Attachments\业绩表.xls") '打开模板

For Each CPM As String In CPMS

Dim sheet As XLS.Sheet = Book.Sheets(0)

Sheet(3,10).Value =" < [产品名1] = '"& cpm &"' > "     '修改模板,加入筛选条件

Book.Build() '生成细节区

sheet.Name= cpm 

book.Sheets.Add(sheet.name)

Book.Save(F1) '保存工作簿
Next
Dim Proc As New Process '打开工作簿
Proc.File = F1
Proc.Start()

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


加好友 发短信
等级:幼狐 帖子:79 积分:602 威望:0 精华:0 注册:2016/11/15 22:12:00
刚试过  发帖心情 Post By:2018/7/23 20:56:00 [显示全部帖子]

执行有点问题,打开存储文件失败,怎么破

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


加好友 发短信
等级:幼狐 帖子:79 积分:602 威望:0 精华:0 注册:2016/11/15 22:12:00
  发帖心情 Post By:2018/7/23 21:27:00 [显示全部帖子]

好的,谢谢老师,辛苦了。越来越爱上这个有爱的论坛了!

 回到顶部