Hogyan exportálhatjuk az e-mail törzstáblázatát az Excel kiemelkedő teljesítményéhez?
Ha olyan e-mailt kap, amely tartalmaz néhány táblázatot a törzsben, előfordulhat, hogy az összes táblát exportálnia kell az üzenet törzséből egy Excel munkalapra. Normál esetben másolhatja és beillesztheti a táblázatokat a munkalapra, de itt egy hasznos módszerről fogok beszélni ennek a feladatnak a megoldására, ha több táblát kell exportálni.
Exportálja az összes táblázatot az Outlook üzenet törzséből az Excel munkalapra, VBA kóddal
Exportálja az összes táblázatot az Outlook üzenet törzséből az Excel munkalapra, VBA kóddal
Kérjük, alkalmazza a következő VBA kódot az összes tábla exportálásához egy üzenet törzséből az Excel munkalapba.
1. Nyissa meg azt az üzenetet, hogy exportálni szeretné a táblákat, majd tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok ablak.
VBA kód: Minden tábla exportálása az üzenet törzséből az Excel munkalapba:
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. A fenti kód beillesztése után még mindig a Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák menni Referenciák-Projekt1 párbeszédpanelt, és ellenőrizze Microsoft Word objektumkönyvtár és a Microsoft Excel objektumkönyvtár lehetőségek a Elérhető referenciák lista mező, lásd a képernyőképet:
4. Ezután kattintson OK gombra a párbeszédpanelből való kilépéshez, és most kérem F5 kulcs a kód futtatásához, az üzenet törzsében található összes táblát exportálták egy új munkafüzetbe, a következő képernyőkép szerint:
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.