Cum să exportați rapid toate tabelele dintr-un e-mail Outlook într-un registru de lucru Excel prin VBA

Dacă doriți să exportați rapid tabelele dintr-un e-mail Outlook într-un fișier Excel, puteți utiliza metoda introdusă în acest articol. Va folosi VBA pentru a vă ajuta să realizați acest lucru printr-un singur clic.

După cum știm cu toții, Excel este conceput pentru tabele și statistici de date. Astfel, atunci când primiți un e-mail care conține mai multe tabele în corp, poate doriți să exportați toate aceste tabele într-un fișier Excel pentru a analiza mai bine datele din tabele. Prin urmare, aici vă vom învăța cum să exportați rapid toate tabelele dintr-un e-mail într-un nou registru de lucru Excel. Acum vă rugăm să citiți mai departe pentru a obține codul VBA și pașii detaliați.

Exportați toate tabelele dintr-un e-mail Outlook într-un registru de lucru Excel

1. Pentru început, porniți aplicația Outlook ca de obicei.
2. Apoi, în fereastra principală Outlook, apăsați butoanele tastei „Alt + F11”.
3. În continuare, în următoarea fereastră „Microsoft Visual Basic for Applications”, ar trebui să deschideți un modul gol.
4. Ulterior, trebuie să copiați codul VBA de mai jos în acest 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. După aceea, trebuie să adăugați noua macrocomandă la Bara de instrumente Acces rapid.
6. Mai târziu, ar trebui să modificați nivelul de securitate al macrocomenzii Outlook la scăzut.
7. În cele din urmă, ai putea încerca.

• În primul rând, selectați un e-mail sursă din lista de e-mail.
• Apoi faceți clic pe butonul macro din bara de instrumente Acces rapid.
• Imediat, se va afișa un nou fișier Excel.
• Dacă există un singur tabel în e-mail, acest tabel va fi exportat în prima foaie de lucru a fișierului Excel, ca în următoarea captură de ecran:
• Dar dacă există mai mult de un tabel în e-mail, fiecare tabel va fi copiat în foaia de lucru individuală.

Scăpați de pierderea mizerabilă de date PST

Outlook este predispus la erori și corupție. Prin urmare, este o sarcină obositoare și anevoioasă să vă protejați datele PST și să preveniți pierderea dureroasă a datelor PST. În primul rând, trebuie să faceți o copie de rezervă a fișierelor PST în mod regulat. Mai mult, trebuie să pregătiți un puternic Remediere PST utilitate, cum ar fi DataNumen Outlook Repair. Vă poate salva de tot felul de probleme PST cu ușurință fără efort.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv sql corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com