Jak exportovat tabulku těla e-mailu do aplikace Excel?
Když obdržíte e-mail, který obsahuje některé tabulky v těle, někdy budete možná muset exportovat všechny tabulky z těla zprávy do listu aplikace Excel. Normálně můžete tabulky zkopírovat a vložit do listu, ale zde budu hovořit o užitečné metodě řešení této úlohy, když je potřeba exportovat více tabulek.
Exportujte všechny tabulky z těla zprávy aplikace Outlook do listu aplikace Excel s kódem VBA
Exportujte všechny tabulky z těla zprávy aplikace Outlook do listu aplikace Excel s kódem VBA
Použijte prosím následující kód VBA k exportu všech tabulek z jednoho těla zprávy do listu aplikace Excel.
1. Otevřete zprávu, kterou chcete exportovat, a poté podržte klávesu ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul okno.
Kód VBA: Exportujte všechny tabulky z těla zprávy do listu aplikace 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. Po vložení výše uvedeného kódu stále do Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Tools > Reference přejděte na Reference-Project1 dialogové okno a zkontrolujte Objektová knihovna Microsoft Word si Objektová knihovna Microsoft Excel možnosti z Dostupné reference seznam, viz screenshot:
4. Pak klikněte na tlačítko OK tlačítko pro opuštění dialogového okna a nyní prosím F5 klíč ke spuštění kódu, všechny tabulky v těle zprávy byly exportovány do nového sešitu, jak ukazuje následující snímek obrazovky:
AI Mail Assistant v aplikaci Outlook: Chytřejší odpovědi, jasnější komunikace (kouzlo na jedno kliknutí!) UVOLNIT
Zjednodušte své každodenní úkoly Outlooku pomocí AI Mail Assistant od Kutools pro Outlook. Tento výkonný nástroj se učí z vašich minulých e-mailů, aby nabídl inteligentní a přesné odpovědi, optimalizoval obsah vašich e-mailů a pomohl vám bez námahy navrhovat a upravovat zprávy.
Tato funkce podporuje:
- Chytré odpovědi: Získejte odpovědi vytvořené z vašich minulých konverzací – přizpůsobené, přesné a připravené k použití.
- Vylepšený obsah: Automaticky upravte text e-mailu tak, aby byl srozumitelný a účinný.
- Skládání bez námahy: Stačí zadat klíčová slova a nechat AI, aby se postarala o zbytek, s několika styly psaní.
- Inteligentní rozšíření: Rozšiřte své myšlenky pomocí kontextových návrhů.
- Shrnutí: Získejte okamžitě stručné přehledy dlouhých e-mailů.
- Globální dosah: Snadno překládejte své e-maily do jakéhokoli jazyka.
Tato funkce podporuje:
- Chytré e-mailové odpovědi
- Optimalizovaný obsah
- Koncepty založené na klíčových slovech
- Inteligentní rozšíření obsahu
- Emailová sumarizace
- Vícejazyčný překlad
Nejlepší ze všeho je, že tato funkce je zcela uvolnit navždy! Nečekej —stáhněte si AI Mail Assistant nyní a užívejte si!
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Připomenout e-maily / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Připomeňte si, když přijdou důležité e-maily / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
