Bagaimana cara mengekspor tabel badan email agar unggul di Outlook?
Saat Anda menerima email yang berisi beberapa tabel di badan, terkadang, Anda mungkin perlu mengekspor semua tabel dari badan pesan ke lembar kerja excel. Biasanya, Anda dapat menyalin dan menempel tabel ke lembar kerja, tetapi, di sini, saya akan berbicara tentang metode yang berguna untuk menyelesaikan pekerjaan ini saat ada beberapa tabel yang perlu diekspor.
Ekspor semua tabel dari badan pesan Outlook ke lembar kerja Excel dengan kode VBA
Ekspor semua tabel dari badan pesan Outlook ke lembar kerja Excel dengan kode VBA
Harap terapkan kode VBA berikut untuk mengekspor semua tabel dari satu badan pesan ke lembar kerja Excel.
1. Buka pesan yang ingin Anda ekspor tabelnya, lalu tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul jendela.
Kode VBA: Ekspor semua tabel dari badan pesan ke lembar kerja excel:
Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
Set xDoc = xMailItem.GetInspector.WordEditor
For I = 1 To xDoc.Tables.Count
Set xTable = xDoc.Tables(I)
xTable.Range.Copy
xWs.Paste
xRow = xRow + xTable.Rows.Count + 1
xWs.Range("A" & CStr(xRow)).Select
Next
Next
End Sub
3. Setelah menempelkan kode di atas, masih di Microsoft Visual Basic untuk Aplikasi window, klik Tools > Referensi untuk pergi ke Referensi-Proyek 1 kotak dialog, dan centang Perpustakaan objek Microsoft Word dan Perpustakaan Objek Microsoft Excel opsi dari Referensi yang Tersedia kotak daftar, lihat tangkapan layar:
4. Lalu klik OK tombol untuk keluar dari kotak dialog, dan sekarang, silakan F5 kunci untuk menjalankan kode, semua tabel di badan pesan telah diekspor ke buku kerja baru seperti gambar berikut yang ditampilkan:
Alat Produktivitas Kantor Terbaik
Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...
📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
📨 email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
📁 Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / 🕘Tampilkan Zona Waktu Pengirim ...
👩🏼🤝👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.