网上搜索了很久VB6.0操作WPS的问题，经过测试，以下代码可以实现WPS2019个人免费版(不含VBA组件)的处理，未测试其他处理是否与微软一致。
测试环境Windows10专业版+WPS2019个人PC版V11.1.0.9584

Private Sub Command1_Click()
        Set xlApp = CreateObject("ket.Application")  '后期绑定WPS，测试win10专业版+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

实际测试Set xlApp = CreateObject("EXCEL.Application")，在系统仅有WPS个人版时，会报错，不知道什么原因

对，我就是先判断有没打开Excel，再判断是否可以绑定Excel，不能再判断是否有打开WPS，再判断是否可以绑定WPS......这样不管什么版本的都可以了