求助vb6打开指定wps电子表格a.xls文件并写入数据的问题

tippical 发布于 2015-09-25 17:14， 2607 次点击

Dim wpsobj As Object, shtobj As Object
Private Sub Command1_Click()
shtobj.Cells(1, 1).Value = Text1.Text
shtobj.Cells(1, 2).Value = Text2.Text
wpsobj.Save (App.Path & "\" & "a.xls")
Workbooks.Close '关闭
End Sub
Private Sub Form_Load()
Set wpsobj = CreateObject("ket.application")
'这一句该怎么写？？路径是(App.Path & "\" & "a.xls")
········
。。。。。。。。
wpsobj.Visible = True

End Sub

4 回复

风吹过b2015-09-26 10:09

会操作 EXCEL 吗？
使用 WPS 电子表格，与操作 EXCEL 是一样的，只是最开头建立对象的对象类不同而以。

wmf20142015-09-26 10:41

.xls不是excel的表格么？据说wps的电子表格后缀为.et。

tippical2015-09-26 12:59

回复 2楼风吹过b

那你运行一下我的代码试试！！会报错！！该怎么修改啊？

风吹过b2015-09-26 16:04

Set wpsobj = CreateObject("ket.application")
我记得 WPS表格的对象名是 ET ，而不是 KET ，
下周一才能把代码复出来。

----------------------------
如果电脑上，只安装了 WPS ，那么配置里勾选了兼容模式后，
创建 EXCEL 对象会自动变成 WPS表格对象。