如何利用VBA实现多文件数据自动提取和比较

hbxlt

请教各位老师：
电脑上有一个目录，定期会新增1个EXCEL文件，名称随机，且sheet1的表名与文件名称一致。
每个文件行和列的格式都是一样的，都有数千条数据记录，且有“小区名称”字段可以关联。
想实现一个预期结果：如附件中所示。小区名称、开始时间、RRC连接建立成功率从文件中自动提取，所有文件中的数据按照开始时间升序排列，一旦发现有新的文件生成，自动向下追加数据，并对两个相邻时间的RRC连接建立成功率进行比较，结果大于-0.1%的自动标红。
另外，由于文件过多，能不能将提取过数据的文件做标识，只识别和追加新增的文件数据。

hbxlt

自己顶一下，有哪位大师可以答疑解惑？

LMY123

双薄比对，优先考虑ADO吧

hbxlt

LMY123 发表于 2018-4-19 10:52
双薄比对，优先考虑ADO吧

能讲讲思路或者方法吗

LMY123

hbxlt 发表于 2018-4-21 15:31
能讲讲思路或者方法吗

1. Sub 双薄首表相同记录ado参考()
   
2.     Dim cnn As Object, SQL$, sh As Worksheet
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\表1.xlsx"
   
5.     SQL = "SELECT a.小区名称,a.开始时间,b.开始时间,a.RRC连接建立成功率,b.RRC连接建立成功率,a.RRC连接建立成功率-b.RRC连接建立成功率 FROM [表1$] a, [Excel 12.0;Database=" & ThisWorkbook.Path & "\表2.xlsx;].[表2$] b where a.小区名称=b.小区名称 "
   
6.     On Error Resume Next
   
7.     Set sh = Sheets("相同记录")
   
8.     If Not sh Is Nothing Then
   
9.         sh.Cells.Clear
   
10.     Else
    
11.         Sheets.Add.Name = "相同记录"
    
12.     End If
    
13.     Sheets("相同记录").Range("A2").CopyFromRecordset cnn.Execute(SQL)
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

hbxlt

LMY123 发表于 2018-4-21 16:15

学习了，谢谢。
我的实际问题是有很多的表文件，不单单是两个表之间。
还需要您再指教一下。