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

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

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

Izvezite sve tablice iz Outlook e-pošte u Excel radnu knjigu

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 for Applications” trebali biste otvoriti prazan modul.
4. Nakon toga trebate kopirati donji VBA kod 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 novu makronaredbu na alatnu traku za brzi pristup.
6. Kasnije biste trebali promijeniti razinu sigurnosti Outlook makroa na nisku.
7. U konačnici, mogli biste pokušati.

• Najprije odaberite izvornu e-poštu na popisu e-pošte.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Odmah će se prikazati nova Excel datoteka.
• Ako u e-poruci postoji samo jedna tablica, ta će se tablica izvesti u prvi radni list Excel datoteke, kao na sljedećoj snimci zaslona:
• Ali ako postoji više od jedne tablice u e-poruci, svaka će se tablica kopirati u pojedinačni radni list.

Riješite se bijednog gubitka PST podataka

Outlook je sklon pogreškama i korupciji. Stoga je zamoran i naporan zadatak zaštititi svoje PST podatke i spriječiti bolan gubitak PST podataka. Prvo, morate redovito sigurnosno kopirati svoje PST datoteke. Štoviše, morate pripremiti moćan PST popravak korisnost, poput DataNumen Outlook Repair. Može vas spasiti od svih vrsta PST problema s lakoćom bez napora.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com