【按键精灵】利用Excel完成数据读写

最新推荐文章于 2024-08-07 13:38:58 发布

至冬的汤圆

最新推荐文章于 2024-08-07 13:38:58 发布

阅读量1.3w

点赞数 6

分类专栏：按键精灵

本文链接：https://blog.csdn.net/qq_33990365/article/details/124223661

版权

脚本语言数据库

按键精灵专栏收录该内容

6 篇文章

订阅专栏

本文介绍如何利用按键精灵的Office办公文档插件，通过读写Excel单元格操作，实现传统ini文件的替代，通过实例演示了读取并相加单元格后写入的功能，提升脚本数据管理的便捷性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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