Hur man snabbt exporterar alla tabeller från ett Outlook-e-postmeddelande till en Excel-arbetsbok via VBA

Om du snabbt vill exportera tabellerna från ett Outlook-e-postmeddelande till en Excel-fil kan du använda metoden som introduceras i den här artikeln. Det kommer att använda VBA för att hjälpa dig att uppnå detta bara med ett klick.

Som vi alla vet är Excel utformat för tabeller och datastatistik. Således, när du får ett e-postmeddelande som innehåller flera tabeller i kroppen, kanske du vill exportera alla dessa tabeller till en Excel-fil för att bättre analysera data i tabellerna. Därför lär vi dig hur du snabbt exporterar alla tabeller från ett e-postmeddelande till en ny Excel-arbetsbok. Läs nu vidare för att få VBA-koden och detaljerade steg.

Exportera alla tabeller från en Outlook-e-post till en Excel-arbetsbok

1. Till att börja med, starta ditt Outlook-program som vanligt.
2. Tryck sedan på “Alt + F11” -knapparna i huvudfönstret i Outlook.
3. Nästa i fönstret ”Microsoft Visual Basic for Applications” bör du öppna en tom modul.
4. Därefter måste du kopiera VBA-koden nedan till den här modulen.

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. Därefter måste du lägga till det nya makrot i snabbåtkomstverktygsfältet.
6. Senare bör du ändra din Outlook-makrosäkerhetsnivå till låg.
7. I slutändan kan du prova.

• Välj först ett källemail i e-postlistan.
• Klicka sedan på makroknappen i verktygsfältet Snabbåtkomst.
• Omedelbart visas en ny Excel-fil.
• Om det bara finns en tabell i e-postmeddelandet exporteras den här tabellen till det första kalkylbladet i Excel-filen, som följande skärmdump:
• Men om det finns mer än en tabell i e-postmeddelandet kopieras varje tabell till enskilda kalkylblad.

Bli av med eländigt PST-dataförlust

Outlook är utsatt för fel och korruption. Därför är det en tråkig och svår uppgift att skydda dina PST-data och förhindra smärtsam PST-dataförlust. För det första måste du säkerhetskopiera dina PST-filer regelbundet. Dessutom måste du förbereda en potent PST-fix verktyg, som DataNumen Outlook Repair. Det kan rädda dig från alla typer av PST-problem utan problem.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadat sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com