为什么调用类没反应

通红的小钢炮

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
EX	EXCEL类
读名称	文本型
读序号	文本型
读系数	文本型
读组价	文本型
读回车	文本型
读向下	文本型
读复制组价	文本型
读行	文本型
i	逻辑型
n	逻辑型
h	逻辑型
F5	整数型
F6	整数型
组价句柄	整数型
行数	整数型
列数	整数型
配置项	整数型

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

F5 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F5键 )
F6 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键 )
启动线程 (&配置项, , 配置项)

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

执行 ( #打开文件, 取运行目录 () ＋ “\配置.ini”, , , )

子程序名	返回值类型	公开	备 注
配置项

' 延迟配置
读回车 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “回车”, )
读向下 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “向下”, )
读复制组价 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “复制组价”, )
' excel表格配置
读行 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “行”, )
读序号 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “序号”, )
读名称 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “名称”, )
读系数 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “系数”, )
读组价 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “组价”, )
如果真 (读回车 ＝ “”)  ' 延迟——回车
写配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “回车”, “380”)
如果真 (读向下 ＝ “”)  ' 延迟——向下
写配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “向下”, “380”)
如果真 (读复制组价 ＝ “”)  ' 延迟——复制组价
写配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “回车”, “380”)
如果真 (读行 ＝ “”)  ' excel表格——行
写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “行”, “1”)
如果真 (读序号 ＝ “”)  ' excel表格——列，序号  A
写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “序号”, “A”)
如果真 (读名称 ＝ “”)  ' excel表格——名称  C
写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “名称”, “C”)
如果真 (读系数 ＝ “”)  ' excel表格——系数  J
写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “系数”, “J”)
如果真 (读组价 ＝ “”)  ' excel表格——组价  K
写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “组价”, “K”)

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

调试输出 (i)
如果真 (参数一 ＝ F5)
启动线程 (&组价, , 组价句柄)
如果真 (参数一 ＝ F6)
EX.退出 ()
强制结束线程 (组价句柄)
关闭线程句柄 (组价句柄)
调试输出 (组价句柄)

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

变量名	类 型	静态	数组	备 注
文本	文本型
列数	整数型
计次	整数型
序号	文本型

