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

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