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

excelkill · 发表于 2022-6-15 16:42

本帖最后由 excelkill 于 2022-6-15 16:51 编辑

1、根据本表内编号栏内容找导出数据文件夹下同名文件，打开后提取表格内对应费款所属期（G2栏）和参保单位名称（C2栏）数据到本表的对应栏内；
2、本表的编号栏内容在到处数据的文件夹下不一定有文件，同样在导出数据的文件夹下的文件名在这个表的编号栏内也不一定有对应的编号
3、信息有将近2万条

请哪位朋友帮我看看，谢谢了，多谢

excelkill · 发表于 2022-6-15 16:52

我刚才把附件做了更新，需求增加了一项

xiangbaoan · 发表于 2022-6-15 17:26

新建文件夹 (2).zip (41.41 KB, 下载次数: 12)

excelkill · 发表于 2022-6-15 19:11

谢谢，我先看看，感谢了

excelkill · 发表于 2022-6-15 19:18

提取的数据不对，没有将编号对应文件的栏次提取过来，提取了一个，是表里有编号但没有文件的，麻烦你再帮着看看吧，谢谢了

excelkill · 发表于 2022-6-15 19:19

xiangbaoan 发表于 2022-6-15 17:26

提取的数据不对，没有将编号对应文件的栏次提取过来，提取了一个，是表里有编号但没有文件的，麻烦你再帮着看看吧，谢谢了

excelkill · 发表于 2022-6-15 19:24

本帖最后由 excelkill 于 2022-6-15 20:06 编辑

我看了看，可能我没有说清楚，在提取数据的时候，不要提取导出数据里文件表里的的单位编号，工作表里的编号要保留原来的不动，就是为了对应查找文件用的，导出数据文件夹下文件里只提取日期和单位名称
结果就像下图一样

xiangbaoan · 发表于 2022-6-15 19:54

Sub test1() '没认真看，再试试，不对就算了
Dim Conn As Object, SQL As String, p As String, f As String, i As Integer
Range("A1").CurrentRegion.Offset(1, 1).ClearContents
Application.ScreenUpdating = False
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
p = ThisWorkbook.Path & "\导出数据\"
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
f = Dir(p & Cells(i, 1).Value & ".xls*")
If Len(f) Then
SQL = "SELECT 费款所属期,参保单位名称 FROM [Excel 12.0;Database=" & p & f & "].[$C1:G2]"
Cells(i, 2).CopyFromRecordset Conn.Execute(SQL)
End If
Next
Conn.Close
Set Conn = Nothing
Application.ScreenUpdating = True
Beep
End Sub

复制代码

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

提取数据.zip (19.63 KB, 下载次数: 13)

excelkill · 发表于 2022-6-15 20:16

谢谢，我再看看，麻烦了

		自动登录	找回密码
密码			免费注册

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