Foxtable(狐表)用户栏目专家坐堂 → 请教:多个sheet合并到一个sheet


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

主题:请教:多个sheet合并到一个sheet

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


加好友 发短信
等级:幼狐 帖子:88 积分:819 威望:0 精华:0 注册:2013/10/15 13:25:00
请教:多个sheet合并到一个sheet  发帖心情 Post By:2018/11/8 17:13:00 [只看该作者]

情况:
基于同一个模板,根据不同筛选条件,输出excel报表,并保存为多个工作簿(每个工作簿只有一个工作表)。
问题:
能不能将这多个工作簿中的工作表,全部复制到一个工作表上?
如何实现?
请高手指教,谢谢。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/8 17:28:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:88 积分:819 威望:0 精华:0 注册:2013/10/15 13:25:00
  发帖心情 Post By: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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 14:58:00 [只看该作者]

以下是引用cdwanghc在2018/11/9 14:55:00的发言:
大侠:是多个excel文件里面的sheet合并,不是一个excel里面的多个sheet合并。
 

 

一样的意思。你定义两个app,分别打开多个文件的sheet,然后复制、拷贝即可。

 

请认认真真看看2楼的代码,不会做的,上传具体实例说明你要做什么。


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


加好友 发短信
等级:幼狐 帖子:88 积分:819 威望:0 精华:0 注册:2013/10/15 13:25:00
  发帖心情 Post By:2018/11/9 15:43:00 [只看该作者]

三楼后半段文字没有发上来。后半段文字是

《请教问题:
按模板输出excel报表时,只能输出excel文件吗?能不能输出到指定的某个excel文件中的某个表上?》


上述如果不能直接实现,那就复制、拷贝。
谢谢解答


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 15:51:00 [只看该作者]

以下是引用cdwanghc在2018/11/9 15:43:00的发言:

《请教问题:
按模板输出excel报表时,只能输出excel文件吗?能不能输出到指定的某个excel文件中的某个表上?》
 

 

只能输出excel文件。必须生成之后,拷贝,粘贴,才行。


 回到顶部