如何將工作表另存為PDF文件並將其作為附件通過Outlook通過電子郵件發送?
在某些情況下,您可能需要通過Outlook將工作表作為PDF文件發送。 通常,您必須手動將工作表另存為PDF文件,然後在Outlook中使用帶有該PDF文件作為附件的新電子郵件來發送。 一步一步地手動實現它很耗時。 在本文中,我們將向您展示如何快速將工作表另存為PDF文件並自動將其作為附件通過Excel中的Outlook發送。
將工作表另存為PDF文件並通過VBA代碼作為附件通過電子郵件發送
將工作表另存為PDF文件並通過VBA代碼作為附件通過電子郵件發送
您可以運行下面的VBA代碼以將活動工作表自動保存為PDF文件,然後通過Outlook通過電子郵件將其作為附件發送。 請執行以下操作。
1.打開您將另存為PDF的工作表並發送,然後按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。
2。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊。 然後將以下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文件:
拆分工作簿 的效用 Excel的Kutools 可以幫助您輕鬆地一次將一個工作表或多個工作表另存為單獨的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
這裡還沒有評論