如何通过电子邮件发送一个macros的Excel文件

我收到了一个Excel数据工作簿，我用一个button激活macros添加了一个macros。 我必须通过电子邮件将macros工作簿与macros返回。 我将工作簿作为附件添加到电子邮件中。 我想检查附加的文件，看看是否一切正常，我看到macros不在那里。

Excel文件启用了macros。

这应该怎么做？ 谢谢。

Answer 1

发送前保存为.XLSM，正在进行小testing。 如果打开多个工作簿，也可以指定工作簿名称。

 Sub marco() With ActiveWorkbook.Sheets(1) Range("a21").Select ActiveCell.Formula = "=sum(a2:a20)" End With ActiveWorkbook.SaveAs _ "C:\Documents and Settings\Desktop\file.xlsm", FileFormat:=52 ActiveWorkbook.SendMail Recipients:="[e-mail]" End Sub