Excel刀具单制作完成，分享测试版

moyinfeng

继续改进

2746818926

谢谢大佬

coocool05

纯真天然呆 发表于 2021-11-4 07:38
还是不行 会跟Excel版本有关系吗  我用的是Excel 2016

你按我说的弄了？你有没有多开Excel刀单表，你在看看任务管理里的进程，有Excel.exe的都终极了

纯真天然呆

coocool05 发表于 2021-11-3 19:40
你注销下电脑删除下jietu目录下的刀具单文件，或者你任务管理器结束Excel进程，再重新处理应该可以解决

还是不行 会跟Excel版本有关系吗  我用的是Excel 2016

coocool05

且行且珍惜、 发表于 2021-11-3 23:02
唯一不方便就是还需要手动截图，如果能自动截图就好了，例如星空那种。还有环境变量有没有备用可以替换的， ...

下个版本再测试中，这次把所需文件全部封装到软件上，就不用手动添加了

coocool05

且行且珍惜、 发表于 2021-11-3 23:02
唯一不方便就是还需要手动截图，如果能自动截图就好了，例如星空那种。还有环境变量有没有备用可以替换的， ...

环境变量不用设置的，我抄袭大神的文本复制进去了，后来发现不用也可以的，目录是要有的，不然刀具信息和截图没地方存储，这个是后处理刀具单，达不到外挂的要求

且行且珍惜、

唯一不方便就是还需要手动截图，如果能自动截图就好了，例如星空那种。还有环境变量有没有备用可以替换的，目前这变量已经被我占用了，公用一个有点不方便

coocool05

2746818926 发表于 2021-11-3 10:16
大佬可以分享一下易语言源码吗?学习一下

.版本 2
.支持库 eExcel2000

.子程序 _按钮1_被单击
.局部变量 工作簿对象1, 对象
.局部变量 范围1, 对象
.局部变量 行对象1, 对象
.局部变量 行, 整数型
.局部变量 列对象1, 对象
.局部变量 列, 整数型
.局部变量 首单元格, 文本型
.局部变量 局_i, 整数型
.局部变量 局_a, 整数型
.局部变量 临时数据, 文本型, , "0"
.局部变量 局_更新错误, 逻辑型

Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 ("文件路径")
Excel工作簿1.激活工作簿 ()
Excel工作簿1.激活表格 ()
Excel工作簿1.表格序号 ＝ 参_序号

工作簿对象1 ＝ Excel工作簿1.取表格对象 ()
范围1 ＝ 工作簿对象1.读对象型属性 (“UsedRange”, )
行对象1 ＝ 范围1.读对象型属性 (“Rows”, )
行 ＝ 行对象1.读数值属性 (“Count”, )
列对象1 ＝ 范围1.读对象型属性 (“Columns”, )
' 列 ＝ 列对象1.读数值属性 (“Count”, )
' 计次循环首 (行, 局_a)
Excel工作簿1.首单元格 ＝ “A1”
Excel工作簿1.尾单元格 ＝ “A1”
Excel工作簿1.内容="22"
Excel工作簿1.首单元格 ＝ “B1”
Excel工作簿1.尾单元格 ＝ “B1”
Excel工作簿1.内容="33"
Excel工作簿1.首单元格 ＝ “C1”
Excel工作簿1.尾单元格 ＝ “C1”
Excel工作簿1.内容="66"

工作簿对象1 ＝ Excel工作簿1.取工作簿对象 ().读对象型属性 (“Application”, )
工作簿对象1.写属性 (“DisplayAlerts”, 假)
工作簿对象1.方法 (“save”, )  ' 以原文件名保存文件，需要保存请用此行
工作簿对象1.方法 (“Quit”, )
工作簿对象1.清除 ()
Excel工作簿1.释放 ()
Excel工作簿1.关闭 ()

自己参考改

coocool05

纯真天然呆 发表于 2021-11-3 17:21
谢谢楼主分享！环境变量都改了  文件也放到制定位置了  但是程序单是空白的

你注销下电脑删除下jietu目录下的刀具单文件，或者你任务管理器结束Excel进程，再重新处理应该可以解决

mon19879

感谢分享！下来学习学习..