Ինչպես արագ արտահանել Outlook- ի յուրաքանչյուր թղթապանակի տարրերի ընդհանուր քանակը Excel- ին

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք հաշվետվություն ստանալ Outlook- ի յուրաքանչյուր թղթապանակի տարրերի քանակի վերաբերյալ, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը: Այն արագ կկատարի հաշվարկը և արդյունքները կարտահանի Excel ֆայլում:

Իմ նախորդ հոդվածում ՝ «Ինչպես արագ ստանալ Outlook VBA- ի միջոցով թղթապանակի իրերի ընդհանուր քանակը և դրա բոլոր ենթապանակները”, Կարող եք սովորել VBA- ի միջոցով օգտագործվող մեթոդ` թղթապանակում գտնվող տարրերի քանակը ստանալու համար: Այնուամենայնիվ, այդ միջոցներով, եթե ցանկանում եք բոլոր թղթապանակների տարրերը հաշվել, պետք է ընտրեք յուրաքանչյուր թղթապանակ և գործարկեք մակրոը մեկ առ մեկ: Մի քիչ հոգնեցուցիչ է: Հետևաբար, մենք ձեզ կսովորեցնենք մեկ այլ մեթոդ, որը հաշվարկը կարտահանի Excel ֆայլ:

Յուրաքանչյուր Outlook թղթապանակում ապրանքների ընդհանուր քանակը արտահանել Excel- ին

Սկզբից գործարկեք ձեր Outlook ծրագիրը:
Դրանից հետո հիմնական Outlook պատուհանում սեղմեք «Alt + F11» ստեղնաշարի կոճակները:
Հաջորդը դուք կհայտնվեք «Microsoft Visual Basic ծրագրերի համար» պատուհանում, որտեղ դուք պետք է բացեք չօգտագործվող մոդուլ:
Դրանից հետո պատճենեք և տեղադրեք հետևյալ VBA կոդը այս մոդուլում:

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

Դրանից հետո դուք պետք է փոխեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
Այնուհետև կարող եք վերադառնալ նոր ավելացված մակրո և սեղմել F5 ստեղնը `այս մակրոը գործարկելու համար:
Հաջորդը, դուք պետք է ընտրեք աղբյուրի PST ֆայլ և կտտացրեք «Լավ»:
Մակրո ավարտելուց հետո կարող եք գնալ կանխորոշված տեղական թղթապանակ `նոր Excel ֆայլը գտնելու համար, որը նման կլինի հետևյալ սքրինշոթին.

Կարգավորեք ձանձրացնող PST սխալները

Հավանաբար, Outlook- ի օգտագործման ընթացքում բախվել եք տարբեր խնդիրների: Փոքր հարցերով զբաղվելու համար կարող եք պարզապես դիմել մուտքի արկղի վերանորոգման գործիք, Այնուամենայնիվ, եթե խնդիրները այնքան լուրջ են, որ դրանք գերազանցում են ներկառուցված գործիքը, դուք պետք է օգտագործեք ավելի հզոր գործիք, ինչպես DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf վերանորոգում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com