线程里面用不了EXCEL操作类直接调用就可以 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
ex	EXCEL程序对象
ex1	EXCEL程序对象
线程池	鱼刺类_线程池Ex
单元格	单元格对象
符合女性	文本型	0

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
文件名	文本型
i	整数型
n	整数型
总任务数	整数型
当前任务数	整数型
空闲数	整数型
并发线程	整数型

文件名＝取运行目录 () ＋ “\1.xlsx”
ex.创建 (真)
ex.打开文件 (文件名, , , , )
单元格.置程序 (ex)
总任务数＝单元格.取已用行数 ()
线程_启动 (&提取信息, 1, )
并发线程＝ 10
当前任务数＝总任务数
n ＝ 0

如果真 (取反 (线程池.创建 (并发线程, 并发线程, )))

信息框 (“线程池创建失败!”, 64, , )

返回 ()

判断循环首 (n ＜总任务数)

空闲数＝线程池.取_空闲线程数 ()

如果真 (空闲数＞ 0)

当前任务数＝总任务数－ n

如果真 (当前任务数＞空闲数)

当前任务数＝空闲数

计次循环首 (当前任务数, )

n ＝ n ＋ 1

线程池.投递任务 (&提取信息, n)

计次循环尾 ()

线程池.等待任务动态 ()

判断循环尾 ()

判断循环首 (线程池.取_是否空闲 () ＝假)

如果真 (线程池.取_状态 () ≠ #线程池_正在工作 )

跳出循环 ()

线程池.等待任务动态 (100)

判断循环尾 ()
线程池.销毁 ()

子程序名	返回值类型	公开	备注
提取信息
参数名	类型	参考	可空	数组	备注
索引	整数型

线程_初始化COM库 ()
调试输出 (单元格.取纯文本 (1, 2, 索引))
线程_取消COM库 ()

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

ex.创建 ()
ex1.创建 ()

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

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 ex, EXCEL程序对象<br />
.程序集变量 ex1, EXCEL程序对象<br />
.程序集变量 线程池, 鱼刺类_线程池Ex<br />
.程序集变量 单元格, 单元格对象<br />
.程序集变量 符合女性, 文本型, , "0"<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 文件名, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 n, 整数型<br />
.局部变量 总任务数, 整数型<br />
.局部变量 当前任务数, 整数型<br />
.局部变量 空闲数, 整数型<br />
.局部变量 并发线程, 整数型<br />
<br />
文件名 ＝ 取运行目录 () ＋ “\1.xlsx”<br />
ex.创建 (真)<br />
<br />
ex.打开文件 (文件名, , , , )<br />
<br />
单元格.置程序 (ex)<br />
<br />
总任务数 ＝ 单元格.取已用行数 ()<br />
<br />
线程_启动 (&提取信息, 1, )<br />
<br />
并发线程 ＝ 10<br />
<br />
当前任务数 ＝ 总任务数<br />
n ＝ 0<br />
<br />
.如果真 (取反 (线程池.创建 (并发线程, 并发线程, )))<br />
    信息框 (“线程池创建失败!”, 64, , )<br />
    返回 ()<br />
.如果真结束<br />
<br />
.判断循环首 (n ＜ 总任务数)<br />
<br />
    空闲数 ＝ 线程池.取_空闲线程数 ()<br />
<br />
    .如果真 (空闲数 ＞ 0)<br />
<br />
        当前任务数 ＝ 总任务数 － n<br />
<br />
        .如果真 (当前任务数 ＞ 空闲数)<br />
<br />
            当前任务数 ＝ 空闲数<br />
<br />
        .如果真结束<br />
        .计次循环首 (当前任务数, )<br />
            n ＝ n ＋ 1<br />
<br />
            线程池.投递任务 (&提取信息, n)<br />
<br />
        .计次循环尾 ()<br />
    .如果真结束<br />
    线程池.等待任务动态 ()<br />
.判断循环尾 ()<br />
.判断循环首 (线程池.取_是否空闲 () ＝ 假)<br />
    .如果真 (线程池.取_状态 () ≠ #线程池_正在工作)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    线程池.等待任务动态 (100)<br />
.判断循环尾 ()<br />
线程池.销毁 ()<br />
<br />
<br />
<br />
.子程序 提取信息<br />
.参数 索引, 整数型<br />
<br />
线程_初始化COM库 ()<br />
<br />
<br />
<br />
调试输出 (单元格.取纯文本 (1, 2, 索引))<br />
<br />
线程_取消COM库 ()<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
ex.创建 ()<br />
ex1.创建 ()

DLL命令名	返回值类型	公开	备注
CoUninitialize	整数型
DLL库文件名:
Ole32
在DLL库中对应命令名:
CoUninitialize
参数名	类型	传址	数组	备注