使用数组进行多工作簿多表合并

sero61

@侠圣及坛里的大神，使用dir与do...loop结合将多工作簿中多表合并，当工作簿和表较多时感觉耗时还是较长，现在想使用数组先将源文件数据读入数组，然后通过数组转置输出至汇总表
  目前遇到困难：1、使用数组进行多表合并是否更快，有无可行性（个人想法是不是在钻牛角）；
2、多工作簿多表读入数组生成嵌套数组转置输出时无法进行
请大神们指点

ykcbf1100

参与一下。。。

1. Sub ykcbf()         '//2024.6.21
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set fso = CreateObject("scripting.filesystemobject")
   
5.     Dim arr, brr(1 To 10000, 1 To 100)
   
6.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
7.     p = ThisWorkbook.Path & ""
   
8.     For Each f In fso.GetFolder(p).Files
   
9.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
10.             n = n + 1
    
11.             fn = fso.GetBaseName(f)
    
12.             Set wb = Workbooks.Open(f, 0)
    
13.             With wb.Sheets(1)
    
14.                 arr = .UsedRange
    
15.                 wb.Close False
    
16.             End With
    
17.             For i = IIf(n = 1, 1, 2) To UBound(arr)
    
18.                 If arr(i, 1) <> Empty Then
    
19.                     m = m + 1
    
20.                     For j = 1 To UBound(arr, 2)
    
21.                         brr(m, j) = arr(i, j)
    
22.                     Next
    
23.                 End If
    
24.             Next
    
25.         End If
    
26.     Next f
    
27.     With sh
    
28.         .UsedRange.ClearContents
    
29.         .[a1].Resize(1, UBound(arr, 2)).Interior.Color = 49407
    
30.         With .[a1].Resize(m, UBound(arr, 2))
    
31.             .Value = brr
    
32.             .Borders.LineStyle = 1
    
33.             .HorizontalAlignment = xlCenter
    
34.             .VerticalAlignment = xlCenter
    
35.             .EntireColumn.AutoFit
    
36.         End With
    
37.     End With
    
38.     Application.ScreenUpdating = True
    
39.     MsgBox "OK！"
    
40. End Sub
    

复制代码

sero61

在线求助，顶一下。感谢大神们指点

ykcbf1100

合并的方式有好几种的，就用数组好了。

sero61

ykcbf1100 发表于 2024-6-21 11:13
合并的方式有好几种的，就用数组好了。

感谢草爷关注指教 ，学习一下

wang-way

sero61 发表于 2024-6-21 10:29
在线求助，顶一下。感谢大神们指点

一个文件的内容保存到数组，或者嵌套到字典里都行，肯定比一读一写快，如果你的数据很规范，用sql的方式快一些

wang-way

你用的全是对象操作，复制粘贴很慢的。把代码改一下

sero61

wang-way 发表于 2024-6-21 11:48
你用的全是对象操作，复制粘贴很慢的。把代码改一下

感谢关注  ，能否指点一下嵌套数组的转换

wang-way

你搜一下多簿汇总阿，几个大佬都有整理好的帖子。

ykcbf1100

sero61 发表于 2024-6-21 11:21
感谢草爷关注指教 ，学习一下

我觉得copy法更简单。