精易论坛

标题: 调用WPSoffice接口实现xlsx转pdf [打印本页]

作者: 蓝毅晨 时间: 2024-12-7 22:40
标题: 调用WPSoffice接口实现xlsx转pdf
来位大佬帮看一下，是哪里有问题

3E685845AF914C1F83CFA0D30FF8379A.png (29.11 KB, 下载次数: 0)

6DE3DC4EA88ECC6F71935727439A76E1.png (148.84 KB, 下载次数: 0)

作者: 错别字 时间: 2024-12-7 22:54
.版本 3
.支持库 spec
.支持库 wps

.程序集程序集_1

子程序 _启动子程序()
如果 (WPS.App ≠ 无) 则
      WPS.App.Quit()
      延迟 (2000)
WPS.App ＝创建对象 (“WPS.Application”)
如果 (WPS.App ＝无) 则
      信息框 (“无法创建 WPS 应用程序对象。”, 0, “错误”, 16)
      返回 ()
WPS.App.Visible ＝真

' 打开一个WPS表格文件
WPS.Books ＝ WPS.App.Books
WPS.Book ＝ WPS.Books.Open (取运行目录 () ＋ “\example.xlsx”)

' 转换为PDF
WPS.PDFConverter ＝创建对象 (“WPS.PDFConverter”)
WPS.PDFConverter.OutputFileName ＝取运行目录 () ＋ “\output.pdf”
WPS.PDFConverter.Convert (WPS.Book, WPS.PDFConverter.wpcOutputPDF)

' 关闭WPS表格文件，不保存
WPS.Book.Close (WPS.Book.wpcDoNotSaveChanges)

' 清理资源
释放对象 (WPS.PDFConverter)
释放对象 (WPS.Book)
释放对象 (WPS.Books)
释放对象 (WPS.App)

子程序 _结束子程序()
如果 (WPS.App ≠ 无) 则
      WPS.App.Quit()
      延迟 (2000)
释放对象 (WPS.App)

作者: kenan236 时间: 2024-12-7 23:47
666666666666666666666

作者: 我的yyy123 时间: 2024-12-8 08:03
学习学习

作者: 蓝毅晨 时间: 2024-12-8 11:28

错别字发表于 2024-12-7 22:54
.版本 3
.支持库 spec
.支持库 wps

大哥，能给e程序吗

欢迎光临精易论坛 (https://125.confly.eu.org/)