|
|
楼主 |
发表于 2021-11-3 22:41:29
来自手机
|
显示全部楼层
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.关闭 ()
自己参考改 |
|
发表于 2021-10-31 23:34:35
