excl利用vba完成导出pdf操作

Sub 导出为pdf()

aa = ThisWorkbook.Name ’当前工作薄名字
aa = Replace(aa, ".xlsm", "") ’将当前工作簿名字的后缀去掉 Replace  字符串替换函数

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & aa & " .pdf"   ’导出为pdf （全部工作表，路径为当前工作薄路径，名字为当前工作薄名字）

End Sub