如何将活动的Excel工作簿附加到电子邮件

I have been trying all morning to get this VBA script to attach my active excel document to an auto-generated outlook message. Everything works fine if I declare the file path as a string and attach it. Except that I would like to attach the full file path of the current excel document instead of using a static string value. I have been trying all morning to get this VBA