Come esportare rapidamente tutte le tabelle da un'e-mail di Outlook a una cartella di lavoro di Excel tramite VBA

Se desideri esportare rapidamente le tabelle da un'e-mail di Outlook a un file Excel, puoi utilizzare il metodo introdotto in questo articolo. Utilizzerà VBA per aiutarti a raggiungere questo obiettivo con un solo clic.

Come tutti sappiamo, Excel è progettato per tabelle e statistiche di dati. Pertanto, quando ricevi un'e-mail che contiene diverse tabelle nel corpo, potresti voler esportare tutte queste tabelle in un file Excel in modo da analizzare meglio i dati nelle tabelle. Quindi, qui ti insegneremo come esportare rapidamente tutte le tabelle da un'e-mail a una nuova cartella di lavoro di Excel. Ora continua a leggere per ottenere il codice VBA e i passaggi dettagliati.

Esporta tutte le tabelle da un'e-mail di Outlook in una cartella di lavoro di Excel

1. Per iniziare, avvia l'applicazione Outlook come di consueto.
2. Quindi, nella finestra principale di Outlook, premi i pulsanti "Alt + F11".
3. Avanti nella seguente finestra "Microsoft Visual Basic for Applications", dovresti aprire un modulo vuoto.
4. Successivamente, è necessario copiare il codice VBA di seguito in questo modulo.

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. Successivamente, è necessario aggiungere la nuova macro alla barra degli strumenti di accesso rapido.
6. Successivamente dovresti modificare il livello di sicurezza delle macro di Outlook a basso.
7. Alla fine, potresti provare.

• Innanzitutto, seleziona un'e-mail di origine nell'elenco e-mail.
• Quindi fare clic sul pulsante macro nella barra di accesso rapido.
• Immediatamente, verrà visualizzato un nuovo file Excel.
• Se nell'e-mail è presente una sola tabella, questa tabella verrà esportata nel primo foglio di lavoro del file Excel, come nella seguente schermata:
• Ma se nell'e-mail è presente più di una tabella, ogni tabella verrà copiata in un singolo foglio di lavoro.

Sbarazzati della miserabile perdita di dati PST

Outlook è soggetto a errori e corruzione. Pertanto, è un compito noioso e arduo salvaguardare i dati PST ed evitare dolorose perdite di dati PST. Innanzitutto, è necessario eseguire regolarmente il backup dei file PST. Inoltre, devi preparare un potente Correzione PST utilità, come DataNumen Outlook Repair. Può salvarti da tutti i tipi di problemi PST con facilità.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui sql corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com