[已解决]哪位大神给我一段AU3简单操作WPS表格的例子。。。。。
本帖最后由 cqh100 于 2013-9-17 16:12 编辑哪位大神给我一段AU3简单操作WPS表格的例子。。。。。
我看了WPS的API二次开发,还是一头雾水。。。
求哪位大神给我一段AU3操作WPS表格的例子,,要求不高,
就是通过AU3操作et打开D:\abc.xls,写入500到第一个单元个,再读取第一个单元格的内容就行了。。
看了例子我应该就会了。。希望大神们不吝赐教。。。。 回复 1# cqh100
WPS官网有接口和示例 回复 2# 楼上风云
能不能给个链接??我是真找不到。。只有C#、VBA等程序的示例。。。 不会有AU3示例的,需要自己用AU3来写 本帖最后由 cqh100 于 2013-9-17 16:10 编辑
还是没有大神给答案,,自己费了九牛二虎之力,终于搞定了,我来分享一小段代码吧。注意,运行这段代码需要大家先安装WPS office 2013,反正我装的是这个版本。。Local $obj = regdll()
Func regdll()
Local $obj = ObjCreate("ET.Application") ;建立ET类
If Not IsObj($obj) Then
MsgBox(0, '', '类建立失败')
Exit
Else
$obj.visible = True
MsgBox(0, '', '完成类建立! '& $obj.visible );不知道为啥,visible总是不能为True
EndIf
Return $obj
EndFunc
Local $objA1 = $obj.Workbooks.open(@DesktopDir &"\123.xls") ;打开工作薄,需要在桌面先建立123.xls文件。
Local $var = $objA1.Sheets.Item(1) ;获取第一个工作表的名字
MsgBox (1,"123", "第一个工作簿的名称为:" & $var.name)
$objA1.worksheets($var).activate() ;激活工作表
$var.Range("A1").Value = 3.141562;写入数据到工作表的A1
Local $varA1 = $var.Range("A1").Value();读取A1单元格数据
MsgBox (1,"123", "第一个单元格的值:" & $varA1)
$objA1.save() ;保存工作薄
$obj.Workbooks.close() ;关闭所有工作薄另外就是,如需参考wps的api手册,请大家自行到官网论坛下载。。
页:
[1]