以下是引用atmetmicoo在2014-11-26 16:21:00的发言：黄老师，你好，
我也需要解决这个问题，但你写一个代码看不懂怎么弄，可否详细解答一下，谢谢：WorkBook.ExportAsFixedFormat
vba另存为pdf代码参考
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
'创建Excel文件对应的PDF文件
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, "d:\test.pdf", MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True, System.Reflection.Missing.Value, System.Reflection.Missing.Value, False, System.Reflection.Missing.Value)
app.quit
catch ex As exception
app.quit
End try
加好友 
发短信
Post By：2014/11/26 16:23:00 [显示全部帖子]
