Come esportare la tabella del corpo dell'email per eccellere in Outlook?
Quando si riceve un'e-mail che contiene alcune tabelle nel corpo, a volte potrebbe essere necessario esportare tutte le tabelle dal corpo del messaggio a un foglio di lavoro Excel. Normalmente, puoi copiare e incollare le tabelle nel foglio di lavoro, ma, qui, parlerò di un metodo utile per risolvere questo lavoro quando ci sono più tabelle da esportare.
Esporta tutte le tabelle dal corpo del messaggio di Outlook al foglio di lavoro Excel con codice VBA
Esporta tutte le tabelle dal corpo del messaggio di Outlook al foglio di lavoro Excel con codice VBA
Si prega di applicare il seguente codice VBA per esportare tutte le tabelle da un corpo del messaggio a un foglio di lavoro Excel.
1. Aprire il messaggio in cui si desidera esportare le tabelle e quindi tenere premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli finestra.
Codice VBA: esporta tutte le tabelle dal corpo del messaggio al foglio di lavoro Excel:
Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
Set xDoc = xMailItem.GetInspector.WordEditor
For I = 1 To xDoc.Tables.Count
Set xTable = xDoc.Tables(I)
xTable.Range.Copy
xWs.Paste
xRow = xRow + xTable.Rows.Count + 1
xWs.Range("A" & CStr(xRow)).Select
Next
Next
End Sub
3. Dopo aver incollato il codice sopra, sempre nel file Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Riferimenti per andare al Riferimenti-Progetto1 finestra di dialogo e selezionare Libreria di oggetti di Microsoft Word ed Libreria di oggetti di Microsoft Excel opzioni dal Riferimenti disponibili casella di riepilogo, vedi screenshot:
4. Quindi fare clic OK pulsante per uscire dalla finestra di dialogo e ora, per favore F5 chiave per eseguire il codice, tutte le tabelle nel corpo del messaggio sono state esportate in una nuova cartella di lavoro come mostrato nella seguente schermata:
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.