同一文件夹下多文件查找汇总

xiaofanpark

各位大神，目前需要将多个文件（大概几十个）中的某些数据提取出来然后进行汇总。

提取的条件是时间的判断，查找零件表里项目的年份和周数后，提取第一列的名称，并复制到汇总表里相同年份和周数的地方，并且读取零件表的零件名称后，复制到汇总表的第一列当中。

目标是将同一文件夹内除汇总表以外的所有零件表，都按照这个逻辑进行查找和汇总。附件已经上传。

xiaofanpark

然后 如果我采用vlookup的方法查找的话，只能找到开始时候的数据，但是结束时候的并没有找到。

xiaofanpark

每日一顶！！！

LMY123

总表第一行后2位数据对应分表C列，第3行对应分表B列数据，写入A列的数据

xiaofanpark

LMY123 发表于 2018-8-17 09:45
总表第一行后2位数据对应分表C列，第3行对应分表B列数据，写入A列的数据

对，但是这样只能找到开始或者结束的项，目前是希望能够实现如果开始和结束的时间在总表上都有的话，那就在总表上都标记上，还有就是现在我是靠函数这样一条条输的，数据多的时候太繁琐了，能不能用VBA实现自动读取文件夹内所有零件的数据，进行查找后再汇总，论坛里有过类似的帖子么？麻烦了。

LMY123

xiaofanpark 发表于 2018-8-17 09:53
对，但是这样只能找到开始或者结束的项，目前是希望能够实现如果开始和结束的时间在总表上都有的话，那就 ...

参考，先完成第一步

1. Sub ADO纵向合并多薄首表多区域()
   
2.   Dim Fso As Object, File As Object, cnn As Object, SQL$, m&
   
3.   Application.ScreenUpdating = False
   
4.   Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.   ActiveSheet.UsedRange.Clear
   
6.   For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
   
7.   If File.Name Like "*.xlsx" And File.Name <> ThisWorkbook.Name Then
   
8.     m = m + 1
   
9.     If m = 1 Then
   
10.       Set cnn = CreateObject("adodb.connection")
    
11.        cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & File
    
12.       SQL = "select F1,F2,F3 from [A2:E] where f2 is not null"
    
13.       [a1].CopyFromRecordset cnn.Execute(SQL)
    
14.       SQL = "select F1,F4,F5 from [A2:E] where f4 is not null"
    
15.       Range("a65536").End(3).Offset(1, 0).CopyFromRecordset cnn.Execute(SQL)
    
16.     Else
    
17.       SQL = "select F1,F2,F3 from [Excel 12.0;hdr=no;Database=" & File & ";].[A2:E] where f2 is not null"
    
18.       Range("a65536").End(3).Offset(1, 0).CopyFromRecordset cnn.Execute(SQL)
    
19.       SQL = "select F1,F4,F5 from [Excel 12.0;hdr=no;Database=" & File & ";].[A2:E] where f4 is not null"
    
20.       Range("a65536").End(3).Offset(1, 0).CopyFromRecordset cnn.Execute(SQL)
    
21.     End If
    
22.   End If
    
23.   Next
    
24.   Set Fso = Nothing
    
25.   cnn.Close
    
26.   Set cnn = Nothing
    
27.   Application.ScreenUpdating = True
    
28. End Sub
    
29. 'http://club.excelhome.net/thread-1145518-1-1.html
    

复制代码

xiaofanpark

LMY123 发表于 2018-8-17 11:46
参考，先完成第一步

好的，谢谢您，容我研究研究您这代码

xiaofanpark

LMY123 发表于 2018-8-17 11:46
参考，先完成第一步

我这边运行程序的时候，报错误为


然后是定位到


是我这版本问题 还是什么文件名或者路径问题么？

LMY123

xiaofanpark 发表于 2018-8-17 13:53
我这边运行程序的时候，报错误为

多文件查找汇总.rar (34.99 KB, 下载次数: 43)

2018-8-17 14:19 上传

点击文件名下载附件

xiaofanpark

LMY123 发表于 2018-8-17 14:19

您好，您这边我由于没学过sql语句，没咋看懂- -
我这边的思路是这样的，先是获取文件夹内分表的数目，然后针对每个分表，在总表中从开始的单元格起一个个地进行查询，查询的依据就是总表的时间，看分表里有没有这个时间，如果有匹配的就在这个单元格里记录分表对应的那一项的名字，查完了就开始下一张分表。
我现在就是用vlookup只能找到匹配开始时间的那一项，找不到匹配结束时间的那一项。还有就是只能一次一张表这样弄，很繁琐= =

您这边虽然可以找到开始和结束的数据，但是怎么能让他记录在总表中对应的位置呢？