上尉
UID2313851
U币1
G币4719
技术0
主题24
精华0
阅读权限90
注册时间2015-3-18
最后登录2023-8-16
在线时间861 小时
QQ
手机18625208635
上尉
|
推荐
楼主 |
发表于 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.关闭 ()
自己参考改 |
|