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

ykcbf1100

按实际改一下。

1. Sub ykcbf()   '//2024.9.9
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     p = ThisWorkbook.Path & ""
   
5.     Set sh = ThisWorkbook.Sheets("总表")
   
6.     ReDim brr(1 To 10000, 1 To 500)
   
7.     For Each fd In fso.GetFolder(p).SubFolders
   
8.         For Each f In fd.Files
   
9.             If LCase(f.Name) Like "*.csv" Then
   
10.                 Set wb = Workbooks.Open(f, 0)
    
11.                 n = n + 1
    
12.                 With wb.Sheets(1)
    
13.                     r = .Cells(Rows.Count, 1).End(3).Row
    
14.                     c = .Cells(1, "XFD").End(1).Column
    
15.                     arr = .[a1].Resize(r, c)
    
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, c).Interior.Color = 49407
    
30.         With .[a1].Resize(M, c)
    
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
    

复制代码

xun_1221

ykcbf1100 发表于 2024-9-9 20:50
改一下。。。

大神，有些csv用Excel打开是乱码，用wps打开是正常的在，这种的csv表格，要怎么改代码才能汇总呢？否则汇总出来的也是乱码的数据。

ykcbf1100

xun_1221 发表于 2024-9-11 17:29
大神，有些csv用Excel打开是乱码，用wps打开是正常的在，这种的csv表格，要怎么改代码才能汇总呢？否则汇 ...

上个附件吧

xun_1221

ykcbf1100 发表于 2024-9-11 20:45
上个附件吧

好的，大神帮忙看看

ykcbf1100

xun_1221 发表于 2024-9-19 08:34
好的，大神帮忙看看

你这个csv文件是编码上的问题，最简单的办法就是用记事本打开这个csv文件，另存为UTF-8编码的文件，然后再用原来的代码去处理就行了。

xun_1221

ykcbf1100 发表于 2024-9-19 08:45
你这个csv文件是编码上的问题，最简单的办法就是用记事本打开这个csv文件，另存为UTF-8编码的文件，然后 ...

少量数据可以这么做，如果数据量比较大的话，大神有没啥好的方法？

ykcbf1100

xun_1221 发表于 2024-9-19 08:53
少量数据可以这么做，如果数据量比较大的话，大神有没啥好的方法？

大部分是可以转编码的，但有一些转码不一定成功。