[已解决]重复根据数据找文档里的内容

90611

求大神帮忙   导入.rar (45.11 KB, 下载次数: 4)

2017-3-23 11:46 上传

点击文件名下载附件
根据BCD列数据，导出所指示的文件中A1数据导出到E列

最佳答案

月排行榜 / 总排行榜

grf1973

2017-3-29 19:36

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set ff = fso.getfolder(ThisWorkbook.Path)
   
5.     Dim arr(1 To 1000, 1 To 4)
   
6.     For Each fff In ff.subfolders
   
7.         p = Split(fff, ""): p1 = p(UBound(p))
   
8.        For Each f In fff.Files
   
9.         q = Split(f, ""): q1 = q(UBound(q))
   
10.          Workbooks.Open f
    
11.          n = n + 1
    
12.          arr(n, 1) = Split(p1, "(")(0)
    
13.          arr(n, 2) = Split(q1, "-")(0)
    
14.          arr(n, 3) = Split(Split(q1, "-")(1), ".")(0)
    
15.          arr(n, 4) = ActiveWorkbook.Sheets(1).[a1]
    
16.          ActiveWorkbook.Close False
    
17.        Next
    
18.     Next
    
19.     If n > 0 Then [b18].Resize(n, 4) = arr
    
20.     Application.ScreenUpdating = True
    
21. End Sub

复制代码

跳转到最佳答案楼层

90611

补上附件

90611

我表达不够清晰吗？

90611

请求打神打救

90611

或者有大神告诉我，应该用什么语句，可以完成查找文件名称的
不胜感激。

grf1973

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set ff = fso.getfolder(ThisWorkbook.Path)
   
5.     Dim arr(1 To 1000, 1 To 4)
   
6.     For Each fff In ff.subfolders
   
7.         p = Split(fff, ""): p1 = p(UBound(p))
   
8.        For Each f In fff.Files
   
9.         q = Split(f, ""): q1 = q(UBound(q))
   
10.          Workbooks.Open f
    
11.          n = n + 1
    
12.          arr(n, 1) = Split(p1, "(")(0)
    
13.          arr(n, 2) = Split(q1, "-")(0)
    
14.          arr(n, 3) = Split(Split(q1, "-")(1), ".")(0)
    
15.          arr(n, 4) = ActiveWorkbook.Sheets(1).[a1]
    
16.          ActiveWorkbook.Close False
    
17.        Next
    
18.     Next
    
19.     If n > 0 Then [b18].Resize(n, 4) = arr
    
20.     Application.ScreenUpdating = True
    
21. End Sub

复制代码

90611

感谢大神！

90611

大神，可以根据前三列数据查找到数据后。再生产第3列的数据吗？

90611

大神，可以根据前三列数据查找到数据后。再生产第3列的数据吗？