| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 160 人关注过本帖
标题:如何合并多个excel文件的多个相同模板Sheet的内容到一个新excel文件
只看楼主 加入收藏
lovevba
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-5-22
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
如何合并多个excel文件的多个相同模板Sheet的内容到一个新excel文件
比如我有十个excel文件,每个excel文件有A、B、C、D、E、F一共六个sheet,每个文件中六个sheet的模板都分别一致,比如 sheet A有三列,首行分别为姓名、單位、年齡,sheet B有2列,首行分别为姓名,成績;其他以此类推。那么如何把这十个excel合并为一个excel文件呢?这个合并的excel还是有ABCDEF六个sheet,每个sheet的内容是十个excel中同名sheet的内容的合并。
搜索更多相关主题的帖子: 文件 多个 合并 内容 excel 
2020-05-22 17:09
厨师王德榜
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:99
帖 子:591
专家分:2347
注 册:2013-2-16
收藏
得分:20 
首先,汇总文件已经打开,这里假定为totalFile
1/用对话框指定路径 ,程序获得要处理的文件夹名称path1
2/FSO对象取得path1下的所有文件名
3/遍历所有文件
    for each file ....
        打开文件
        遍历每个Sheet
            for each sht in file.worksheets
                提取内容
                提取内容所占有的行数rowCount1
                切换到totalFile的对应Sheet
                首次切换,把表头之下的第一行作为"起始行",否则,用内存中更新过的"起始行".
                切换到"起始行"下,粘贴内容
                更新"起始行"数据,供下一轮次使用(起始行=起始行 + rowCount1)
            next sht
    next file
'详细代码没时间写,大概就是这个逻辑,
'当然这个代码简陋了一些,
'比如,假定文件夹path1下,还有子文件夹,而且不只一层
'那么这个代码就还要考虑递归向下查找,直到找到最末一层文件夹的问题.
'这里为了简捷,就没有考虑递归向子文件夹中查找的问题了.
'还有,既然是多个不相干的Sheet都需要合并,那么"起始行"这个变量,
'恐怕需要用一个数组来保存了.
不周到的地方,欢迎大家补充.
2020-05-29 14:47
快速回复:如何合并多个excel文件的多个相同模板Sheet的内容到一个新excel文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.066974 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved