Cum se exportă tabelul corpului de e-mail pentru a excela în Outlook?
Când primiți un e-mail care conține unele tabele în corp, uneori, poate fi necesar să exportați toate tabelele din corpul mesajului într-o foaie de lucru Excel. În mod normal, puteți copia și lipi tabelele în foaia de lucru, dar, aici, voi vorbi despre o metodă utilă pentru rezolvarea acestei sarcini atunci când sunt necesare mai multe tabele pentru a fi exportate.
Exportați toate tabelele din corpul mesajului Outlook în foaia de lucru Excel cu cod VBA
Exportați toate tabelele din corpul mesajului Outlook în foaia de lucru Excel cu cod VBA
Vă rugăm să aplicați următorul cod VBA pentru a exporta toate tabelele dintr-un corp de mesaj în foaia de lucru Excel.
1. Deschideți mesajul că doriți să exportați tabelele, apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module fereastră.
Cod VBA: Exportați toate tabelele din corpul mesajului în foaia de lucru 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. După lipirea codului de mai sus, încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Instrumente > Referinte a merge la Referințe-Proiect1 casetă de dialog și bifați Biblioteca de obiecte Microsoft Word si Biblioteca de obiecte Microsoft Excel opțiuni din Referințe disponibile casetă listă, vezi captura de ecran:
4. Apoi apasa OK pentru a ieși din caseta de dialog și acum, vă rog F5 tasta pentru a rula codul, toate tabelele din corpul mesajului au fost exportate într-un nou registru de lucru, după cum se arată în următoarea captură de ecran:
AI Mail Assistant în Outlook: răspunsuri mai inteligente, comunicare mai clară (magie cu un singur clic!) GRATUITA
Eficientizați-vă sarcinile zilnice Outlook cu AI Mail Assistant de la Kutools for Outlook. Acest instrument puternic învață din e-mailurile tale anterioare pentru a oferi răspunsuri inteligente și precise, pentru a optimiza conținutul e-mailurilor și pentru a te ajuta să redactezi și să rafinezi mesajele fără efort.
Această funcție acceptă:
- Răspunsuri inteligente: obțineți răspunsuri create din conversațiile dvs. anterioare – personalizate, precise și gata de plecare.
- Conținut îmbunătățit: rafinați automat textul e-mailului pentru claritate și impact.
- Compunere fără efort: furnizați doar cuvinte cheie și lăsați AI să se ocupe de restul, cu mai multe stiluri de scriere.
- Extensii inteligente: extindeți-vă gândurile cu sugestii care țin cont de context.
- Rezumat: obțineți instantaneu prezentari generale concise ale e-mailurilor lungi.
- Acoperire globală: traduceți-vă cu ușurință e-mailurile în orice limbă.
Această funcție acceptă:
- Răspunsuri inteligente la e-mail
- Conținut optimizat
- Schițe bazate pe cuvinte cheie
- Extensie inteligentă de conținut
- Rezumat prin e-mail
- Traducere în mai multe limbi
Cel mai bun din toate, această caracteristică este complet gratuit pentru totdeauna! nu astepta-descărcați AI Mail Assistant acum și bucurați-vă!
Cele mai bune instrumente de productivitate de birou
Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!
Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!
📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Rechemare e-mailuri / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Amintește-ți când vin e-mailuri importante / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
