Hvordan eksporteres e-mail-kropstabel til at udmærke sig i Outlook?
Når du modtager en e-mail, der indeholder nogle tabeller i brødteksten, skal du nogle gange muligvis eksportere alle tabeller fra meddelelsesteksten til et Excel-regneark. Normalt kan du kopiere og indsætte tabellerne i regnearket, men her vil jeg tale om en nyttig metode til at løse dette job, når der er flere tabeller, der skal eksporteres.
Eksporter alle tabeller fra Outlook-meddelelsesteksten til Excel-regneark med VBA-kode
Eksporter alle tabeller fra Outlook-meddelelsesteksten til Excel-regneark med VBA-kode
Anvend følgende VBA-kode for at eksportere alle tabeller fra en meddelelsestekst til Excel-regneark.
1. Åbn beskeden, som du vil eksportere tabellerne, og hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler vindue.
VBA-kode: Eksportér alle tabeller fra meddelelsesteksten til Excel-regneark:
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. Efter at have indsat ovenstående kode, stadig i Microsoft Visual Basic til applikationer vindue, skal du klikke på Værktøjer > Referencer at gå til Referencer-projekt1 dialogboks, og tjek Microsoft Word-objektbibliotek , Microsoft Excel-objektbibliotek indstillinger fra Tilgængelige referencer listefelt, se skærmbillede:
4. Klik derefter på OK for at afslutte dialogboksen, og nu, tak F5 nøgle til at køre koden, er alle tabeller i meddelelsesteksten eksporteret til en ny projektmappe som følgende skærmbillede vist:
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.