VB6.0操作WPS2019

以下VB6.0代码可以实现WPS2019个人免费版(不含VBA组件)的处理

Private Sub Command1_Click()
        Set xlApp = CreateObject("ket.Application")  '后期WPS，WPS2019个人PC版-V11.1.0.9584
        '网上查询说et.Application及excel.Application也能，但我测试都会提示错误
        Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & "测试.xls")  '打开指定路径指定名称文件
        xlApp.Visible = True '显示WPS界面
        Set xlSheet = xlBook.Worksheets(1) '定义，工作簿中第1个工作表
        xlSheet.Range("A2") = 123   '第一个工作表A2单元格写入数值123
        xlBook.Saveas (App.Path & "\" & "测试结果.xls")    '另存为指定路径和名称
        xlBook.Close    '关闭WPS
        MsgBox ("ok")
End Sub