【按键精灵】利用Excel完成数据读写 |
您所在的位置：网站首页 › 办公软件excel表格手机可以做吗 › 【按键精灵】利用Excel完成数据读写 |
【按键精灵】利用Excel完成数据读写
|
还在用传统的ini文件来记录脚本数据吗？这里有更合适的方法。通过使用按键精灵的Office 办公文档插件，可以对Excel单元格内容进行读写。本文将通过一个简单的例子（读取文件内容相加后写入单元格）来帮助大家认识。 【1】首先，在指定位置新建一个xlsx文件，如F:\TEST.xlsx，输入内容保存关闭，如图示。
【2】新建一个脚本文件，并组装读写函数 Dim 数据库路径 数据库路径 = "F:\TEST.xlsx" //读取数据 Function r_db(表, 行, 列, 日志) Plugin.Office.OpenXls 数据库路径 //打开Excel Rev = Plugin.Office.ReadXls(表, 行, 列) //读取指定表的单元格内容 If 日志 Then //输出日志 TracePrint "[" & Time & " ] (" & 表 & "->" &行&","&列& ") = " & Rev End If Plugin.Office.CloseXls //关闭Excel r_db = Rev //返回值 End Function //写入数据 Function w_db(表, 行, 列, 值, 日志) Plugin.Office.OpenXls 数据库路径 Call Plugin.Office.WriteXls(表, 行, 列, 值) //将值写入指定表的单元格 If 日志 Then TracePrint "[" & Time & " ] (" & 表 & "->" &行&","&列& ") -> " & 值 End If Plugin.Office.CloseXls w_db = 值 End Function【3】读取D2和D3单元格，相加后写入D4单元格，代码如下，得到结果如图 D2 = r_db("Sheet1", 2, 4, 1) D3 = r_db("Sheet1", 3, 4, 1) TracePrint w_db("Sheet1", 4, 4, D2+D3, 1)
【4】检查，打开F:\TEST.xlsx，确认无误！
|
【本文地址】
今日新闻 |
推荐新闻 |