【按键精灵】利用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，确认无误！