Sådan eksporteres alle tabeller hurtigt fra en Outlook -e -mail til en Excel -projektmappe via VBA

Hvis du hurtigt vil eksportere tabellerne fra en Outlook -e -mail til en Excel -fil, kan du bruge den metode, der blev introduceret i denne artikel. Det vil bruge VBA til at hjælpe dig med at opnå dette blot med et enkelt klik.

Som vi alle ved, er Excel designet til tabeller og datastatistik. Når du modtager en e -mail med flere tabeller i brødteksten, kan du således eksportere alle disse tabeller til en Excel -fil for bedre at analysere dataene i tabellerne. Derfor vil vi her lære dig, hvordan du hurtigt eksporterer alle tabeller fra en e -mail til en ny Excel -projektmappe. Læs nu venligst for at få VBA -koden og detaljerede trin.

Eksporter alle tabeller fra en Outlook -e -mail til en Excel -projektmappe

1. Til at begynde med skal du starte dit Outlook-program som normalt.
2. Tryk derefter på "Alt + F11" -tasten i hovedvinduet i Outlook.
3. Næste i det følgende "Microsoft Visual Basic for Applications" -vindue skal du åbne et tomt modul.
4. Efterfølgende skal du kopiere VBA -koden herunder til dette modul.

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. Derefter skal du tilføje den nye makro til værktøjslinjen Hurtig adgang.
6. Senere skal du ændre dit Outlook -makrosikkerhedsniveau til lavt.
7. I sidste ende kan du prøve.

• Vælg først en kilde -e -mail på e -mail -listen.
• Klik derefter på makro -knappen i værktøjslinjen Hurtig adgang.
• På en gang vises en ny Excel -fil.
• Hvis der kun er en tabel i e -mailen, eksporteres denne tabel til det første regneark i Excel -filen, som følgende skærmbillede:
• Men hvis der er mere end én tabel i e -mailen, bliver hver tabel kopieret til individuelt regneark.

Slip af med elendigt tab af PST -data

Outlook er udsat for fejl og korruption. Derfor er det en kedelig og besværlig opgave at beskytte dine PST -data og afværge smertefuldt PST -datatab. For det første skal du regelmæssigt sikkerhedskopiere dine PST -filer. Desuden skal du forberede en potent PST-rettelse hjælpeprogram, ligesom DataNumen Outlook Repair. Det kan nemt redde dig fra alle slags PST -problemer.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com