Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com exportar el recompte de missatges de previsió al llibre de treball d'Excel?

Normalment, podeu exportar els missatges d'Outlook a un fitxer Excel mitjançant la funció d'importació / exportació de manera ràpida i senzilla. Però, heu intentat comptar els ítems de totes les carpetes del vostre compte de correu electrònic específic i exportar els resultats del recompte al llibre de treball d'Excel?

El missatge de la perspectiva d'exportació es calcula al llibre de treball Excel amb codi VBA


El missatge de la perspectiva d'exportació es calcula al llibre de treball Excel amb codi VBA

El següent codi VBA us pot ajudar a exportar els resultats del recompte de totes les carpetes d'un compte de correu electrònic específic al llibre de treball d'Excel, feu el següent:

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu el següent codi al Mòduls Finestra.

Codi VBA: els ítems de visualització d'exportació es compten amb el llibre d'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 Resum Next Set xExcelApp = New Excel.pplication Set xWb = xExcelApp.Workbooks.Add Set xWs = xWb.Sheets (1) xWs.Cells (1, 1) = "Carpeta" xWs.Cells (1, 2) = "Compte d'elements" Estableix xSourceFolder = Outlook.Application.Session. PickFolder Si xSourceFolder = nill Then xWb.Close False xExcelApp.Quit Exit Sub End Si per a cada xSubFolder En xSourceFolder.Folders Truca a les carpetes del procés (xWs, xSubFolder) Següent xWs.Columns ("A: B"). AutoFit Set xShell = CreateObject (" Shell.Application ") Estableix xFolder = xShell.BrowseForward (0," Selecciona una carpeta: ", 0, 0) Si TypeName (xFolder) =" Nothing "Then xWb.Close False xExcelApp.Quit Exit Sub End if Set xFolderItem = xFolder .Self xFilePath = xFolderItem.Path i "\" xFilePath = xFilePath i xSourceFolder.Name & "(" & For mat (ara, "aaaa-mm-dd hh-mm-ss") i "). Xlsx" xWb.Close True, xFilePath xExcelApp.Quit Set xShell = Res MsgBox "Complet", vbExclamation, "Kutools for Outlook" End SubFolder 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 Si xCurFolder.Folders.Count> 0 Llavors per a cada xSubFld a xCurFolder.Folders Truca a Processar carpetes (Ws, xSubFld) Next End si End Sub

3. I, encara a la Microsoft Visual Basic per a aplicacions finestra, feu clic a instruments > referències per anar a la Referències: Project1 quadre de diàleg i verificació Biblioteca d'objectes de Microsoft Excel opció de la Referències disponibles quadre de llista, veure captura de pantalla:

Els ítems d'exportació del document compten amb 1

4. A continuació, feu clic a OK, i premeu F5 clau per executar aquest codi, a Selecciona la carpeta es treu, seleccioneu un compte de correu electrònic que vulgueu exportar, comproveu l'element, vegeu la captura de pantalla:

Els ítems d'exportació del document compten amb 2

5. A continuació, feu clic a OKi un altre Cerca la carpeta es mostra, si us plau, seleccioneu una carpeta per posar el fitxer Excel, vegeu la captura de pantalla:

Els ítems d'exportació del document compten amb 3

6. Per fi, feu clic a OK el botó i el compte d'elements en tota la carpeta del compte seleccionat s'ha exportat a un llibre d'Excel, podeu obrir el fitxer Excel per veure el resultat, veure la captura de pantalla:

Els ítems d'exportació del document compten amb 4



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l'anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.