Kuidas kiiresti Excelisse eksportida Outlooki iga värvikategooria üksuste arv

Outlooki lahendused September 29, 2025

Kui soovite kiiresti saada oma Outlooki PST-faili iga värvikategooria üksuste koguarvu, võite kasutada selles artiklis avaldatud VBA-koodi. See ekspordib teie mugavaks kontrollimiseks kõik loendused otse Exceli faili.

Eksportige oma Outlooki iga värvikategooria üksuste arv kiiresti ExcelisseMõnikord võite mõnel põhjusel soovida loendama, mitu üksust on Outlooki andmefaili igas värvikategoorias. Üldiselt saate loendamiseks kasutada kiirotsingut. Näiteks klõpsake esmalt otsingukasti. Seejärel klõpsake lindil "Otsi" nuppu "Kategoriseeri" ja valige ripploendist konkreetne värvikategooria. Järgmisena valige lindirühmas "Uurimisala" "Kõik Outlooki üksused". Hiljem, pärast otsingu lõppemist, loetletakse kõik valitud värvikategoorias olevad üksused. Nüüd näete nende otsingutulemuste arvu olekuriba vasakus alanurgas.

Kahtlemata, kui teil on palju värvikategooriaid, on ükshaaval loendamine väga tüütu. Seetõttu tutvustame sellele nõudele vastuseks väga kiiret meetodit. See ekspordib kõik loendused otse Exceli faili.

Eksportige oma Outlooki iga värvikategooria üksuste arv Excelisse

  1. Esiteks, start oma Outlooki rakendust.
  2. Seejärel vajutage Outlooki VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  3. Järgmises aknas „Microsoft Visual Basic for Applications” avage tühi moodul.
  4. Järgmisena saate sellesse mooduli aknasse kopeerida järgmised VBA koodid.
Public objDictionary As Object
Public objExcelApp As Excel.Application
Public objExcelWorkbook As Excel.Workbook
Public objExcelWorksheet As Excel.Worksheet
 
Sub ExportCountofItemsinEachColorCategories()
    Dim objCategories As Object
    Dim objCategory As Object
    Dim objPSTFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
    Dim strExcelFile As String
 
    'Create a New Excel file
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    objExcelWorksheet.Cells(1, 1) = "Color Category"
    objExcelWorksheet.Cells(1, 2) = "Count"
 
    'Find all the color categories
    Set objDictionary = CreateObject("Scripting.Dictionary")

    Set objCategories = Outlook.Application.Session.Categories
    For Each objCategory In objCategories
        objDictionary.Add objCategory.Name, 0
    Next
 
    Set objPSTFile = Outlook.Application.Session.PickFolder
 
    For Each objFolder In objPSTFile.Folders
        ProcessFolder objFolder
    Next
 
    'Save the new Excel file
    objExcelWorksheet.Columns("A:B").AutoFit
    strExcelFile = "E:\Outlook\Color Categories (" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub
 
Private Sub ProcessFolder(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objSubFolder As Object
    Dim ArrayCategories As Variant
    Dim VarCategory As Variant
    Dim ArrayKey As Variant
    Dim ArrayItem As Variant
    Dim i As Long
    Dim nRow As Integer

    'Count the items in each color category via Dictionary object
    For Each objItem In objCurrentFolder.Items
        If objItem.Categories <> "" Then
           ArrayCategories = Split(objItem.Categories, ",")
           For Each VarCategory In ArrayCategories
               If objDictionary.Exists(VarCategory) = True Then
                  objDictionary.Item(VarCategory) = objDictionary.Item(VarCategory) + 1
               End If
          Next
        End If
    Next
 
    ArrayKey = objDictionary.Keys
    ArrayItem = objDictionary.Items
    nRow = 2
 
    'Input the information into the new Excel file
    For i = LBound(ArrayKey) To UBound(ArrayKey)
        objExcelWorksheet.Cells(nRow, 1) = ArrayKey(i)
        objExcelWorksheet.Cells(nRow, 2) = ArrayItem(i) & “ Items”
        nRow = nRow + 1
    Next
 
    'Process the subfolders recursively
    For Each objSubFolder In objCurrentFolder.Folders
        ProcessFolder objSubFolder
    Next
End Sub

VBA kood – loendage oma Outlookis igas värvikategoorias olevaid üksusi

  1. Pärast seda kontrollige, kas Outlook lubab makrosid.
  2. Lõpuks saate proovida.
  • Esiteks vajutage selles uues makros klahvi F5.
  • Seejärel peate valima lähte-PST-faili ja vajutama "OK".
  • Kui kuvatakse teade "Complete", võite minna kohalikule draivile ja avada Exceli faili salvestamiseks etteantud kausta.
  • Otsige üles ja avage Exceli fail. See näeb välja järgmine pilt:Mõju: eksportige iga värvikategooria üksuste arv Excelisse

Mida teha, kui Outlook jookseb ootamatult kokku

Kuigi Outlookil on mitu võimsat funktsiooni, kipute aja jooksul oma Outlookis kokku puutuma mitmesuguste probleemidega. Näiteks võib Outlook aeg-ajalt kokku kukkuda. Parimal juhul restarOutlook suudab probleemi lahendada. Halvimal juhul võib see otseselt kaasa tuua PST andmete riknemise. Sel ajal kasutate selleks erinevaid vahendeid remont PST faili, et saada tagasi maksimaalsed Outlooki andmed, mille jaoks saate kasutada kogenud tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.