求助，多表汇总

chxw68

菊子红了 发表于 2024-8-16 17:08
同个文件夹下的所有文件名都需要

怎么知道O4就是NT-205-03(S001)，O15就是MY-240-04(S007)，O26就是MY-239-04(S007)-1？

于箱长

菊子红了 发表于 2024-8-16 17:08
同个文件夹下的所有文件名都需要

好吧，当我没问过……

菊子红了

我自己写也是卡在文件名这里

菊子红了

还是希望得到大神的帮助，谢谢！

ykcbf1100

chxw68老师都卡在那里了，说明你的需求没有说清楚。你还是重新整理一下需求说明吧，只有把需求说清楚了，别人才好下手。

菊子红了

不好意思，是我没表达清楚。再图示一遍

ykcbf1100

菊子红了 发表于 2024-8-19 18:36
不好意思，是我没表达清楚。再图示一遍

问一下，汇总表中的B~N列数据是不是原来就有的？看了一下，O列后面的数据是要提取的。

如果只是提取O列后面的数据，那我想应该可以解决问题。

ykcbf1100

各个工作簿中，图番号有重复，故用图番号+外观检查员作为关键字提取数据。另外，单元格[F454]并不是每个工作簿都有数据的。

附件供参考。。。

ykcbf1100

提取O列后面的数据。

1. Sub ykcbf()   '//2024.8.19
   
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.     b = [{"f7","f57","f108","f156","f204","f254","f304","f354","f404","f454"}]
   
8.     For Each f In fso.GetFolder(p).Files
   
9.         If LCase$(f.Name) Like "*.xls*" Then
   
10.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
11.                 fn = fso.GetBaseName(f)
    
12.                 Set wb = Workbooks.Open(f, 0)
    
13.                 With wb.Sheets("Report")
    
14.                     s = .Cells(4, "aw").Value & "|" & .Cells(4, "bh").Value
    
15.                     st = ""
    
16.                     For x = 1 To UBound(b)
    
17.                         tt = .Range(b(x)).Value
    
18.                         st = st & "|" & tt
    
19.                     Next
    
20.                     d(s) = fn & "|" & Mid(st, 2)
    
21.                 End With
    
22.                 wb.Close False
    
23.             End If
    
24.         End If
    
25.     Next f
    
26.     With sh
    
27.         .[o4:z1000] = ""
    
28.         r = .Cells(Rows.Count, 2).End(3).Row
    
29.         For i = 4 To r
    
30.             s = .Cells(i, "c").Value & "|" & .Cells(i, "n").Value
    
31.             If s <> Empty Then
    
32.                 If d.exists(s) Then
    
33.                     t = Split(d(s), "|")
    
34.                     For j = 0 To UBound(t)
    
35.                         .Cells(i, j + 15).Value = t(j)
    
36.                     Next
    
37.                 End If
    
38.             End If
    
39.         Next
    
40.     End With
    
41.     Set d = Nothing
    
42.     Application.ScreenUpdating = True
    
43.     MsgBox "OK！"
    
44. End Sub
    

复制代码

菊子红了

ykcbf1100 发表于 2024-8-19 19:36
提取O列后面的数据。

代码跑完是空白的，不知道问题出在哪里？