鞠胜忠:
利用excel的pdf输出功能即可。参考:SubexportPdf(sheetNameAsString,ByValpnameAsString)DimpdfPathAsStringpdfPath=ThisWorkbook.Path&"\pdf\"Sheets(sheetName).ActivateIfDir(pdfPath,vbDirectory)=""ThenMkDirpdfPathEndIfActiveSheet.ExportAsFixedFormat_Type:=xlType....