Kako hitro izvoziti vse tabele iz Outlookove e-pošte v Excelov delovni zvezek prek VBA

Če želite tabele hitro izvoziti iz Outlookove e-pošte v Excelovo datoteko, lahko uporabite metodo, predstavljeno v tem članku. Uporabil bo VBA, ki vam bo pomagal doseči to le z enim klikom.

Kot vsi vemo, je Excel zasnovan za tabele in statistiko podatkov. Ko torej prejmete e-poštno sporočilo, ki vsebuje več tabel v telesu, boste morda želeli vse te tabele izvoziti v Excelovo datoteko, da boste bolje analizirali podatke v tabelah. Zato vas bomo tukaj naučili, kako hitro izvoziti vse tabele iz e-pošte v nov Excelov delovni zvezek. Zdaj berite naprej, da dobite kodo VBA in podrobne korake.

Izvozite vse tabele iz Outlookove e-pošte v Excelov delovni zvezek

1. Za začetek zaženite aplikacijo Outlook kot običajno.
2. Nato v glavnem Outlookovem oknu pritisnite tipke “Alt + F11”.
3. Nato v naslednjem oknu »Microsoft Visual Basic for Applications« odprite prazen modul.
4. Nato morate v ta modul kopirati spodnjo kodo 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. Po tem morate dodati nov makro v orodno vrstico za hitri dostop.
6. Pozneje bi morali spremeniti raven varnosti makra Outlook na nizko.
7. Navsezadnje bi lahko poskusili.

• Najprej na seznamu e-poštnih sporočil izberite izvorno e-pošto.
• Nato kliknite gumb makra v orodni vrstici za hitri dostop.
• Takoj se prikaže nova Excelova datoteka.
• Če je v e-pošti samo ena tabela, bo ta izvožena v prvi delovni list Excelove datoteke, kot je ta posnetek zaslona:
• Če pa je v e-pošti več kot ena tabela, bo vsaka tabela kopirana v posamezen delovni list.

Znebite se bedne izgube podatkov PST

Outlook je nagnjen k napakam in korupciji. Zato je varovanje vaših podatkov PST in preprečevanje boleče izgube podatkov PST dolgočasno in naporno opravilo. Prvič, redno morate varnostno kopirati datoteke PST. Poleg tega morate pripraviti močan PST popravek uporabnost, kot DataNumen Outlook Repair. Z lahkoto vas lahko reši vseh vrst težav s PST.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com