Paano Mabilis na I-export ang Kabuuang Bilang ng Mga Item sa bawat Outlook Folder sa Excel

Kung nais mong makakuha ng isang ulat tungkol sa bilang ng mga item sa bawat folder ng Outlook, maaari mong gamitin ang pamamaraang ipinakilala sa artikulong ito. Mabilis nitong gagawin ang pagbibilang at i-export ang mga resulta sa isang file na Excel.

Sa aking nakaraang artikulo - “Paano Mabilis na Makuha ang Kabuuang Bilang ng Mga Item sa isang Folder at Lahat ng Mga Subfolder nito sa pamamagitan ng Outlook VBA", Maaari mong malaman ang isang pamamaraan gamit ang VBA upang makuha ang bilang ng mga item sa isang folder. Gayunpaman, sa pamamagitan ng iyon, kung nais mong bilangin ang mga item sa lahat ng mga folder, kailangan mong piliin ang bawat folder at patakbuhin nang isa-isa ang macro. Medyo nakakapagod. Samakatuwid, tuturuan ka namin ng isa pang pamamaraan, na i-export ang bilang sa isang file na Excel.

I-export ang Kabuuang Bilang ng mga Item sa bawat Outlook Folder sa Excel

1. Sa simula, ilunsad ang iyong programa sa Outlook.
2. Pagkatapos ay pindutin ang "Alt + F11" na mga pindutan ng key sa pangunahing window ng Outlook.
3. Susunod makakapasok ka sa window ng "Microsoft Visual Basic for Applications", kung saan kailangan mong buksan ang isang module na hindi ginagamit.
4. Kasunod, kopyahin at i-paste ang sumusunod na VBA code sa modyul na ito.

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. Pagkatapos nito, kailangan mong baguhin ang antas ng seguridad ng iyong macro sa mababang.
6. Pagkatapos ay maaari kang bumalik sa bagong idinagdag na macro at pindutin ang F5 key button upang patakbuhin ang macro na ito.
7. Susunod kailangan mong pumili ng isang mapagkukunan ng PST file at pindutin ang "OK".
8. Matapos ang pagwawakas ng macro, maaari kang pumunta sa paunang natukoy na lokal na folder upang hanapin ang bagong file na Excel, na magiging hitsura ng sumusunod na screenshot:

Makuntento ang Nakakainis na Mga Error sa PST

Marahil ay nakatagpo ka ng iba't ibang mga isyu sa panahon ng paggamit ng Outlook. Upang harapin ang mga maliliit na isyu, maaari mo lamang gamitin ang tool sa pag-aayos ng inbox. Gayunpaman, kung ang mga problema ay napakaseryoso na lampas sa kung ano ang maaaring gawin ng inbuilt na tool, kailangan mong gumamit ng isang mas malakas na tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang pag-aayos ng mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa