VBA保存Excel并将文档复制到剪贴板

Question

有时，我需要使用在Excel中进行的计算来回复电子邮件。为此，我首先保存Excel文件，在资源管理器中搜索该文件，将其复制，最后将其粘贴到邮件正文（答复）中，以将其添加为我的答复的附件。

我知道您可以使用VBA保存到特定文件夹。我想知道现在是否还可以使用VBA将文件复制到剪贴板。这样，我可以将其直接粘贴到邮件中。

Answer 1

Sub testmail()
Dim oOutlook As Object
Dim Reply As Object
Dim Original As Object

Set oOutlook = CreateObject("Outlook.Application")
Set Original = oOutlook.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
With Reply
.Attachments.Add 'refer to attachment
.Display

End With

此代码将完成工作。我仍然需要添加一些代码来保存Excel文件，但是一旦保存了文件，上面的代码会将保存的文档添加到对Outlook中所选邮件的回复中。