根据内容提取文件夹下多个文件的特定栏内容问题

excelkill

达到目的了，非常感谢

excelkill

xiangbaoan 发表于 2022-6-15 20:14

你好老师，今天在使用这个提取数据时，发现提取的数据不对，我看了看是以前我提需求时没有说明白，
需要修改的是，在提取数据的时候要先筛选数据源表里的g栏为最大日期（也就是最靠近当前的日期），然后从这行里提取单位名称和日期，麻烦老师帮我再修改一下，谢谢了

tanglf188

SQL语句支持排序的，自己添加排序就可以了
Order By子句，在使用Select语句进行数据查询后，可以使用Order By子句对生成的结果集进行排序。
        语法如下：Order By order_experssion[ASC | DESC]
        其中，order_experssion表示用于排序的列或列名及表达式。当有多个排序列时，每个排序了列用逗号隔开，而且列后都可以跟一个排序要求。
        ASC：升序排序（默认值）
        DESC：降序排序

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()
   
2.     Set Fso = CreateObject("scripting.filesystemobject")
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     p = ThisWorkbook.Path & "\导出数据"
   
7.     For Each f In Fso.GetFolder(p).Files
   
8.         If f.Name Like "*.xls*" Then
   
9.             fn = Fso.GetBaseName(f)
   
10.             Set wb = Workbooks.Open(f, 0)
    
11.             Set sht = wb.Sheets(1)
    
12.             If IsArray(sht.UsedRange) Then
    
13.                 With sht
    
14.                     arr = .UsedRange
    
15.                     wb.Close False
    
16.                 End With
    
17.             End If
    
18.             For i = 2 To UBound(arr)
    
19.                 d(fn) = Array(arr(i, 7), arr(i, 3))
    
20.             Next
    
21.         End If
    
22.     Next f
    
23.     With sh
    
24.         arr = .[a1].CurrentRegion
    
25.         For i = 2 To UBound(arr)
    
26.             s = CStr(arr(i, 1))
    
27.             If d.exists(s) Then
    
28.                 arr(i, 2) = d(s)(0)
    
29.                 arr(i, 3) = d(s)(1)
    
30.             End If
    
31.         Next
    
32.         .Columns(1).NumberFormatLocal = "@"
    
33.         .[a1].CurrentRegion = arr
    
34.     End With
    
35.     Set d = Nothing
    
36.     Application.ScreenUpdating = True
    
37.     MsgBox "OK！"
    
38. End Sub
    

复制代码

fzxba

      SQL = "SELECT 对应费款所属期,参保单位名称 FROM [Excel 12.0;Database=" & p & f & "].[$C1:G] WHERE 对应费款所属期=(SELECT MAX(对应费款所属期) FROM [Excel 12.0;Database=" & p & f & "].[$C1:G])"