引用upgrade wps presentation--WPS的VB？？？

ning84

WPS的VB与Office VBA?????





**************************************
VB 引用 upgrade wps presentation
在VB中，要升级WPS演示文稿，可以使用WPS提供的COM组件进行操作。以下是一个VB代码示例，演示如何使用VB脚本来升级WPS演示文稿文件：

Dim wpsApp As Object
Dim pres As Object

' 尝试获取WPS应用程序的实例
On Error Resume Next
Set wpsApp = GetObject(, "WPS.Application")
If Err.Number <> 0 Then
    MsgBox "WPS程序未启动", vbExclamation, "提示"
    Exit Sub
End If
On Error GoTo 0

' 打开WPS演示文稿
Set pres = wpsApp.Presentations.Open("C:\path\to\your\presentation.wps")

' 执行升级操作
pres.Save() ' 保存文件将自动进行升级

' 关闭演示文稿
pres.Close()

' 清理对象
Set pres = Nothing
Set wpsApp = Nothing

MsgBox "升级完成", vbInformation, "提示"
确保将"C:\path\to\your\presentation.wps"替换为实际WPS演示文稿文件的路径。

注意：

确保WPS Office已经安装在您的计算机上。

确保你的VB环境能够访问WPS的COM组件。

在运行脚本之前，请确保你的WPS版本支持通过COM自动化


********************************************************

如何获取VBA宏的使用权限-WPS学堂  https://www.wps.cn/learning/article/detail/id/12181

LIUZHU

Set wpsApp = GetObject(, "WPS.Application")，这句对吗？应该是Set wpsApp = GetObject(, "Kwpp.Application")吧？

ning84

1. 
   
2. Function OpenPpt(PptName As String)
   
3.      Dim PresS As Presentations
   
4.          Set PresS = Application.Presentations
   
5.      Dim Pres As Presentation
   
6.          For Each Pres In PresS
   
7.               Debug.Print Pres.FullName
   
8.               If UCase(Pres.FullName) = UCase(PptName) Then
   
9.                    Set OpenPpt = Pres
   
10.                    Exit Function
    
11.               End If
    
12.          Next Pres
    
13.          Set OpenPpt = PresS.Open(PptName)
    
14.          
    
15. End Function
    

复制代码

ning84

LIUZHU 发表于 2024-4-7 10:02
Set wpsApp = GetObject(, "WPS.Application")，这句对吗？应该是Set wpsApp = GetObject(, "Kwpp.Applicat ...

谢谢回复

本人喜欢正确的引用项




但结果出问题。
kingsoft wps 2.0 object  liberay出错。




高手提供的代码成立。


  Dim WpsApp As Application
   Set WpsApp = GetObject(, "Kwpp.Application")

ning84

优化程序

1. 
   
2. 
   
3. Sub ll()
   
4.   Dim WpsApp As Application
   
5.    'Set WpsApp = GetObject(, "Kwpp.Application")
   
6. 
   
7.    
   
8.    Dim Pres As Presentation
   
9.         
   
10.          
    
11.          Set Pres = OpenPpt("C:\Z.ppt")
    
12.          With Pres
    
13.              Debug.Print .Name, .Slides.Count, .FullName
    
14.          End With
    
15.    Stop
    
16.    Dim Wk As Workbook, Sht As Worksheet
    
17.        Set Wk = Application.Workbooks(1)
    
18.        Set Sht = Wk.Sheets(1)
    
19.    Debug.Print Wk.Name, Sht.Name
    
20. End Sub
    
21. 
    
22. Function OpenPpt(PptName As String)
    
23.     Dim WpsApp As PowerPoint.Application
    
24.     'Set WpsApp = GetObject(, "Kwpp.Application")
    
25.      Set WpsApp = New PowerPoint.Application
    
26.      
    
27.         
    
28.      Dim PresS As Presentations
    
29.          Set PresS = WpsApp.Presentations
    
30.      Dim Pres As Presentation
    
31.          For Each Pres In PresS
    
32.               Debug.Print Pres.FullName
    
33.               If UCase(Pres.FullName) = UCase(PptName) Then
    
34.                    Set OpenPpt = Pres
    
35.                    Exit Function
    
36.               End If
    
37.          Next Pres
    
38.          Set OpenPpt = PresS.Open(PptName)
    
39.          
    
40. End Function
    
41. 
    

复制代码