Ako rýchlo exportovať všetky tabuľky z e-mailu programu Outlook do zošita programu Excel pomocou VBA

Ak chcete rýchlo exportovať tabuľky z e-mailu programu Outlook do súboru programu Excel, môžete použiť metódu uvedenú v tomto článku. Použije VBA, aby ste to dosiahli jediným kliknutím.

Ako všetci vieme, program Excel je navrhnutý pre tabuľky a štatistiku údajov. Keď teda dostanete e-mail, ktorý obsahuje niekoľko tabuliek v tele, môžete exportovať všetky tieto tabuľky do súboru programu Excel, aby ste mohli lepšie analyzovať údaje v tabuľkách. Preto vás tu naučíme, ako rýchlo exportovať všetky tabuľky z e-mailu do nového zošita programu Excel. Teraz prosím čítajte ďalej, aby ste získali kód VBA a podrobné kroky.

Exportujte všetky tabuľky z e-mailu programu Outlook do zošita programu Excel

1. Na začiatok spustite aplikáciu Outlook ako obvykle.
2. Potom v hlavnom okne programu Outlook stlačte klávesové skratky „Alt + F11“.
3. Ďalej v nasledujúcom okne „Microsoft Visual Basic for Applications“ by ste mali otvoriť prázdny modul.
4. Následne musíte do tohto modulu skopírovať nižšie uvedený kód VBA.

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. Potom musíte na panel s nástrojmi Rýchly prístup pridať nové makro.
6. Neskôr by ste mali zmeniť úroveň zabezpečenia makra programu Outlook na nízku.
7. Nakoniec by ste to mohli vyskúšať.

• Najskôr vyberte zdrojový e-mail v zozname e-mailov.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Hneď sa zobrazí nový súbor programu Excel.
• Ak je v e-maile iba jedna tabuľka, bude sa táto tabuľka exportovať do prvého pracovného hárka súboru Excel, napríklad na nasledujúcu snímku obrazovky:
• Ale ak je v e-maile viac ako jedna tabuľka, každá tabuľka sa skopíruje do samostatného pracovného hárka.

Zbavte sa mizernej straty dát PST

Outlook je náchylný na chyby a poškodenie. Preto je namáhavá a namáhavá úloha chrániť vaše údaje PST a zabrániť bolestivej strate údajov PST. Najskôr je potrebné pravidelne zálohovať súbory PST. Navyše si musíte pripraviť silný Oprava PST užitočnosť, ako DataNumen Outlook Repair. Môže vás bez námahy vyslobodiť zo všetkých druhov problémov s PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S