以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教:多个sheet合并到一个sheet (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127222) |
-- 作者:cdwanghc -- 发布时间:2018/11/8 17:13:00 -- 请教:多个sheet合并到一个sheet 情况: 基于同一个模板,根据不同筛选条件,输出excel报表,并保存为多个工作簿(每个工作簿只有一个工作表)。 问题: 能不能将这多个工作簿中的工作表,全部复制到一个工作表上? 如何实现? 请高手指教,谢谢。
|
-- 作者:有点甜 -- 发布时间:2018/11/8 17:28:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119637&skin=0
|
-- 作者:cdwanghc -- 发布时间:2018/11/9 14:55:00 -- 大侠:是多个excel文件里面的sheet合并,不是一个excel里面的多个sheet合并。 多个excel文件,根据下面代码生成。 Dim dt As Table = Tables("表A") If MessageBox.show("即将输出.继续吗?","请确认!",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then Dim zzbhs As List(Of String) zzbhs = DataTables("表A").GetValues("组织编号") For Each zzbh As String In zzbhs dt.Filter="[组织编号]=\'" & zzbh & "\' and [发货]=\'Y\'" If dt.Rows.Count>0 Dim Book As New XLS.Book(ProjectPath & "Attachments\\发货标签.xls") Dim Sheet As XLS.Sheet = Book.Sheets(0) Book.Build() Sheet = Book.Sheets(0) Dim fs As String fs=ProjectPath & "Reports\\" & zzbh & "标签.xls" Book.Save(fs) Dim Proc As New Process Proc.File = fs Proc.Start() Else dt.Filter ="" End If Next MessageBox.Show("标签已输出!") End If |
-- 作者:有点甜 -- 发布时间:2018/11/9 14:58:00 -- 以下是引用cdwanghc在2018/11/9 14:55:00的发言:
大侠:是多个excel文件里面的sheet合并,不是一个excel里面的多个sheet合并。
一样的意思。你定义两个app,分别打开多个文件的sheet,然后复制、拷贝即可。
请认认真真看看2楼的代码,不会做的,上传具体实例说明你要做什么。 |
-- 作者:cdwanghc -- 发布时间:2018/11/9 15:43:00 -- 三楼后半段文字没有发上来。后半段文字是 《请教问题: 按模板输出excel报表时,只能输出excel文件吗?能不能输出到指定的某个excel文件中的某个表上?》 上述如果不能直接实现,那就复制、拷贝。 谢谢解答 |
-- 作者:有点甜 -- 发布时间:2018/11/9 15:51:00 -- 以下是引用cdwanghc在2018/11/9 15:43:00的发言:
《请教问题:
按模板输出excel报表时,只能输出excel文件吗?能不能输出到指定的某个excel文件中的某个表上?》
只能输出excel文件。必须生成之后,拷贝,粘贴,才行。 |