求助，编写一个汇总工具

乄蜗牛

求助各位老师，编写一段VBA代码工具：
将工具放到“数据测试”文件夹后，
运行工具时，自动生成名为“123”、“ABC”的Sheet,并能将“123”、“ABC”文件夹中的文档“3.txt”中内容复制到对应的sheet名中，并导出包含“123”、“ABC”的Sheet的一个Excel文件。

ykcbf1100

附件供参考。。。

ykcbf1100

数据导入。。。

1. Sub ykcbf()   '//2024.8.2
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set fso = CreateObject("Scripting.FileSystemObject")
   
5.     p = ThisWorkbook.Path & ""
   
6.     Application.SheetsInNewWorkbook = 2
   
7.     Set ws = Workbooks.Add
   
8.     For Each fd In fso.GetFolder(p).SubFolders
   
9.         n = n + 1
   
10.         ws.Sheets(n).Name = fd.Name
    
11.         f = p & fd.Name & "\3.txt"
    
12.         Set wb = Workbooks.Open(f, 0)
    
13.         arr = wb.Sheets(1).UsedRange
    
14.         wb.Close 0
    
15.         ws.Sheets(n).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
16.     Next
    
17.     ws.SaveAs p & "文件另存"
    
18.     ws.Close
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码