如何将工作表另存为PDF文件并将其作为附件通过Outlook通过电子邮件发送？

如何将工作表另存为PDF文件并将其作为附件通过Outlook通过电子邮件发送？

在某些情况下，您可能需要通过Outlook将工作表作为PDF文件发送。 通常，您必须手动将工作表另存为PDF文件，然后在Outlook中使用带有该PDF文件作为附件的新电子邮件来发送。 一步一步地手动实现它很耗时。 在本文中，我们将向您展示如何快速将工作表另存为PDF文件并自动将其作为附件通过Excel中的Outlook发送。

将工作表另存为PDF文件并通过VBA代码作为附件通过电子邮件发送

将工作表另存为PDF文件并通过VBA代码作为附件通过电子邮件发送

您可以运行下面的VBA代码以将活动工作表自动保存为PDF文件，然后通过Outlook通过电子邮件将其作为附件发送。 请执行以下操作。

1.打开您将另存为PDF的工作表并发送，然后按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将以下VBA代码复制并粘贴到 代码 窗口。 看截图：

VBA代码：将工作表另存为PDF文件并通过电子邮件发送为附件

Sub Saveaspdfandsend() Dim xSht As Worksheet Dim xFileDlg As FileDialog Dim xFolder As String Dim xYesorNo As Integer Dim xOutlookObj As Object Dim xEmailObj As Object Dim xUsedRng As Range Set xSht = ActiveSheet Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) If xFileDlg.Show = True Then xFolder = xFileDlg.SelectedItems(1) Else MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder" Exit Sub End If xFolder = xFolder + "\" + xSht.Name + ".pdf" Check if file already exist If Len(Dir(xFolder)) > 0 Then xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _ vbYesNo + vbQuestion, "File Exists") On Error Resume Next If xYesorNo = vbYes Then Kill xFolder Else MsgBox "if you dont overwrite the existing PDF, I cant continue." _ & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro" Exit Sub End If If Err.Number <> 0 Then MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _ & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File" Exit Sub End If End If Set xUsedRng = xSht.UsedRange If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then Save as PDF file xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard Create Outlook email Set xOutlookObj = CreateObject("Outlook.Application") Set xEmailObj = xOutlookObj.CreateItem(0) With xEmailObj .Display .To = "" .CC = "" .Subject = xSht.Name + ".pdf" .Attachments.Add xFolder If DisplayEmail = False Then .Send End If End With Else MsgBox "The active worksheet cannot be blank" Exit Sub End If End Sub

3。 按 F5 键来运行代码。 在里面 浏览 对话框，请选择一个文件夹来保存此PDF文件，然后单击 OK 按钮。

:

相关文章: 如何使用时间戳保存Excel文件名？ 如何使用“另存为”功能自动覆盖Excel中的现有文件？ 如何在Excel中保存，导出多个/所有工作表到单独的csv或文本文件？ 如何在Excel中禁用或不允许“另存为”选项？ 如何禁用工作簿保存，但只允许在Excel中另存为？