[已解决]多工作簿制式表格合并求解

zhaojunqiu

公司经常需要给多名客户经理发附件这样的表，让他们自己填写自己的，在文件名上填上自己的名字后传给制定人员，该人员逐个复制粘贴费时费力，如何实现在同一文件夹内将这些结果合并到同一张表上，谢谢

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-7-22 15:45

把附件跟那些表格放在同一个文件内 ，点合并即可。   合并.rar (19.65 KB, 下载次数: 9)

2015-7-22 15:44 上传

点击文件名下载附件

1. Sub 合并()
   
2. On Error Resume Next
   
3. Dim fName$
   
4. fName = Dir(ThisWorkbook.Path & "")
   
5. a = 1
   
6. ActiveSheet.Cells.ClearContents
   
7. Do Until fName = ""
   
8.     If fName <> ThisWorkbook.Name Then
   
9.     Cells(Rows.Count, 1).End(3).Offset(1).CopyFromRecordset gRst("select * from [已收-未收保费查询$]", ThisWorkbook.Path & "" & fName)
   
10.     End If
    
11.     fName = Dir
    
12. Loop
    
13. End Sub
    
14. 
    
15. Function gRst(SQL, fName)
    
16. Dim Cnn
    
17. Set Cnn = CreateObject("adodb.connection")
    
18. Set gRst = CreateObject("adodb.recordset")
    
19. Cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & fName
    
20. gRst.Open SQL, Cnn, 1, 3
    
21. Set Cnn = Nothing
    
22. End Function

复制代码

跳转到最佳答案楼层

zhaojunqiu

附件上传怎么不显示呢

gufengaoyue

这应该不难，只是你的附件呢？

zhaojunqiu

gufengaoyue 发表于 2015-7-22 14:35
这应该不难，只是你的附件呢？

附件传不上去？怎么不显示

gufengaoyue

zhaojunqiu 发表于 2015-7-22 14:36
附件传不上去？怎么不显示

打包发上来。
传不上吗？

zhaojunqiu

gufengaoyue 发表于 2015-7-22 14:38
打包发上来。
传不上吗？

换了个浏览器可以了

gufengaoyue

把附件跟那些表格放在同一个文件内 ，点合并即可。   合并.rar (19.65 KB, 下载次数: 9)

2015-7-22 15:44 上传

点击文件名下载附件

1. Sub 合并()
   
2. On Error Resume Next
   
3. Dim fName$
   
4. fName = Dir(ThisWorkbook.Path & "")
   
5. a = 1
   
6. ActiveSheet.Cells.ClearContents
   
7. Do Until fName = ""
   
8.     If fName <> ThisWorkbook.Name Then
   
9.     Cells(Rows.Count, 1).End(3).Offset(1).CopyFromRecordset gRst("select * from [已收-未收保费查询$]", ThisWorkbook.Path & "" & fName)
   
10.     End If
    
11.     fName = Dir
    
12. Loop
    
13. End Sub
    
14. 
    
15. Function gRst(SQL, fName)
    
16. Dim Cnn
    
17. Set Cnn = CreateObject("adodb.connection")
    
18. Set gRst = CreateObject("adodb.recordset")
    
19. Cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & fName
    
20. gRst.Open SQL, Cnn, 1, 3
    
21. Set Cnn = Nothing
    
22. End Function

复制代码

zhaojunqiu

gufengaoyue 发表于 2015-7-22 15:45
把附件跟那些表格放在同一个文件内 ，点合并即可。

刚才是我理解错了，看到效果了，非常感谢你。

zhaojunqiu

gufengaoyue 发表于 2015-7-22 15:45
把附件跟那些表格放在同一个文件内 ，点合并即可。

你好，您看能不能实现这样的效果呢。 我们有63个客户经理分布在不同地区，有的客户经理几个人在同一个地区。我们每个月要发一个这样的表给客户经理填写，他们只需要填写属于自己的那几行的最后一列，一共三种选项：缴费、不缴费、犹豫。他们在填写的时候有的自己填完自己的就发给我了，有的是几个人填写的用一个表发给我了。有的可能在我统计的时候还没填写或没发给我。这样合并后会产生很多重复项，需要去掉。能否实现合并后能够自动计算出，统计了多少表，多少条数据，每个客户经理填写了多条。谁没交表，然后形成一个sheet表格。万分感谢！