需要把不同文件夹中的表格汇总成一份

xun_1221

需要把不同文件夹中的表格汇总成一份，因为表格是csv格式的，另外就是不同文件夹中的文件名称又都是一样的。汇总后的表格由csv转换为Excel格式的。

小凡、、、

没看懂你的导出文件和举例的汇总文件的关系

ykcbf1100

总表和分表完全没关联啊。啥意思呢？

everbest2015

这种活交给PQ好多了

ykcbf1100

按现有数据写一个吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.30
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     p = ThisWorkbook.Path & ""
   
5.     p1 = p & "示例"
   
6.     Set sh = ThisWorkbook.Sheets("总表")
   
7.     ReDim brr(1 To 10000, 1 To 100)
   
8.     For Each fd In fso.GetFolder(p1).SubFolders
   
9.         For Each f In fd.Files
   
10.             If LCase(f.Name) Like "*.csv" Then
    
11.                 Set wb = Workbooks.Open(f, 0)
    
12.                 n = n + 1
    
13.                 With wb.Sheets(1)
    
14.                     r = .Cells(Rows.Count, 1).End(3).Row
    
15.                     arr = .[a1].Resize(r, 4)
    
16.                 End With
    
17.                 wb.Close 0
    
18.                 For i = IIf(n = 1, 1, 2) To UBound(arr)
    
19.                     M = M + 1
    
20.                     For j = 1 To UBound(arr, 2)
    
21.                         If arr(i, 1) <> Empty Then brr(M, j) = arr(i, j)
    
22.                     Next
    
23.                 Next
    
24.             End If
    
25.         Next
    
26.     Next
    
27.     With sh
    
28.         .UsedRange.Clear
    
29.         .[a1].Resize(1, 4).Interior.Color = 49407
    
30.         With .[a1].Resize(M, 4)
    
31.             .Value = brr
    
32.             .Borders.LineStyle = 1
    
33.             .HorizontalAlignment = xlCenter
    
34.             .VerticalAlignment = xlCenter
    
35.         End With
    
36.     End With
    
37.     Application.ScreenUpdating = True
    
38.     MsgBox "OK！"
    
39. End Sub
    

复制代码

changhong8

limonet

惜字rj......

xun_1221

ykcbf1100 发表于 2024-8-30 18:45
按现有数据写一个吧。

实际用不了，帮忙看看是什么问题。
最新附件已传。

ykcbf1100

xun_1221 发表于 2024-9-9 17:00
实际用不了，帮忙看看是什么问题。
最新附件已传。

改一下。。。