线程里面用不了EXCEL操作类 直接调用就可以

a1131244592

•   

  窗口程序集名	保 留	保 留	备 注
  窗口程序集_启动窗口
  变量名	类 型	数组	备 注
  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.创建 ()
  
  

花间一壶酒

给你写了个例子

花间一壶酒

要创建双线程COM对象 才行

花间一壶酒

  

子程序名	返回值类型	公开	备 注
线程_COM库取消

CoUninitialize ()

子程序名	返回值类型	公开	备 注
线程_创建双线程COM库

CoInitializeEx (0, 0)

.版本 2<br /> <br /> .子程序 线程_COM库取消<br /> <br /> CoUninitialize ()<br /> <br /> .子程序 线程_创建双线程COM库<br /> <br /> CoInitializeEx (0, 0)

  

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

DLL命令名	返回值类型	公开	备 注
CoInitializeEx	整数型
DLL库文件名:
ole32
在DLL库中对应命令名:
CoInitializeEx
参数名	类 型	传址	数组	备 注
pvReserved	整数型			0
dwCoInit	整数型			0

.版本 2<br /> <br /> .DLL命令 CoUninitialize, 整数型, "Ole32", "CoUninitialize"<br /> <br /> .DLL命令 CoInitializeEx, 整数型, "ole32", "CoInitializeEx"<br />     .参数 pvReserved, 整数型, , 0<br />     .参数 dwCoInit, 整数型, , 0

先取消  再创建

a1131244592

花间一壶酒 发表于 2025-2-22 16:38
[e=0].版本 2

.子程序 线程_COM库取消

.版本 2
.支持库 spec

线程_COM库取消 ()

线程_创建双线程COM库 ()



调试输出 (单元格.取纯文本 (1, 2, 索引))
现在这样还是不行