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

大哥，能给e程序吗

学习学习

666666666666666666666

.版本 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)