Cara Cepat Mengeksport Semua Jadual dari E-mel Outlook ke Buku Kerja Excel melalui VBA

Sekiranya anda ingin mengeksport jadual dengan cepat dari e-mel Outlook ke fail Excel, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini. Ia akan menggunakan VBA untuk membantu anda mencapainya hanya dengan satu klik.

Seperti yang kita semua ketahui, Excel direka untuk jadual dan statistik data. Oleh itu, apabila anda menerima e-mel yang mengandungi beberapa jadual dalam badan, anda mungkin ingin mengeksport semua jadual ini ke fail Excel supaya dapat menganalisis data dalam jadual dengan lebih baik. Oleh itu, di sini kami akan mengajar anda cara mengeksport semua jadual dengan cepat dari e-mel ke buku kerja Excel yang baru. Sekarang sila baca untuk mendapatkan kod VBA dan langkah terperinci.

Eksport Semua Jadual dari E-mel Outlook ke Buku Kerja Excel

1. Untuk bermula, mulakan aplikasi Outlook anda seperti biasa.
2. Kemudian di tetingkap Outlook utama, tekan butang kekunci "Alt + F11".
3. Selanjutnya di tetingkap "Microsoft Visual Basic for Applications" berikut, anda harus membuka modul kosong.
4. Selepas itu, anda perlu menyalin kod VBA di bawah 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. Selepas itu, anda perlu menambahkan makro baru ke Bar Alat Akses Pantas.
6. Nanti anda harus mengubah tahap keselamatan makro Outlook anda menjadi rendah.
7. Pada akhirnya, anda boleh mencuba.

• Pertama, pilih e-mel sumber dalam senarai e-mel.
• Kemudian klik butang makro di Bar Alat Akses Pantas.
• Sekali gus, fail Excel baru akan dipaparkan.
• Sekiranya terdapat hanya satu jadual dalam e-mel, jadual ini akan dieksport ke lembaran kerja pertama fail Excel, seperti tangkapan skrin berikut:
• Tetapi jika terdapat lebih dari satu jadual dalam e-mel, setiap jadual akan disalin ke dalam lembaran kerja individu.

Singkirkan Kehilangan Data PST yang Menyedihkan

Outlook terdedah kepada kesalahan dan rasuah. Oleh itu, adalah tugas yang membosankan dan sukar untuk melindungi data PST anda dan mengelakkan kehilangan data PST yang menyakitkan. Pertama, anda perlu membuat sandaran fail PST anda secara berkala. Lebih-lebih lagi, anda harus menyediakan yang kuat Pembaikan PST utiliti, seperti DataNumen Outlook Repair. Ia dapat menyelamatkan anda dari segala macam masalah PST dengan mudah.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com