Sub 導出為pdf()
aa = ThisWorkbook.Name ’當前工作薄名字
aa = Replace(aa, ".xlsm", "") ’將當前工作簿名字的后綴去掉 Replace 字符串替換函數
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & aa & " .pdf" ’導出為pdf （全部工作表，路徑為當前工作薄路徑，名字為當前工作薄名字）
End Sub