- 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=79263)
-- 发布时间：2015/12/28 6:06:00
-- （求助）制作的excel报表打印pdf格式文件，在预览时弹出“文件未保存”框，和运行错误的报错，如何解决？
此主题相关图片如下：et~f@er@c6cj5n0`hcy5.png
-- 发布时间：2015/12/28 9:01:00
--
文件已在其它地方打开，先关闭
-- 发布时间：2015/12/28 9:16:00
--
用代码另存为pdf。
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\test.xls")
\'创建Excel文件对应的PDF文件
wb.Saved = True
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, "d:\\test.pdf", MsExcel.XlFixedFormatQuality.xlQualityStandard, True, False, System.Reflection.Missing.Value, System.Reflection.Missing.Value, True, System.Reflection.Missing.Value)
app.quit
catch ex As exception
msgbox(ex.message)
app.quit
End try