Як швидко експортувати кількість елементів у кожній кольоровій категорії у вашому Outlook до Excel

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Якщо ви хочете швидко отримати загальну кількість елементів у кожній кольоровій категорії у своєму файлі PST Outlook, ви можете скористатися кодом VBA, представленим у цій статті. Він експортує всі підрахунки у файл Excel безпосередньо для зручності перевірки.

Швидко експортуйте кількість елементів у кожній кольоровій категорії у програмі Outlook у ExcelІноді з якихось причин вам може знадобитися підрахувати кількість елементів у кожній кольоровій категорії у файлі даних Outlook. Загалом для підрахунку можна використовувати миттєвий пошук. Наприклад, спочатку клацніть у вікні пошуку. Потім натисніть кнопку «Категоризувати» на стрічці «Пошук» і виберіть потрібну кольорову категорію зі спадного списку. Далі виберіть “Усі елементи Outlook” у групі стрічок “Scope”. Пізніше, після завершення пошуку, будуть перераховані всі елементи у вибраній кольоровій категорії. Тепер ви можете побачити кількість цих результатів пошуку в лівому нижньому куті рядка стану.

Без будь-яких сумнівів, якщо у вас багато кольорових категорій, підрахувати одну за одною буде дуже нудно. Тому у відповідь на цю вимогу ми тут розкриємо набагато швидкий метод. Він прямо експортуватиме всі підрахунки у файл Excel.

Експортуйте кількість елементів у кожній кольоровій категорії у програмі Outlook у Excel

  1. Спочатку запустіть програму Outlook.
  2. Потім натисніть клавіші “Alt + F11”, щоб отримати доступ до редактора Outlook VBA.
  3. У наступному вікні “Microsoft Visual Basic for Applications” відкрийте порожній модуль.
  4. Далі ви можете скопіювати наступні коди VBA у це вікно модуля.
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 - підраховуйте елементи у кожній кольоровій категорії у вашому Outlook

  1. Після цього перевірте, чи Outlook дозволяє макроси.
  2. Нарешті можна спробувати.
  • По-перше, натисніть клавішу F5 у цьому новому макросі.
  • Потім потрібно вибрати вихідний файл PST і натиснути “OK”.
  • Коли ви отримаєте повідомлення із запитом "Завершити", ви можете перейти на локальний диск і відкрити заздалегідь визначену папку для збереження файлу Excel.
  • Знайдіть і відкрийте файл Excel. Це буде виглядати так:Ефект: експортуйте кількість елементів у кожній кольоровій категорії до Excel

Що робити, якщо Outlook раптово виходить з ладу

Хоча Outlook має багато потужних функцій, з часом у ньому можуть виникати різні проблеми. Наприклад, Outlook може час від часу аварійно завершувати роботу. У кращому випадку перезапуск Outlook зможе вирішити проблему. У гіршому випадку це може безпосередньо призвести до пошкодження даних PST. У такому разі ви використовуватимете різні засоби для... ремонт PST файл, щоб повернути максимум даних Outlook, для яких ви можете звернутися до досвідченого інструменту, такого як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql ремонт та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.