以下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