EX.创建 ()
调试输出 (EX.创建 ())
EX.打开EXCEL (取运行目录 () ＋ “C:\Users\PC\Desktop\组价助手\组价文件.xlsx”, )
EX.取行数列数 (行数, 列数)
计次循环首 (行数, 计次)
标签1.标题 ＝ “当前编号：” ＋ EX.读单元格文本 (读序号 ＋ 到文本 (计次))  ' 序号显示
标签2.标题 ＝ “系数：” ＋ EX.读单元格文本 (读名称 ＋ 到文本 (计次))  ' 系数显示
标签3.标题 ＝ “组价：” ＋ EX.读单元格文本 (读组价 ＋ 到文本 (计次))  ' 名称显示
标签4.标题 ＝ EX.读单元格文本 (读组价 ＋ 到文本 (计次))  ' 名称显示
' 操作
置剪辑板文本 (EX.读单元格文本 (读组价 ＋ 到文本 (计次)))  ' 复制价格
模拟按键 ( #回车键, , )
延迟 (到数值 (读回车))
模拟按键 ( #Ctrl键, #V键, )
' 剪辑板_取文本 ()
延迟 (到数值 (读复制组价))
模拟按键 ( #回车键, , )
延迟 (到数值 (读回车))
模拟按键 (40, , )
行数 ＝ 行数 ＋ 1
调试输出 (“执行”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
载入新窗口			只允许载入一个窗口的载入函数
参数名	类 型	参考	可空	数组	备 注
窗口	窗口				欲载入的窗口

变量名	类 型	静态	数组	备 注
被载入的窗口	窗口
载入的窗口句柄	整数型

如果 (载入的窗口句柄 ≠ 0)



如果 (取窗口类名 (载入的窗口句柄) ＝ “”)
载入 (窗口, , 假)
被载入的窗口 ＝ 窗口
载入的窗口句柄 ＝ 窗口.取窗口句柄 ()
载入 (被载入的窗口, , 假)

载入 (窗口, , 假)
被载入的窗口 ＝ 窗口
载入的窗口句柄 ＝ 窗口.取窗口句柄 ()

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

载入新窗口 (表格处理)

i支持库列表	支持库注释
shellEx	扩展功能支持库一
EThread	多线程支持库
shell	操作系统界面功能支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 shellEx<br /> .支持库 EThread<br /> .支持库 shell<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 EX, EXCEL类<br /> .程序集变量 读名称, 文本型<br /> .程序集变量 读序号, 文本型<br /> .程序集变量 读系数, 文本型<br /> .程序集变量 读组价, 文本型<br /> .程序集变量 读回车, 文本型<br /> .程序集变量 读向下, 文本型<br /> .程序集变量 读复制组价, 文本型<br /> .程序集变量 读行, 文本型<br /> .程序集变量 i, 逻辑型<br /> .程序集变量 n, 逻辑型<br /> .程序集变量 h, 逻辑型<br /> .程序集变量 F5, 整数型<br /> .程序集变量 F6, 整数型<br /> .程序集变量 组价句柄, 整数型<br /> .程序集变量 行数, 整数型<br /> .程序集变量 列数, 整数型<br /> .程序集变量 配置项, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> F5 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F5键)<br /> F6 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)<br /> <br /> 启动线程 (&配置项, , 配置项)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 执行 (#打开文件, 取运行目录 () ＋ “\配置.ini”, , , )<br /> <br /> .子程序 配置项<br /> <br /> ' 延迟配置<br /> 读回车 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “回车”, )<br /> 读向下 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “向下”, )<br /> 读复制组价 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “复制组价”, )<br /> ' excel表格配置<br /> 读行 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “行”, )<br /> 读序号 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “序号”, )<br /> 读名称 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “名称”, )<br /> 读系数 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “系数”, )<br /> 读组价 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “组价”, )<br /> <br /> .如果真 (读回车 ＝ “”)  ' 延迟——回车<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “回车”, “380”)<br /> .如果真结束<br /> .如果真 (读向下 ＝ “”)  ' 延迟——向下<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “向下”, “380”)<br /> .如果真结束<br /> .如果真 (读复制组价 ＝ “”)  ' 延迟——复制组价<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “延迟”, “回车”, “380”)<br /> .如果真结束<br /> .如果真 (读行 ＝ “”)  ' excel表格——行<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “行”, “1”)<br /> .如果真结束<br /> .如果真 (读序号 ＝ “”)  ' excel表格——列，序号  A<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “序号”, “A”)<br /> .如果真结束<br /> .如果真 (读名称 ＝ “”)  ' excel表格——名称  C<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “名称”, “C”)<br /> .如果真结束<br /> .如果真 (读系数 ＝ “”)  ' excel表格——系数  J<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “系数”, “J”)<br /> .如果真结束<br /> .如果真 (读组价 ＝ “”)  ' excel表格——组价  K<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “excel表格”, “组价”, “K”)<br /> .如果真结束<br /> <br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 调试输出 (i)<br /> .如果真 (参数一 ＝ F5)<br /> <br />     启动线程 (&组价, , 组价句柄)<br /> .如果真结束<br /> .如果真 (参数一 ＝ F6)<br />     EX.退出 ()<br />     强制结束线程 (组价句柄)<br />     关闭线程句柄 (组价句柄)<br />     调试输出 (组价句柄)<br /> .如果真结束<br /> <br /> <br /> .子程序 组价<br /> .局部变量 文本, 文本型<br /> .局部变量 列数, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 序号, 文本型<br /> <br /> EX.创建 ()<br /> 调试输出 (EX.创建 ())<br /> EX.打开EXCEL (取运行目录 () ＋ “C:\Users\PC\Desktop\组价助手\组价文件.xlsx”, )<br /> EX.取行数列数 (行数, 列数)<br /> <br /> .计次循环首 (行数, 计次)<br />     标签1.标题 ＝ “当前编号：” ＋ EX.读单元格文本 (读序号 ＋ 到文本 (计次))  ' 序号显示<br />     标签2.标题 ＝ “系数：” ＋ EX.读单元格文本 (读名称 ＋ 到文本 (计次))  ' 系数显示<br />     标签3.标题 ＝ “组价：” ＋ EX.读单元格文本 (读组价 ＋ 到文本 (计次))  ' 名称显示<br />     标签4.标题 ＝ EX.读单元格文本 (读组价 ＋ 到文本 (计次))  ' 名称显示<br /> <br />     ' 操作<br />     置剪辑板文本 (EX.读单元格文本 (读组价 ＋ 到文本 (计次)))  ' 复制价格<br />     模拟按键 (#回车键, , )<br />     延迟 (到数值 (读回车))<br />     模拟按键 (#Ctrl键, #V键, )<br />     ' 剪辑板_取文本 ()<br />     延迟 (到数值 (读复制组价))<br />     模拟按键 (#回车键, , )<br />     延迟 (到数值 (读回车))<br />     模拟按键 (40, , )<br />     行数 ＝ 行数 ＋ 1<br />     调试输出 (“执行”)<br /> .计次循环尾 ()<br /> <br /> .子程序 载入新窗口, , , 只允许载入一个窗口的载入函数<br /> .参数 窗口, 窗口, , 欲载入的窗口<br /> .局部变量 被载入的窗口, 窗口, 静态<br /> .局部变量 载入的窗口句柄, 整数型, 静态<br /> <br /> .如果 (载入的窗口句柄 ≠ 0)<br /> <br /> .否则<br /> <br /> .如果结束<br /> .如果 (取窗口类名 (载入的窗口句柄) ＝ “”)<br />     载入 (窗口, , 假)<br />     被载入的窗口 ＝ 窗口<br />     载入的窗口句柄 ＝ 窗口.取窗口句柄 ()<br /> .否则<br />     载入 (被载入的窗口, , 假)<br /> .如果结束<br /> <br /> 载入 (窗口, , 假)<br /> 被载入的窗口 ＝ 窗口<br /> 载入的窗口句柄 ＝ 窗口.取窗口句柄 ()<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> <br /> 载入新窗口 (表格处理)

在这里调用了但是没数据，有大佬告诉我为啥嘛

Suky

通红的小钢炮 发表于 2023-8-18 13:19
破案了 没 初始化COM库

细节很重要，你这好几个错误点

通红的小钢炮

源码文件， 不知道怎么回事上传不了附件

https://cowtransfer.com/s/fefb3a10c9034c 点击链接查看 [ 组价助手.zip ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 f10hrx 查看；

风度猫

哪里调用没反应?没搞明白问的啥

Suky

  

EX.打开EXCEL (取运行目录 () ＋ “C:\Users\PC\Desktop\组价助手\组价文件.xlsx”, )

EX.打开EXCEL (取运行目录 () ＋ “C:\Users\PC\Desktop\组价助手\组价文件.xlsx”, )

看看这一条    你看看路径

补充内容 (2023-8-18 11:26):
取运行目录 () ＋ “C:\Users\PC\Desktop\组价助手\组价文件.xlsx”      请告诉我这个路径在什么地方，能读取到什么文件   ╮(╯▽╰)╭

通红的小钢炮

Suky 发表于 2023-8-18 11:24
EX.打开EXCEL (取运行目录 () ＋ “C:%users\PC\Desktop\组价助手\组价文件.xlsx”, )

看看这一 ...

这个确实错了，但是改了之后 创建表格 都是返回的假，肯定是哪里不对

通红的小钢炮

风度猫 发表于 2023-8-18 11:21
哪里调用没反应?没搞明白问的啥

组价那一行调用之后，调用的那个类返回的是假

通红的小钢炮

调用组价那个没反应

下弦月♩

通红的小钢炮 发表于 2023-8-18 11:48
调用组价那个没反应

你编译的程序和要调用的文件在同一个目录下嘛..如果用了取运行目录,组价文件.xlsx要跟你的程序在同个子目录里,或者不使用取运行目录...

通红的小钢炮

下弦月♩ 发表于 2023-8-18 12:36
你编译的程序和要调用的文件在同一个目录下嘛..如果用了取运行目录,组价文件.xlsx要跟你的程序在同个子目 ...

我改了没用 主要启动线程进入的那个就读不出来数据了