对于多线程操作Excel对象，另一个子程序无法操作Excel对象

yyetop

引用模块截图

使用了精易模块和该论坛上下载的一个Excel操作模块

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程ID	整数型
线程句柄	整数型
线程许可	线程许可证
Excel对象	EXCEL类
大漠插件	dmsoft

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

运行 (“regsvr32 ” ＋ 取运行目录 () ＋ “\dm.dll” ＋ “ -s”, 真, )
窗口_热键zc (取窗口句柄 (), , #F8键, &停止程序, 1001)
验证MAC ()

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

线程许可 ＝ 线程_创建许可证 ()
线程句柄 ＝ 线程_启动 (&主程序, , 线程ID)

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

变量名	类 型	静态	数组	备 注
起始行	整数型
结束行	整数型
循环变量	整数型
cha询间隔	整数型
图像偏色	文本型

线程_进入许可区 (线程许可)
线程_初始化COM库 ()
Excel对象.创建 ()
Excel对象.打开 (取文本左边 (取运行目录 (), 倒找文本 (取运行目录 (), “\”, , 假)) ＋ “information.xls”)
起始行 ＝ 到整数 (编辑框1.内容)
结束行 ＝ 到整数 (编辑框2.内容)
cha询间隔 ＝ 到整数 (到小数 (编辑框4.内容) × 1000)
图像偏色 ＝ 编辑框5.内容
变量循环首 (起始行, 结束行, 1, 循环变量)
输出调试文本 (Excel对象.读单元格文本 (“A” ＋ 到文本 (循环变量)))
Excel对象.置单元格文本 (“B” ＋ 到文本 (循环变量), “号码：” ＋ Excel对象.读单元格文本 (“A” ＋ 到文本 (循环变量)))
输出调试文本 (Excel对象.读单元格文本 (“B” ＋ 到文本 (循环变量)))
Excel对象.保存 ()
延时 (cha询间隔)
变量循环尾 ()
Excel对象.关闭 ()
线程_取消COM库 ()
线程_退出许可区 (线程许可)

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

Excel对象.保存 ()
Excel对象.关闭 ()
线程_销毁 (线程句柄)

i支持库列表	支持库注释
dm	(未知支持库)

.版本 2<br /> .支持库 dm<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程ID, 整数型<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 线程许可, 线程许可证<br /> .程序集变量 Excel对象, EXCEL类<br /> .程序集变量 大漠插件, dmsoft<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 运行 (“regsvr32 ” ＋ 取运行目录 () ＋ “\dm.dll” ＋ “ -s”, 真, )<br /> 窗口_热键zc (取窗口句柄 (), , #F8键, &停止程序, 1001)<br /> 验证MAC ()<br /> <br /> <br /> .子程序 _开始_被单击<br /> <br /> 线程许可 ＝ 线程_创建许可证 ()<br /> 线程句柄 ＝ 线程_启动 (&主程序, , 线程ID)<br /> <br /> <br /> .子程序 主程序<br /> .局部变量 起始行, 整数型<br /> .局部变量 结束行, 整数型<br /> .局部变量 循环变量, 整数型<br /> .局部变量 cha询间隔, 整数型<br /> .局部变量 图像偏色, 文本型<br /> <br /> 线程_进入许可区 (线程许可)<br /> 线程_初始化COM库 ()<br /> Excel对象.创建 ()<br /> Excel对象.打开 (取文本左边 (取运行目录 (), 倒找文本 (取运行目录 (), “\”, , 假)) ＋ “information.xls”)<br /> <br /> 起始行 ＝ 到整数 (编辑框1.内容)<br /> 结束行 ＝ 到整数 (编辑框2.内容)<br /> cha询间隔 ＝ 到整数 (到小数 (编辑框4.内容) × 1000)<br /> 图像偏色 ＝ 编辑框5.内容<br /> <br /> .变量循环首 (起始行, 结束行, 1, 循环变量)<br />     输出调试文本 (Excel对象.读单元格文本 (“A” ＋ 到文本 (循环变量)))<br />     Excel对象.置单元格文本 (“B” ＋ 到文本 (循环变量), “号码：” ＋ Excel对象.读单元格文本 (“A” ＋ 到文本 (循环变量)))<br />     输出调试文本 (Excel对象.读单元格文本 (“B” ＋ 到文本 (循环变量)))<br />     Excel对象.保存 ()<br />     延时 (cha询间隔)<br /> .变量循环尾 ()<br /> Excel对象.关闭 ()<br /> 线程_取消COM库 ()<br /> 线程_退出许可区 (线程许可)<br /> <br /> .子程序 停止程序<br /> <br /> Excel对象.保存 ()<br /> Excel对象.关闭 ()<br /> 线程_销毁 (线程句柄)

问题：我点击按钮后，就开始子程序“主程序”，如果让主程序正常执行完，没有问题，但是在主程序执行过程中，我按热键F8调用子程序“停止程序”，结果访问不了excel对象，请问代码应该怎么修改，谢谢各位老师。

你的猫

可能是因为你是暂停了线程 并不是结束了

你的猫

变量循环首 (起始行, 结束行, 1, 循环变量)
循环变量归零 试下