EXCEL寄信VBA

以下設計參考麻棘家族討論區
網址 : http://gb.twbts.com/index.php?PHPSESSID=qgj0mcvquf36h372i3jumggno1&topic=6387.0
我有重新設計過
第一請先設定outlook為預設的電子郵件寄信軟體
第二設定C磁碟機的路徑案例為c:\alex
第三以目前的檔案工作表2為例
第四撰寫下列巨集程式
Sub EXCEL寄信VBA()
Sheet1.Copy
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
a = "ALEX"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & a

ActiveWorkbook.SendMail Array("alexmysir@gmail.com", "alexmysir@gmail.com"), a
ThisWorkbook.Activate
ThisWorkbook.Save
ThisWorkbook.Close

End Sub