提速！4000个文档，每个提一行记录，耗时1212秒。谢谢jz_l和WJBWJBWJB老师！

lhj323323

jz_l 发表于 2022-8-27 15:50
把报错时的出错界面截屏发出来，还有出错提示时点“调试”按钮，把定位到出错行的代码也截屏发出来

好，请等一下，我再去运行

lhj323323

jz_l 发表于 2022-8-27 15:50
把报错时的出错界面截屏发出来，还有出错提示时点“调试”按钮，把定位到出错行的代码也截屏发出来

以下测试都是针对37楼的提速7（而不是我今天早上发的提速18楼.rar）


-------------这是第一部分测试






-------------这是第二部分测试




好像都是同样的提示错误13

jz_l

lhj323323 发表于 2022-8-27 16:07
以下测试都是针对37楼的提速7（而不是我今天早上发的提速18楼.rar）

xls工作簿文件最大只能支持65536行，
4000个文件，每个文件240条数据的话，总结果达96万条数据，远远超过支持范围。
把提速7.xls这个工作簿另存为：启用宏的工作簿(*.xlsm)，然后再试。

scnc001

学习了     

lhj323323

jz_l 发表于 2022-8-27 16:16
xls工作簿文件最大只能支持65536行，
4000个文件，每个文件240条数据的话，总结果达96万条数据，远远超 ...

xls工作簿文件最大只能支持65536行，
4000个文件，每个文件240条数据的话，总结果达96万条数据，远远超过支持范围。



老师：
每个文件，只提取1行，即18楼所提取的那种，请看红框内的名称，都是不同的
所以，还是18楼的是实用性最强

lhj323323

jz_l 发表于 2022-8-27 16:16
xls工作簿文件最大只能支持65536行，
4000个文件，每个文件240条数据的话，总结果达96万条数据，远远超 ...

老师，请看下图

lhj323323

jz_l 发表于 2022-8-27 16:16
xls工作簿文件最大只能支持65536行，
4000个文件，每个文件240条数据的话，总结果达96万条数据，远远超 ...

此贴，以18楼作为分界
第一部分，是每天只提取一行数据
第二部分，是只提取指定日（仅一天）的240行数据。

jz_l

lhj323323 发表于 2022-8-27 16:40
此贴，以18楼作为分界
第一部分，是每天只提取一行数据
第二部分，是只提取指定日（仅一天）的240行数 ...

修改了一下分钟量取到0的问题，



用你提供的测试数据复制粘贴了1500多个文件出来，
用18楼提速2测试，统计所有：






用新版测试，统计所有：




一样的结果，速度还更快了。

lhj323323

jz_l 发表于 2022-8-27 17:33
修改了一下分钟量取到0的问题，

再次感谢jz_l老师！
全对！

lhj323323

jz_l 发表于 2022-8-27 17:33
修改了一下分钟量取到0的问题，

老师：

我想把
Private Function getPaths() As Variant项下的

With Intersect(.Range("A1").CurrentRegion, .Columns("A:B"))
改为
With Intersect(.Range("A2:B4"))

为何要报错呢？
提示参数不可选