易语言用对象操作excel单元格,主要围绕三个对象:
workbooks,wordsheets,ranges
等同的还有sheets,range。
‘本例对当前工作簿的Excel表格中的活动单元格进行文字或数字的输入。
操作前,提前打开一个excel文档。窗口中增加两个编辑框组件,一个按钮组件。
.版本 2
.子程序 活动单元格操作
.参数 定位, 编辑框
.参数 输入文本, 编辑框
.局部变量 excel, 对象
.局部变量 books, 对象
.局部变量 sheets, 对象
.局部变量 ranges, 对象
.局部变量 value, 变体型
.局部变量 cell1, 变体型
.局部变量 cell2, 变体型
cell1.赋值 (定位.内容, )
' 此处将纯数字文本按数字输入excel,excel中数字与文本的区别在于数字默认靠右对齐,文本默认靠左对齐。例如:“'1234”是文本,“1234”则转换为数字。
.如果 (是否全部为数值_Code (输入文本.内容))
value.赋值 (到数值 (输入文本.内容), )
.否则
value.赋值 (输入文本.内容, )
.如果结束
excel.获取 (“excel.application”)
books = excel.读对象型属性 (“ActiveWorkbook”, )
sheets = books.读对象型属性 (“Activesheet”, )
ranges = sheets.读对象型属性 (“Range”, cell1, )
ranges.对象型方法 (“Select”, ) ' select代表先选择单元格,再操作,能够实时定位当前活动单元格位置
' ranges.写属性 (“FormulaR1C1”, value) ' 输入数据方法一
ranges.写属性 (“Vaule”, value) ' 输入数据方法二
excel.清除 ()
注:是否全部为数值_Code ()’判 断一个文本是否全为数字。
代码地址:https://blog.csdn.net/fl1768317420/article/details/53142392