以下是引用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