查看: 444|回复: 9
如何将一个文件夹里多个excel表格里固定格式的几列内容汇总到一个excel表里
阅读权限20
在线时间 小时
各位大虾碰到一个难题，请各位大侠不吝赐教！工作中每月都会收到部门大量的excel工资表，大约每月有100多个部门，这些部门上来的工资表都是以固定格式的放在一个文件夹里面。我现在希望能将这些固定格式的excel内容汇总到一张总表里。附件是我举得一个例子，文件夹“部门”里放着一部和二部的工资表excel文件，希望能够将“一部”和“二部”文件里工资表sheet中标黄色标签列的内容汇总至“汇总表”黄色列。
14:29 上传
点击文件名下载附件
658.39 KB, 下载次数: 27
阅读权限20
在线时间 小时
Sub t_1()
Dim a, rs, fPath$, fName$, i%, j%
& & Set rs = CreateObject(&ADODB.Recordset&)
& & fPath = ThisWorkbook.Path & &\& & &部门&
& & fName = Dir(fPath & &\& & &*.xls&)
& & j = 4
& & Do Until fName = &&
& && &&&rs.Open &select f1,f2,f4,f5,f10 from [工资$A4:J] where not isnull(f2)&, _
& && && && &&Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=No';Data Source=& & fPath & &\& & fName, 1, 1
& && &&&a = rs.getrows
& && &&&With ActiveSheet
& && && && &.Cells(j, 1).Resize(UBound(a, 2) + 1, 1) = Application.Transpose(Application.Index(a, 1))
& && && && &.Cells(j, 2).Resize(UBound(a, 2) + 1, 1) = Application.Transpose(Application.Index(a, 2))
& && && && &.Cells(j, 4).Resize(UBound(a, 2) + 1, 1) = Application.Transpose(Application.Index(a, 3))
& && && && &.Cells(j, 5).Resize(UBound(a, 2) + 1, 1) = Application.Transpose(Application.Index(a, 4))
& && && && &.Cells(j, 10).Resize(UBound(a, 2) + 1, 1) = Application.Transpose(Application.Index(a, 5))
& && &&&End With
& && &&&j = j + UBound(a, 2) + 1
& && &&&rs.Close
& && &&&fName = Dir
& & Loop
& & MsgBox &完成！&
End Sub
复制代码
阅读权限20
在线时间 小时
↓↓↓↓↓↓↓↓↓↓↓↓
19:35 上传
点击文件名下载附件
640.71 KB, 下载次数: 20
阅读权限20
在线时间 小时
↓↓↓↓↓↓↓↓↓↓↓↓
非常感谢您的帮助，我想请问下
.Cells(j, 1).Resize(UBound(a, 2) + 1, 1) = Application.Transpose(Application.Index(a, 1))这行代码的意思
阅读权限20
在线时间 小时
解0人大虾，您好！在实际运用过程中还碰到一个棘手的问题，由于部门和部门之间会有个别人员重复，我如何在合并汇总的时候，把部门之间重复的人员用另外一个sheet表现出来，这样可以起到备查的作用。
比如在例子中，部门一和部门二中有两个人员重复分别用红色标注，我汇总表中有一个“重复人员名单”sheet，想得到“重复人员名单”中信息结果，请问能够如何实现
10:14 上传
点击文件名下载附件
861.59 KB, 下载次数: 18
阅读权限20
在线时间 小时
学习，收藏实用
阅读权限20
在线时间 小时
非常感谢您的帮助，我想请问下
.Cells(j, 1).Resize(UBound(a, 2) + 1, 1) = Application.Transpose(Ap ...
a是二维数组
Application.Index(a, 1)是a的第一行
Application.Transpose(Application.Index(a, 1))将a的第一行转为列
意思就是将a的第一行转为列填到.Cells(j, 1).Resize(UBound(a, 2) + 1, 1)
阅读权限20
在线时间 小时
解0人大虾，您好！在实际运用过程中还碰到一个棘手的问题，由于部门和部门之间会有个别人员重复，我如何在 ...
↓↓↓↓↓↓↓↓↓↓↓↓
18:00 上传
点击文件名下载附件
641.66 KB, 下载次数: 22
阅读权限20
在线时间 小时
↓↓↓↓↓↓↓↓↓↓↓↓
谢谢您的帮助
阅读权限20
在线时间 小时
解0人大虾，不好意思再次麻烦您！实际应用过程中，明细表和汇总表之间列是不一样的。我又上传了附件，请问如何能将各部门明细表中的各列汇总到汇总表中的相应列中，同时能得到重复人员的信息？
13:05 上传
点击文件名下载附件
605.69 KB, 下载次数: 0
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师使用dos命令中的move命令的时候把一个文件a移动到某个文件夹b里, 问题是b还没有创建_百度知道
使用dos命令中的move命令的时候把一个文件a移动到某个文件夹b里, 问题是b还没有创建
于是在我执行了这个move命令之后, b就是一个无法打开的文件格式请问我怎么办?
我有更好的答案
另外可以换一种思路，再移动过去，然后再del掉原文件。使用文件夹创建命令 mkdir
建立后，即 copy 文件过去
我的意思是这种未知文件怎么打开, 因为我的文件已经激动进去了, 这些文件我还想要的。
你的问题解决了么
我遇到和你一样的问题了
其他类似问题
为您推荐：
dos命令的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁将一个命名为A的excel表移动复制到另一个命名为B的excel表后，自动出现了一个B的文件夹_百度知道
将一个命名为A的excel表移动复制到另一个命名为B的excel表后，自动出现了一个B的文件夹
删除了B文件夹后，可是要发邮件，B的excel表里的数据就全部没有了将一个命名为A的excel表移动复制到另一个命名为B的excel表后，自动出现了一个B的文件夹，数据只能在B文件夹存在的情况下才显示，这是怎么回事呢
动或复制工作表。不会出现文件夹的情况，一个工作薄中，可以包括若干个Sheet，还是两个工作薄放到一个文件夹里，跟文件夹操作没有关系，将A中的某个工作表，严格来说是一个工作薄。再保存关闭，一个是工作薄，一个是工作表，留下联系方式。首先你要确定是将工作表合并到一个工作薄里。一个Excel文件。要是真有你说的。这里搞清2个概念，即工作表。只不过习惯上往往都说工作表，移动或复制到B中，不说 工作薄。要AB两个工作薄都打开的情况下，看看确认下
我的Q4.1.0.8.9.0.1.9.6，确实是把A中的工作表复制到B中，保存关闭，自动出现了个B文件夹，只要删除了B文件夹，B工作薄中的两个工作表数据全部都没有了
来自团队：
其他类似问题
为您推荐：
圆桌的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁君，已阅读到文档的结尾了呢~~
OFFICE2010模拟题及答案(精编)
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
OFFICE2010模拟题及答案(精编)
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口专转本计算机真题和答案_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
专转本计算机真题和答案
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩66页未读，继续阅读
你可能喜欢}