Kako brzo izvesti sve tabele iz Outlook e-pošte u Excel radnu svesku putem VBA

Ako želite brzo izvesti tablice iz Outlook e-pošte u Excel datoteku, možete koristiti metodu predstavljenu u ovom članku. Koristiće VBA da vam pomogne da to postignete samo jednim klikom.

Kao što svi znamo, Excel je dizajniran za tabele i statistiku podataka. Stoga, kada primite e-poruku koja sadrži nekoliko tabela u tijelu, možda ćete poželjeti da izvezete sve ove tabele u Excel datoteku kako biste bolje analizirali podatke u tabelama. Stoga ćemo vas ovdje naučiti kako brzo izvesti sve tabele iz e-pošte u novu Excel radnu knjigu. Sada pročitajte dalje da biste dobili VBA kod i detaljne korake.

Izvezite sve tabele iz Outlook e-pošte u Excel radnu svesku

1. Za početak, pokrenite Outlook aplikaciju kao i obično.
2. Zatim u glavnom prozoru programa Outlook pritisnite tipke “Alt + F11”.
3. Zatim u sljedećem prozoru „Microsoft Visual Basic za aplikacije“, trebali biste otvoriti prazan modul.
4. Nakon toga, potrebno je da kopirate VBA kod ispod u ovaj 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. Nakon toga, morate dodati novi makro na alatnu traku za brzi pristup.
6. Kasnije biste trebali promijeniti nivo sigurnosti makroa Outlooka na niski.
7. Na kraju, mogli biste probati.

• Prvo, odaberite izvornu e-poštu na listi e-pošte.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Odjednom će se prikazati nova Excel datoteka.
• Ako postoji samo jedna tabela u e-poruci, ova tabela će biti izvezena u prvi radni list Excel fajla, kao na sledećem snimku ekrana:
• Ali ako u e-poruci postoji više tabela, svaka tabela će biti kopirana u pojedinačni radni list.

Riješite se mizernog gubitka PST podataka

Outlook je sklon greškama i korupciji. Stoga je naporan i naporan zadatak zaštititi vaše PST podatke i spriječiti bolan gubitak PST podataka. Prvo, morate redovno praviti rezervne kopije svojih PST datoteka. Štaviše, morate pripremiti potentan PST fix korisnost, kao DataNumen Outlook Repair. Može vas spasiti od svih vrsta PST problema s lakoćom bez napora.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com