|
发表于 2019-6-1 02:11:17
|
显示全部楼层
广东省茂名市
本帖最后由 dhbdjl 于 2019-6-1 02:58 编辑
多线程创建问题总算解决了,用精易模块“线程_启动2”启动子程序,再在自编译子程序首部加入“线程_初始化COM库 () ”子程序,完美运行 ,感谢版主分享~~~
在此也分享下测试例子,希望可以帮到有需要的人~~
OFFICE2007读取例子:读EXCEL sheel1;第1,2,4列;第2。。。。。101行的表格数据
.版本 2
.子程序 测试读EXCEL, , ,
.局部变量 EX , 第三方_EXCEL类, , , 第三方编译类模块
.局部变量 EX行 , 整数型, , ,
.局部变量 变量1 ,文本型, , ,
.局部变量 变量2 ,文本型, , ,
.局部变量 变量3 ,文本型, , ,
.版本 2
线程_初始化COM库 () ' 因多线程进行EXCEL操作时异常,加入子程序后才能稳定运行
EX行=1
.如果 (EX.创建 () = 真)
输出调试文本 (“ex创建成功”)
.否则
输出调试文本 (“ex创建失败”)
.如果结束
EX.打开 (“E:\**.xlsx”) '打开的excel文件路径
EX.可视 (假) '(真)为可见
计次循环首(100,)
EX行 = EX行 + 1
变量1 = EX.读单元格数据 (1, EX行, 1).取文本 ()
变量2 = EX.读单元格数据 (1, EX行, 2).取文本 ()
变量3 = EX.读单元格数据 (1, EX行, 4).取文本 ()
输出调试文本 (变量1 , 变量2, 变量3)
计次循环尾()
EX.关闭 ()
|
|