Conas tábla comhlacht ríomhphoist a easpórtáil chun barr feabhais a chur ar Outlook?
Nuair a fhaigheann tú R-phost ina bhfuil roinnt táblaí sa chorp, uaireanta, b’fhéidir go mbeidh ort na táblaí go léir a easpórtáil ón gcorp teachtaireachta go bileog oibre barr feabhais. De ghnáth, is féidir leat na táblaí a chóipeáil agus a ghreamú ar bhileog oibre, ach, anseo, labhróidh mé faoi mhodh úsáideach chun an post seo a réiteach nuair is gá táblaí iolracha a easpórtáil.
Easpórtáil na táblaí go léir ó chomhlacht teachtaireachta Outlook go bileog oibre Excel le cód VBA
Easpórtáil na táblaí go léir ó chomhlacht teachtaireachta Outlook go bileog oibre Excel le cód VBA
Cuir an cód VBA seo a leanas i bhfeidhm le do thoil chun na táblaí go léir a easpórtáil ó chomhlacht teachtaireachta amháin go bileog oibre Excel.
1. Oscail an teachtaireacht gur mian leat na táblaí a easpórtáil, agus ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil fhuinneog.
Cód VBA: Easpórtáil na táblaí go léir ón gcomhlacht teachtaireachta go barr feabhais bileog oibre:
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. Tar éis an cód thuas a ghreamú, fós sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil uirlisí > tagairtí dul go dtí an Tagairtí-Tionscadal1 bosca dialóige, agus seiceáil Leabharlann Réada Microsoft Word agus Leabharlann Réada Microsoft Excel roghanna ón Tagairtí atá ar Fáil bosca liosta, féach an scáileán:
4. Ansin cliceáil OK cnaipe chun an bosca dialóige a fhágáil, agus anois, le do thoil F5 eochair chun an cód a rith, rinneadh na táblaí go léir sa chorp teachtaireachta a onnmhairiú chuig leabhar oibre nua mar a thaispeántar an pictiúr a leanas:
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú
🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...
📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...
Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.