Conas comhaireamh teachtaireachtaí dearcadh a easpórtáil chuig leabhar oibre Excel?
De ghnáth, is féidir leat na teachtaireachtaí Outlook a easpórtáil go comhad Excel tríd an ngné Iompórtáil / Easpórtáil a úsáid go tapa agus go héasca. Ach, an ndearna tú iarracht riamh na míreanna a chomhaireamh i ngach fillteán de do chuntas Ríomhphoist ar leith agus torthaí an chomhairimh a easpórtáil chuig leabhar oibre Excel?
Áireamh teachtaireachtaí teachtaireachta onnmhairiúcháin chuig leabhar oibre Excel le cód VBA
Áireamh teachtaireachtaí teachtaireachta onnmhairiúcháin chuig leabhar oibre Excel le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat torthaí an chomhairimh ó gach fillteán i gcuntas Ríomhphoist ar leith a easpórtáil chuig leabhar oibre Excel, déan mar seo le do thoil:
1. 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 Fuinneog.
Cód VBA: Áireamh na míreanna dearcadh onnmhairiúcháin chuig leabhar oibre Excel:
Sub Export_CountOfItems_InEachFolder_toExcel()
Dim xSourceFolder As Outlook.Folder, xSubFolder As Outlook.Folder
Dim xFilePath As String
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
On Error Resume Next
Set xExcelApp = New Excel.Application
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
xWs.Cells(1, 1) = "Folder"
xWs.Cells(1, 2) = "Count Items"
Set xSourceFolder = Outlook.Application.Session.PickFolder
If xSourceFolder = nill Then
xWb.Close False
xExcelApp.Quit
Exit Sub
End If
For Each xSubFolder In xSourceFolder.Folders
Call ProcessFolders(xWs, xSubFolder)
Next
xWs.Columns("A:B").AutoFit
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then
xWb.Close False
xExcelApp.Quit
Exit Sub
End If
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
xFilePath = xFilePath & xSourceFolder.Name & "(" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
xWb.Close True, xFilePath
xExcelApp.Quit
Set xShell = Nothing
MsgBox "Complete!", vbExclamation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal Ws As Worksheet, ByVal xCurFolder As Outlook.Folder)
Dim xSubFld As Folder
Dim xItemCount As Long
Dim xRow As Integer
xItemCount = xCurFolder.Items.Count
xRow = Ws.UsedRange.Rows.Count + 1
Ws.Cells(xRow, 1) = xCurFolder.FolderPath
Ws.Cells(xRow, 2) = xItemCount
If xCurFolder.Folders.Count > 0 Then
For Each xSubFld In xCurFolder.Folders
Call ProcessFolders(Ws, xSubFld)
Next
End If
End Sub
3. Agus, 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 Excel rogha ón Tagairtí atá ar Fáil bosca liosta, féach an scáileán:
4. Ansin cliceáil OK, agus ansin brúigh F5 eochair chun an cód seo a rith, a Roghnaigh Fillteán popped out, roghnaigh cuntas Ríomhphoist ar mian leat comhaireamh na n-earraí a easpórtáil, féach an scáileán:
5. Ansin cliceáil OK, agus ceann eile Brabhsáil Chun Fillteán ar taispeáint, roghnaigh fillteán le do thoil chun an comhad Excel a chur, féach an scáileán:
6. Faoi dheireadh, cliceáil OK cnaipe, agus rinneadh na míreanna a chomhaireamh i bhfillteán uile an chuntais roghnaithe a onnmhairiú chuig leabhar oibre Excel, is féidir leat an comhad Excel a oscailt chun an toradh a fheiceáil, féach ar an scáileán:
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.