Sut i allforio tabl corff e-bost i ragori yn Outlook?
Pan fyddwch chi'n derbyn E-bost sy'n cynnwys rhai tablau yn y corff, weithiau, efallai y bydd angen i chi allforio pob tabl o'r corff negeseuon i daflen waith Excel. Fel rheol, gallwch chi gopïo a gludo'r tablau i'r daflen waith, ond, yma, byddaf yn siarad am ddull defnyddiol i ddatrys y swydd hon pan fydd angen allforio nifer o dablau.
Allforiwch bob tabl o gorff negeseuon Outlook i daflen waith Excel gyda chod VBA
Allforiwch bob tabl o gorff negeseuon Outlook i daflen waith Excel gyda chod VBA
Defnyddiwch y cod VBA canlynol i allforio pob tabl o un corff neges i daflen waith Excel.
1. Agorwch y neges eich bod am allforio'r tablau, ac yna daliwch y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau ffenestr.
Cod VBA: Allforiwch yr holl dablau o'r corff negeseuon i ragori ar y daflen waith:
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. Ar ôl pasio'r cod uchod, yn dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > Cyfeiriadau i fynd i'r Cyfeiriadau-Prosiect1 blwch deialog, a gwirio Llyfrgell Gwrthrychau Microsoft Word ac Llyfrgell Gwrthrychau Microsoft Excel opsiynau o'r Cyfeiriadau sydd ar Gael blwch rhestr, gweler y screenshot:
4. Yna cliciwch OK botwm i adael y blwch deialog, ac yn awr, os gwelwch yn dda F5 yn allweddol i redeg y cod, mae'r holl dablau yn y corff negeseuon wedi'u hallforio i lyfr gwaith newydd fel y dangosir y screenshot canlynol:
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.