最新版本的WPS如何用VBA代码创建工作簿

剑气流形

朋友们能帮忙看下这段vba代码哪里有误吗(该段代码写在CAD的thisdrawing中)？用的是最新版的WPS。在测试的时候也能打开WPS，但是没有办法新建工作簿。
测试代码的时候，最后一句有误。错误438：对象不支持该属性或方法。
想问下最新的WPS要怎样新建工作簿呢？

Sub OpenWPSWriter()

    Dim wpsApp As Object  ' 使用 Object 类型以避免编译时类型检查

    ' 创建 WPS 应用程序
    On Error Resume Next ' 忽略错误
    Set wpsApp = CreateObject("Kwps.Application")  ' 正确的 ProgID
    If Err.Number <> 0 Then
        MsgBox "无法创建 WPS 应用程序对象。请检查 WPS 是否已安装并正确注册。"
        Exit Sub
    End If
    On Error GoTo 0 ' 恢复正常的错误处理
    wpsApp.Visible = True ' 使 WPS 应用程序可见
   
    ' 打开工作簿
    Dim KetWorkbook As Object
    Dim filePath As String
   
    ' 指定要打开的 Excel 文件的路径
    filePath = "C:\Users\admin\Desktop\测试\工程.xlsm"
    ' 打开指定的 Et 文件
    Set KetWorkbook = wpsApp.Workbooks.Add
   
End Sub