从同路径提取N个xls，分别存于对应的数组里，谢谢gwjkkkkk和Yalishanda30老师！

lhj323323

老师：

上传的附件中，只有一组半成品的语句，实在不晓得该怎么搞。
老师如有空，请帮忙看看，先谢谢了
求助.rar (22.03 KB, 下载次数: 8)

2022-12-3 19:44 上传

点击文件名下载附件

gwjkkkkk

你这个感觉应该字典嵌套一下数组就可以了，请楼主参考 。。。

582766

后续有什么操作，需求不明确

Yalishanda30

这好像不是什么困难的问题吧

lhj323323

gwjkkkkk 发表于 2022-12-3 20:39
你这个感觉应该字典嵌套一下数组就可以了，请楼主参考 。。。

谢谢老师回复！

比如如下：

1. Sub TEST()
   
2.     Dim strFileName$, strPath$, wkb As Workbook, dic As Object, vKey
   
3.     Application.ScreenUpdating = False
   
4.     Set dic = CreateObject("Scripting.Dictionary")
   
5.     strPath = ThisWorkbook.Path & ""
   
6.     strFileName = Dir(strPath & "*.xls*")
   
7.     Do Until strFileName = ""
   
8.         If strFileName <> ThisWorkbook.Name Then
   
9.            Set wkb = GetObject(strPath & strFileName)
   
10.            arr = wkb.Sheets(1).[A1].CurrentRegion
    
11.            dic(FName(strFileName)) = arr
    
12.            wkb.Close False
    
13.         End If
    
14.         strFileName = Dir
    
15.     Loop
    
16.     For Each vKey In dic.keys
    
17.        'dic (vKey) '就是数组，根据需要进行处理
    
18.     Next
    
19.     Set wkb = Nothing
    
20.     Set dic = Nothing
    
21.    
    
22. Sheet2.Cells(1, 1).Resize(UBound(dic(花花)), UBound(dic(花花), 2)) = dic(花花)
    
23. Sheet2.Cells(1, 9).Resize(UBound(dic(三国)), UBound(dic(三国), 2)) = dic(三国)
    
24.     Application.ScreenUpdating = True
    
25. End Sub
    
26. Function FName(FileName As Variant) As String
    
27.    Application.Volatile
    
28.    FName = Left(FileName, InStrRev(FileName, ".") - 1)
    
29. End Function

复制代码

后续，怎么用啊？

lhj323323

582766 发表于 2022-12-3 20:42
后续有什么操作，需求不明确

后续，比如，我要
把arr进行提重处理
把brr进行索引取值
把crr进行汇总

gwjkkkkk

lhj323323 发表于 2022-12-3 20:53
谢谢老师回复！

比如如下：

1.比如你要处理 “花花” 的数组 ，就引用 dic("花花")，这就是数组，把dic("花花")作为数组来使用，看你上面的代码应该理解的。。。

lhj323323

Yalishanda30 发表于 2022-12-3 20:44
这好像不是什么困难的问题吧

谢谢老师，测试成功了！

lhj323323

gwjkkkkk 发表于 2022-12-3 21:06
1.比如你要处理 “花花” 的数组 ，就引用 dic("花花")，这就是数组，把dic("花花")作为数组来使用，看你 ...

谢谢老师！
问题解决了！
'Set dic = Nothing取消这一句

gwjkkkkk

lhj323323 发表于 2022-12-3 21:23
谢谢老师！
问题解决了！
'Set dic = Nothing取消这一句

这个在字典使用前，不能set,在使用完成后set一下，可减少内存使用。。。一般放在最后。。。