Jak rychle exportovat všechny tabulky z e-mailu aplikace Outlook do sešitu aplikace Excel přes VBA

Pokud chcete rychle exportovat tabulky z e-mailu aplikace Outlook do souboru aplikace Excel, můžete použít metodu uvedenou v tomto článku. K dosažení tohoto cíle použije VBA jediným kliknutím.

Jak všichni víme, Excel je určen pro tabulky a datové statistiky. Když tedy obdržíte e-mail, který obsahuje několik tabulek v těle, možná budete chtít exportovat všechny tyto tabulky do souboru Excel, abyste mohli lépe analyzovat data v tabulkách. Proto vás zde naučíme, jak rychle exportovat všechny tabulky z e-mailu do nového excelového sešitu. Nyní prosím čtěte dále a získejte kód VBA a podrobné kroky.

Exportujte všechny tabulky z e-mailu aplikace Outlook do sešitu aplikace Excel

1. Nejprve spusťte aplikaci Outlook jako obvykle.
2. Poté v hlavním okně Outlooku stiskněte klávesy „Alt + F11“.
3. Dále v následujícím okně „Microsoft Visual Basic for Applications“ byste měli otevřít prázdný modul.
4. Následně je potřeba zkopírovat níže uvedený VBA kód do tohoto modulu.

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. Poté musíte nové makro přidat na panel nástrojů Rychlý přístup.
6. Později byste měli změnit úroveň zabezpečení maker aplikace Outlook na nízkou.
7. Nakonec byste to mohli zkusit.

• Nejprve vyberte zdrojový e-mail v seznamu e-mailů.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Najednou se zobrazí nový soubor Excel.
• Pokud je v e-mailu pouze jedna tabulka, bude tato tabulka exportována do prvního listu souboru Excel, jako je následující snímek obrazovky:
• Pokud je však v e-mailu více než jedna tabulka, bude každá tabulka zkopírována do samostatného listu.

Zbavte se mizerné ztráty dat PST

Aplikace Outlook je náchylná k chybám a poškození. Proto je únavný a náročný úkol chránit vaše data PST a odvrátit bolestnou ztrátu dat PST. Za prvé, musíte pravidelně zálohovat soubory PST. Navíc si musíte připravit potent Oprava PST nástroj, jako DataNumen Outlook Repair. Může vás zachránit před všemi druhy problémů PST s námahou snadno.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com