以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教一个excel报表转pdf报表的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69889)
--  作者：sloyy
--  发布时间：2015/6/12 13:05:00
--  
多了一句

Book.Save(fl)
--  作者：狐狸爸爸
--  发布时间：2015/6/12 14:57:00
--  
这是一个bug，下次改进
--  作者：大红袍
--  发布时间：2015/6/12 15:00:00
--  

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\坯布.xls")
Dim f1 As String = ProjectPath & "Reports\\坯布.pdf"
Dim f2 As String = ProjectPath & "Reports\\坯布.xls"
Book.Build()
Book.Save(f2)
 
Dim App As New MSExcel.Application
try  
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f2)
    \'创建Excel文件对应的PDF文件
    wb.Saved = True
    wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, f1, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

Dim Proc As New Process
Proc.File = f1
Proc.Start()