还在用传统的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,确认无误!

Logo

有“AI”的1024 = 2048,欢迎大家加入2048 AI社区

更多推荐