| 以文本方式查看主题 - 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=48960) |
| -- 作者：rjh4078 -- 发布时间：2014/4/9 19:27:00 -- 如何将一个excel报表保存为PDF格式？ 如题 通过系统代码生成 不是要在excel里再操作的 [此贴子已经被作者于2014-4-9 19:28:33编辑过]
|
| -- 作者：sloyy -- 发布时间：2014/4/9 22:23:00 -- SavePDF |
| -- 作者：rjh4078 -- 发布时间：2014/4/9 23:06:00 -- 这个是将表保存为PDF 我现在想知道通过excel模板生成的表单如何通过代码转成PDF |
| -- 作者：don -- 发布时间：2014/4/10 7:41:00 -- Dim flt1,flt2 As String flt1 = "D:\\Book1.xls" flt2 = "D:\\Test.PDF" If Not FileSys.FileExists(flt1) Then Messagebox.Show("文件不存在或已经被删除!","提示") Return False End If Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(flt1) wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, flt2) App.Quit
|
| -- 作者：rjh4078 -- 发布时间：2014/4/10 8:50:00 -- 以下是引用don在2014-4-10 7:41:00的发言：
Dim flt1,flt2 As String
flt1 = "D:\\Book1.xls"
flt2 = "D:\\Test.PDF"
If Not FileSys.FileExists(flt1) Then
Messagebox.Show("文件不存在或已经被删除!","提示")
Return False
End If
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(flt1)
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, flt2)
App.Quit 非常感谢 帮了大忙了
|