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:
Cúntóir Ríomhphoist AI in Outlook: Freagraí níos Cliste, Cumarsáid níos soiléire (draíocht aon-cliceáil!) SAOR
Sruthlaigh do thascanna Outlook laethúla leis an Cúntóir Mail AI ó Kutools le haghaidh Outlook. Foghlaimíonn an uirlis chumhachtach seo ó do ríomhphoist roimhe seo chun freagraí cliste agus cruinne a thairiscint, chun ábhar do ríomhphoist a bharrfheabhsú, agus chun cabhrú leat teachtaireachtaí a dhréachtú agus a fheabhsú gan stró.
Tacaíonn an ghné seo le:
- Freagraí Cliste: Faigh freagraí ó do chomhráite san am a chuaigh thart - in oiriúint, beacht, agus réidh le dul.
- Ábhar Feabhsaithe: Déan do théacs ríomhphoist a bheachtú go huathoibríoch ar mhaithe le soiléireacht agus tionchar.
- Comhdhéanamh gan stró: Just a chur ar fáil eochairfhocail, agus lig AI láimhseáil an chuid eile, le stíleanna scríbhneoireachta iolracha.
- Eisínteachtaí Chliste: Leathnaigh do chuid smaointe le moltaí atá feasach ar an gcomhthéacs.
- Achoimre: Faigh forbhreathnú gonta ar ríomhphoist fhada láithreach.
- Global Reach: Aistrigh do ríomhphoist go teanga ar bith gan stró.
Tacaíonn an ghné seo le:
- Freagraí ríomhphoist cliste
- Ábhar optamaithe
- Dréachtanna bunaithe ar eochairfhocail
- Síneadh ábhar Chliste
- Achoimre ríomhphoist
- Aistriúchán ilteangach
Is fearr ar fad, tá an ghné seo go hiomlán saor go deo! Ná fan -íoslódáil Cúntóir Ríomhphoist AI anois agus bain sult as!
Uirlisí Táirgiúlachta Oifige is Fearr
Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!
Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!
📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh 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 / 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 / Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha / Í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á ...
