Bagaimana cara menyimpan lembar kerja sebagai file PDF dan mengirimkannya melalui email sebagai lampiran melalui Outlook?
Dalam beberapa kasus, Anda mungkin perlu mengirim lembar kerja sebagai file PDF melalui Outlook. Biasanya, Anda harus menyimpan lembar kerja secara manual sebagai file PDF, lalu membuat email baru dengan file PDF ini sebagai lampiran di Outlook Anda dan akhirnya mengirimkannya. Butuh waktu lama untuk mencapainya secara manual langkah demi langkah. Pada artikel ini, kami akan menunjukkan cara cepat menyimpan lembar kerja sebagai file PDF dan mengirimkannya secara otomatis sebagai lampiran melalui Outlook di Excel.
Simpan lembar kerja sebagai file PDF dan kirimkan melalui email sebagai lampiran dengan kode VBA
Simpan lembar kerja sebagai file PDF dan kirimkan melalui email sebagai lampiran dengan kode VBA
Anda dapat menjalankan kode VBA di bawah ini untuk secara otomatis menyimpan lembar kerja aktif sebagai file PDF, lalu mengirimkannya melalui email sebagai lampiran melalui Outlook. Silakan lakukan sebagai berikut.
1. Buka lembar kerja yang akan Anda simpan sebagai PDF dan kirim, lalu tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke file Kode jendela. Lihat tangkapan layar:
Kode VBA: Simpan lembar kerja sebagai file PDF dan kirimkan melalui email sebagai lampiran
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. tekan F5 kunci untuk menjalankan kode. Dalam Browse kotak dialog, pilih folder untuk menyimpan file PDF ini, lalu klik OK .
Catatan:
Simpan lembar kerja atau beberapa lembar kerja dengan mudah sebagai file PDF terpisah sekaligus:
Grafik Pisahkan Buku Kerja kegunaan Kutools untuk Excel dapat membantu Anda dengan mudah menyimpan lembar kerja atau beberapa lembar kerja sebagai file PDF terpisah sekaligus seperti yang ditunjukkan demo di bawah ini. Unduh dan coba sekarang! (Jejak gratis 30 hari)
Terkait artikel:
- Bagaimana cara menyimpan nama file Excel dengan cap waktu?
- Bagaimana cara menggunakan fungsi Save As untuk secara otomatis menimpa file yang ada di Excel?
- Bagaimana cara menyimpan, mengekspor beberapa / semua lembar ke file csv atau teks terpisah di Excel?
- Bagaimana cara menonaktifkan atau tidak mengizinkan opsi Save & Save As di Excel?
- Bagaimana cara menonaktifkan penyimpanan buku kerja tetapi hanya mengizinkan penyimpanan seperti di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!