Cara Cepat Mengekspor Semua Tabel dari Email Outlook ke Buku Kerja Excel melalui VBA

Jika Anda ingin mengekspor tabel dengan cepat dari email Outlook ke file Excel, Anda dapat menggunakan metode yang diperkenalkan di artikel ini. Ini akan menggunakan VBA untuk membantu Anda mencapai ini hanya melalui satu klik.

Seperti yang kita semua tahu, Excel dirancang untuk tabel dan statistik data. Jadi, saat Anda menerima email yang berisi beberapa tabel di bagian isi, Anda mungkin ingin mengekspor semua tabel ini ke file Excel untuk menganalisis data dalam tabel dengan lebih baik. Karenanya, di sini kami akan mengajari Anda cara cepat mengekspor semua tabel dari email ke buku kerja Excel baru. Sekarang baca terus untuk mendapatkan kode VBA dan langkah-langkah mendetail.

Ekspor Semua Tabel dari Email Outlook ke Buku Kerja Excel

1. Pertama-tama, jalankan aplikasi Outlook Anda seperti biasa.
2. Kemudian di jendela Outlook utama, tekan tombol "Alt + F11".
3. Selanjutnya di jendela "Microsoft Visual Basic for Applications" berikut, Anda harus membuka modul kosong.
4. Selanjutnya, Anda perlu menyalin kode VBA di bawah ini ke dalam modul ini.

Sub ExportTablesinEmailtoExcel()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objTable As Word.Table
    Dim lTableCount As Long
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim i As Long
 
    'Create a new excel workbook
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    objExcelApp.Visible = True
 
    'Get the table(s) in the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.item(1)
    Set objWordDocument = objMail.GetInspector.WordEditor
    lTableCount = objWordDocument.Tables.Count
 
 
    If lTableCount > 1 Then
       'If there is more than one table
       'Copy each table into separate worksheet
       For i = 1 To lTableCount
           Set objTable = objWordDocument.Tables(i)
           objTable.Range.Copy
 
           Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
           objExcelWorksheet.Paste
           objExcelWorksheet.Columns.AutoFit
       Next
    Else
      'If there is only one table
      'Just copy it into the first worksheet
      Set objTable = objWordDocument.Tables(1)
      objTable.Range.Copy
 
      Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
      objExcelWorksheet.Paste
      objExcelWorksheet.Columns.AutoFit
    End If
End Sub

5. Setelah itu, Anda perlu menambahkan makro baru ke Bilah Alat Akses Cepat.
6. Nanti Anda harus mengubah tingkat keamanan makro Outlook Anda ke rendah.
7. Akhirnya, Anda bisa mencobanya.

• Pertama, pilih email sumber di daftar email.
• Lalu klik tombol makro di Bilah Alat Akses Cepat.
• File Excel baru akan segera ditampilkan.
• Jika hanya ada satu tabel di email, tabel ini akan diekspor ke lembar kerja pertama dari file Excel, seperti gambar layar berikut:
• Tetapi jika ada lebih dari satu tabel di email, setiap tabel akan disalin ke lembar kerja individu.

Singkirkan Kehilangan Data PST yang Menyedihkan

Outlook rentan terhadap kesalahan dan kerusakan. Oleh karena itu, ini adalah tugas yang membosankan dan sulit untuk melindungi data PST Anda dan mencegah kehilangan data PST yang menyakitkan. Pertama, Anda perlu mencadangkan file PST Anda secara teratur. Apalagi Anda harus menyiapkan yang ampuh Perbaikan PST utilitas, seperti DataNumen Outlook Repair. Ini dapat menyelamatkan Anda dari semua jenis masalah PST dengan mudah.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com