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

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

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

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

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

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