Как прикрепить рабочий лист Excel как PDF Вложение в вашем электронном письме Outlook

Перспективные решения 29 сентября, 2025

Если вы хотите быстро преобразовать рабочий лист Excel в PDF файл, а затем прикрепите это PDF файл в электронное письмо Outlook, чтобы отправить его, вы можете использовать метод, представленный в этой статье. Он использует VBA для выполнения этой задачи за считанные секунды.

Честно говоря, чтобы прикрепить всю книгу Excel как PDF вложение в электронном письме довольно просто. Вы можете сначала сохранить книгу как PDF файл, а затем создайте новое электронное письмо Outlook и прикрепите PDF файл на эту почту. Однако в Excel нет такой прямой функции для преобразования одного рабочего листа в PDF файл и отправить по почте. Таким образом, если вы хотите быстро прикрепить рабочий лист Excel в качестве PDF вложение в электронном письме, вы можете использовать следующие средства.

Прикрепите рабочий лист Excel как PDF Вложение в вашем электронном письме

Во-первых, вам нужно открыть исходный лист Excel как обычно.
Затем в окне Excel следует нажать клавиши «Alt + F11».
Впоследствии вы успешно получите доступ к окну редактора Excel VBA.
После этого вам нужно открыть проект ThisWorkbook.
Затем скопируйте и вставьте следующий код VBA в это окно проекта.

Sub SendWorksheet_AsPDFAttachment_OutlookEmail()
    Dim objFileSystem As Object
    Dim strTempFile As String
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    'Specify the worksheet name
    Sheets("DataNumen Staff").Activate
    ActiveSheet.UsedRange.Select
    ThisWorkbook.Sheets(Array("DataNumen Staff")).Select
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFile = objFileSystem.GetSpecialFolder(2).Path & "\" & ActiveSheet.Name & " in " & ThisWorkbook.Name & ".pdf"
 
    'export the specific worksheet as PDF
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strTempFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objMail = objOutlookApp.CreateItem(olMailItem)
 
    'Attach the PDF file
    objMail.Attachments.Add strTempFile
    objMail.Display '==>display this email
 
    'Delete the temp PDF file
    objFileSystem.DeleteFile (strTempFile)
End Sub

В конце концов, чтобы запустить новый макрос, вы можете нажать значок «Выполнить» на панели инструментов или сразу нажать кнопку «F5».
После завершения работы макроса сразу же отобразится новое электронное письмо Outlook. В нем можно увидеть PDF файл в строке «Прикрепленный», как на следующем снимке экрана:

Защитите файл Outlook от повреждения

Как мы все знаем, Outlook подвержен повреждению, подобно документам Word и книгам Excel. Поэтому мы должны понимать, как защитить Outlook от порчи. Из-за того, что вирусы становятся все более и более сложными и безудержными, Outlook часто повреждается из-за заражения вирусами и атак вредоносных программ. В этой ситуации вам необходимо установить надежное антивирусное программное обеспечение и отключить автозагрузку внешних файлов. Кроме того, вам лучше приобрести пыльник крепкий Исправление Outlook инструмент, как DataNumen Outlook Repair. Он может предоставить вам мost эффективное средство в случае повреждения Outlook.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com