如何将工作表另存为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 don't overwrite the existing PDF, I can't 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 按钮。
说明:
1.现在,活动工作表将另存为PDF文件。 PDF文件以工作表名称命名。
2.如果活动工作表为空白,则单击“确定”后将出现一个对话框,如下图所示。 OK 按钮。
4.现在,将创建新的Outlook电子邮件,您可以看到PDF文件作为附件列在附件字段中。 看截图:
5.请撰写此电子邮件,然后发送。
6.仅当使用Outlook作为邮件程序时,此代码才可用。
一次轻松地将一个或多个工作表另存为单独的PDF文件:
新的 拆分工作簿 实用程序 Kutools for Excel 可以帮助您轻松地一次将一个工作表或多个工作表另存为单独的PDF文件,如下面的演示所示。 立即下载并试用! (30-天自由行)
相关文章:
- 如何使用时间戳保存Excel文件名?
- 如何使用“另存为”功能自动覆盖Excel中的现有文件?
- 如何在Excel中保存,导出多个/所有工作表到单独的csv或文本文件?
- 如何在Excel中禁用或不允许“另存为”选项?
- 如何禁用工作簿保存,但只允许在Excel中另存为?
最佳办公效率工具
Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%
- 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
- 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
- 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
- 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
- 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
- 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
- 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
- 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
- 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松
- 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
- 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
- 每天将您的工作效率提高50%,并减少数百次鼠标单击!


#20277
该评论由网站上的主持人最小化
0
0

#20278
该评论由网站上的主持人最小化
0
0

#22279
该评论由网站上的主持人最小化
0
0

#22280
该评论由网站上的主持人最小化
报告
0
0

#22281
该评论由网站上的主持人最小化
0
0

#22282
该评论由网站上的主持人最小化
0
0

#24346
该评论由网站上的主持人最小化
报告
0
0

#24347
该评论由网站上的主持人最小化
报告
0
0

#24348
该评论由网站上的主持人最小化
0
0

#24349
该评论由网站上的主持人最小化
报告
0
0

#24350
该评论由网站上的主持人最小化
0
0

#24351
该评论由网站上的主持人最小化
0
0

#24352
该评论由网站上的主持人最小化
报告
0
0

#24839
该评论由网站上的主持人最小化
0
0

#24840
该评论由网站上的主持人最小化
报告
0
0

#25005
该评论由网站上的主持人最小化
0
0

#25006
该评论由网站上的主持人最小化
报告
0
0

#26183
该评论由网站上的主持人最小化
0
0

#26184
该评论由网站上的主持人最小化
报告
0
0

#29450
该评论由网站上的主持人最小化
0
0

#29502
该评论由网站上的主持人最小化
0
0

#29503
该评论由网站上的主持人最小化
报告
0
0

#30839
该评论由网站上的主持人最小化
0
0

#30840
该评论由网站上的主持人最小化
0
0

#40196
该评论由网站上的主持人最小化
0
0

#32506
该评论由网站上的主持人最小化
报告
0
0

#32507
该评论由网站上的主持人最小化
报告
0
0

#33679
该评论由网站上的主持人最小化
0
0

#33680
该评论由网站上的主持人最小化
报告
0
0

#33681
该评论由网站上的主持人最小化
0
0

#33682
该评论由网站上的主持人最小化
报告
0
0

#33683
该评论由网站上的主持人最小化
报告
0
0

#34153
该评论由网站上的主持人最小化
0
0

#34748
该评论由网站上的主持人最小化
报告
0
0

#34749
该评论由网站上的主持人最小化
报告
0
0

#35017
该评论由网站上的主持人最小化
报告
0
0

#35061
该评论由网站上的主持人最小化
0
0

#35062
该评论由网站上的主持人最小化
报告
0
0

#35063
该评论由网站上的主持人最小化
0
0

#35064
该评论由网站上的主持人最小化
报告
0
0

#35283
该评论由网站上的主持人最小化
报告
0
0

#35284
该评论由网站上的主持人最小化
报告
0
0

#35285
该评论由网站上的主持人最小化
0
0

#35286
该评论由网站上的主持人最小化
报告
0
0

#35287
该评论由网站上的主持人最小化
0
0

#35336
该评论由网站上的主持人最小化
0
0

#35337
该评论由网站上的主持人最小化
报告
0
0

#35342
该评论由网站上的主持人最小化
报告
0
0

#35677
该评论由网站上的主持人最小化
0
0

#35678
该评论由网站上的主持人最小化
0
0

#35699
该评论由网站上的主持人最小化
0
0
这里还没有评论