VBA сохранить Excel и скопировать документ в буфер обмена

Question

Иногда мне нужно ответить на электронное письмо с подсчетом, который я сделал в Excel.Для этого я сначала сохраняю Excel-файл, ищу файл в Проводнике, копирую его и, наконец, вставляю его в тело письма (ответа), чтобы добавить его в качестве приложения к моему ответу.

Iзнать, что вы можете сохранить в определенную папку с помощью 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.