Sub 导出为pdf()
aa = ThisWorkbook.Name ’当前工作薄名字
aa = Replace(aa, ".xlsm", "") ’将当前工作簿名字的后缀去掉 Replace 字符串替换函数
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & aa & " .pdf" ’导出为pdf （全部工作表，路径为当前工作薄路径，名字为当前工作薄名字）
End Sub