EXCEL多线程操作思路

yes123

小白学习EXCEL操作

一共有1600个excel文件,
我要读取每个excel文件中的   某个单元格,
然后根据情况来覆盖原内容,


子程序调用速度太慢了,多线程又读取不到内容!

求大佬提供思路!

新建文件夹.rar (876.32 KB, 下载次数: 6)

2022-4-25 11:28 上传

点击文件名下载附件

气质征服一切

yes123 发表于 2022-4-25 16:32
方便给个例子吗?我不会在线程池里面调用其他EXCEL对象

随手写的，看你能不能理解了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
a	这是你的对象	0
线程池	鱼刺类_线程池Ex

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
线程数	整数型
总任务数	整数型
x	整数型
控制对象计次	整数型

总任务数 ＝ 100
线程数 ＝ 5
重定义数组 (a, 假, 线程数)
循环判断首 ()
计次循环首 (线程数, )
x ＝ x ＋ 1
控制对象计次 ＝ 控制对象计次 ＋ 1
如果真 (x ＞ 总任务数)
跳出循环 ()

如果真 (控制对象计次 ＞ 线程池)
控制对象计次 ＝ 1

线程池.投递任务 (&投递子程序, 控制对象计次, )
计次循环尾 ()
循环判断首 ()
延迟 (500)  ' 缓冲
循环判断尾 (线程池.取_是否完全空闲 () ＝ 假)
如果真 (x ＞ 总任务数)
跳出循环 ()

循环判断尾 (真)
循环判断首 ()
延迟 (500)  ' 缓冲
循环判断尾 (线程池.取_是否完全空闲 () ＝ 假)
线程池.销毁 (, )

子程序名	返回值类型	公开	备 注
投递子程序
参数名	类 型	参考	可空	数组	备 注
传参	整数型

a[传参] ' 这里就是你的对象了

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 a, 这是你的对象, , "0"<br /> .程序集变量 线程池, 鱼刺类_线程池Ex<br /> <br /> .子程序 子程序1<br /> .局部变量 线程数, 整数型<br /> .局部变量 总任务数, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 控制对象计次, 整数型<br /> <br /> 总任务数 ＝ 100<br /> 线程数 ＝ 5<br /> 重定义数组 (a, 假, 线程数)<br /> .循环判断首 ()<br />     .计次循环首 (线程数, )<br />         x ＝ x ＋ 1<br />         控制对象计次 ＝ 控制对象计次 ＋ 1<br />         .如果真 (x ＞ 总任务数)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .如果真 (控制对象计次 ＞ 线程池)<br />             控制对象计次 ＝ 1<br />         .如果真结束<br /> <br />         线程池.投递任务 (&投递子程序, 控制对象计次, )<br />     .计次循环尾 ()<br /> <br />     .循环判断首 ()<br />         延迟 (500)  ' 缓冲<br />     .循环判断尾 (线程池.取_是否完全空闲 () ＝ 假)<br /> <br />     .如果真 (x ＞ 总任务数)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .循环判断尾 (真)<br /> .循环判断首 ()<br />     延迟 (500)  ' 缓冲<br /> .循环判断尾 (线程池.取_是否完全空闲 () ＝ 假)<br /> 线程池.销毁 (, )<br /> <br /> .子程序 投递子程序<br /> .参数 传参, 整数型<br /> <br /> a[传参]'这里就是你的对象了

补充内容 (2022-4-25 16:53):
这个只是思路，模块的话，在论坛就可以搜索到，鱼刺的线程池模块

气质征服一切

用鱼刺的线程池，你定义了几个线程，就定义几个对象，进行操作

yes123

气质征服一切 发表于 2022-4-25 11:48
用鱼刺的线程池，你定义了几个线程，就定义几个对象，进行操作

方便给个例子吗?我不会在线程池里面调用其他EXCEL对象

yes123

气质征服一切 发表于 2022-4-25 16:53
随手写的，看你能不能理解了

[e=0].版本 2

方法我理解,但是代码写出来老是报错!能请你帮我看下吗?


新建文件夹.rar (1015.64 KB, 下载次数: 1)

2022-4-25 17:29 上传

点击文件名下载附件

气质征服一切

yes123 发表于 2022-4-25 17:30
方法我理解,但是代码写出来老是报错!能请你帮我看下吗?

我只是随手给你写个例子而已

yes123

气质征服一切 发表于 2022-4-25 17:31
我只是随手给你写个例子而已

好的,我已经研究出来了.线程池速度反而慢了几十秒,多线程和单线程的速度基本上差不多的.