Ako rýchlo exportovať celkový počet položiek v jednotlivých priečinkoch programu Outlook do programu Excel

Ak chcete získať prehľad o počte položiek v jednotlivých priečinkoch Outlooku, môžete použiť metódu uvedenú v tomto článku. Rýchlo spočíta a výsledky exportuje do súboru Excel.

V mojom predchádzajúcom článku - „Ako rýchlo získať celkový počet položiek v priečinku a všetkých jeho podpriečinkoch pomocou aplikácie Outlook VBA”, Môžete sa naučiť metódu pomocou VBA na získanie počtu položiek v priečinku. To znamená, že ak chcete počítať položky vo všetkých priečinkoch, musíte vybrať každý priečinok a spustiť makro jeden po druhom. Je to trochu zdĺhavé. Preto vás naučíme inú metódu, ktorá počet vyexportuje do súboru Excel.

Exportujte celkový počet položiek v jednotlivých priečinkoch Outlooku do programu Excel

1. Na začiatku spustite program Outlook.
2. Potom stlačte klávesy „Alt + F11“ v hlavnom okne programu Outlook.
3. Ďalej sa dostanete do okna „Microsoft Visual Basic for Applications“, v ktorom musíte otvoriť modul, ktorý sa nepoužíva.
4. Následne skopírujte a prilepte nasledujúci kód VBA do tohto modulu.

Public strExcelFile As String
Public objExcelApp As Excel.Application
Public objExcelWorkbook As Excel.Workbook
Public objExcelWorksheet As Excel.Worksheet

Sub Export_CountOfItems_InEachFolder_toExcel()
    Dim objSourcePST As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Create a new Excel file
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    objExcelWorksheet.Cells(1, 1) = "Folder"
    objExcelWorksheet.Cells(1, 2) = "Count Items"
 
    'Select a source PST file
    Set objSourcePST = Outlook.Application.Session.PickFolder

    For Each objFolder In objSourcePST.folders
        Call ProcessFolders(objFolder)
    Next
 
    'Fit the columns from A to B
    objExcelWorksheet.Columns("A:B").AutoFit
 
    strExcelFile = "E:\Outlook\" & objSourcePST.Name & " Folder Items Count (" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItem As Object
    Dim lCurrentFolderItemCount As Long
    Dim nLastRow As Integer
 
    lCurrentFolderItemCount = objCurrentFolder.Items.Count
 
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1

    'Add the values into the columns
    objExcelWorksheet.Range("A" & nLastRow) = objCurrentFolder.FolderPath
    objExcelWorksheet.Range("B" & nLastRow) = lCurrentFolderItemCount
 
    If objCurrentFolder.folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Potom musíte zmeniť úroveň zabezpečenia makra programu Outlook na nízku.
6. Potom sa môžete vrátiť k novo pridanému makru a stlačením klávesu F5 toto makro spustiť.
7. Ďalej musíte zvoliť zdrojový súbor PST a stlačiť „OK“.
8. Po dokončení makra môžete prejsť do preddefinovaného miestneho priečinka a vyhľadať nový súbor programu Excel, ktorý bude vyzerať ako na nasledujúcej snímke obrazovky:

Vyrovnajte nepríjemné chyby PST

Možno ste sa počas používania Outlooku stretli s rôznymi problémami. Pri riešení drobných problémov sa môžete jednoducho uchýliť k nástroj na opravu doručenej pošty. Ak sú však problémy také závažné, že presahovali možnosti zabudovaného nástroja, musíte použiť výkonnejší nástroj, napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S