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

lhj323323 · 发表于 2022-8-15 10:44

jz_l 发表于 2022-8-15 09:49
那就改一下吧

老师：

针对18楼的源码，如果我想用sheet1的S列的这组数据，只提取它们的记录
为何运行不成功呢？

快照5.png

lhj323323 · 发表于 2022-8-15 14:30

本帖最后由 lhj323323 于 2022-8-15 14:33 编辑

jz_l 发表于 2022-8-15 09:49
那就改一下吧

' With Sheet1
'       Myr = .[s65536].End(xlUp).Row
'       ft = .Range("s2:s" & Myr) '还是错
' End With

但我用以下语句，倒是不报错，也能运行成功，但提取的远不止这32笔，而是全部LC1，约3278笔。
   ReDim ft(0 To 32)
   For ii = 2 To 33
         ft(ii - 2) = Sheet1.Range("s" & ii)
   Next
ii = 0

jz_l · 发表于 2022-8-15 14:57

lhj323323 发表于 2022-8-15 10:44
老师：

针对18楼的源码，如果我想用sheet1的S列的这组数据，只提取它们的记录

lhj323323 · 发表于 2022-8-15 19:10

jz_l 发表于 2022-8-15 14:57

再次谢谢jz_l老师!
运行成功且正确。

这次改动较大，静下心来慢慢理解含义。

lhj323323 · 发表于 2022-8-21 07:27

jz_l 发表于 2022-8-15 14:57

老师：

刚才试着修改24楼的模块2的语句

把
提取S列股票在M列日期内的9：31这一分钟的数据
改为
提取S列股票在M列日期内的240分钟的数据

模块2里的【Private Sub test2(sPath As String, sFiles() As String)】进行修改，仅改了这一句（红框），为何运行后，仍是只提取每天的9：31分这一笔数据？
快照12.png

jz_l · 发表于 2022-8-21 15:55

lhj323323 发表于 2022-8-21 07:27
老师：

意思是240个分钟，每分钟一条数据，是吗？

jz_l · 发表于 2022-8-21 17:05

你自己设定需要统计的时间范围就好了

分钟设定.png

lhj323323 · 发表于 2022-8-21 18:03

jz_l 发表于 2022-8-21 15:55
意思是240个分钟，每分钟一条数据，是吗？

是的，终于等来了解放军

lhj323323 · 发表于 2022-8-21 19:42

jz_l 发表于 2022-8-21 17:05
你自己设定需要统计的时间范围就好了

谢谢老师，终于验证完了！

		自动登录	找回密码
密码			免费注册

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

评分

评分

评分