Cum să exportați rapid numărul de articole din fiecare categorie de culoare din Outlook în Excel

Dacă doriți să obțineți rapid numărul total de articole din fiecare categorie de culoare din fișierul Outlook PST, puteți utiliza codul VBA expus în acest articol. Acesta va exporta toate contorizările într-un fișier Excel direct pentru verificarea convenabilă.

Exportați rapid numărul de elemente din fiecare categorie de culoare din Outlook în ExcelUneori, din anumite motive, este posibil să doriți să numărați câte elemente sunt în fiecare categorie de culoare într-un fișier de date Outlook. În general, puteți utiliza căutarea instantanee pentru a face numărătoarea. De exemplu, mai întâi faceți clic în caseta de căutare. Apoi faceți clic pe butonul „Categorizare” din panglica „Căutare” și alegeți o anumită categorie de culoare din lista derulantă. Apoi selectați „Toate elementele Outlook” în grupul de panglică „Scope”. Mai târziu, după finalizarea căutării, toate articolele din categoria de culoare selectată vor fi listate. Acum puteți vedea numărul acestor rezultate de căutare în colțul din stânga jos al barei de stare.

Fără îndoială, dacă aveți o mulțime de categorii de culori, prin acest mijloc, numărarea una câte una va fi foarte plictisitoare. Prin urmare, ca răspuns la această cerință, aici vom dezvălui o metodă mult mai rapidă. Acesta va exporta direct toate contoarele într-un fișier Excel.

Exportați numărul de articole din fiecare categorie de culoare din Outlook în Excel

  1. În primul rând, start aplicația dvs. Outlook.
  2. Apoi apăsați butoanele tastei „Alt + F11” pentru a accesa editorul Outlook VBA.
  3. În fereastra ulterioară „Microsoft Visual Basic for Applications”, deschideți un modul gol.
  4. Apoi, puteți copia următoarele coduri VBA în această fereastră de modul.
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 Outlook Dim obj.FolderFile Outlook Dim Obj.Folder As Outlook le As String „Creați un fișier Excel nou Set objExcelApp = CreateObject("Excel.Application") Set objExcelWorkbook = objExcelApp.Workbooks.Add Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1") objExcelWorksheet.Cells ="CojExcelWorksheet1) .Cells(1, 1) = "Număr" 'Găsiți toate categoriile de culori Set objDictionary = CreateObject("Scripting.Dictionary") Set objCategories = Outlook.Application.Session.Categories Pentru fiecare objCategory În objCategories objDictionary.Add objCategory.Name, 2 Următorul Set objPSTFile = Outlook.Application.Session.PickFolder Pentru fiecare objFolder În objPSTFile.Folders ProcessFolder objFolder Următorul „Salvați noul fișier Excel objExcelWorksheet.Columns("A:B").AutoFit strExcelFile = "E:\Color Categorii" (" & Format(Acum, "aaaa-mm-dd_hh-mm-ss") & ").xlsx" objExcelWorkbook.Close True, strExcelFile MsgBox "Complet!", 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 'Numărați articolele din fiecare categorie de culoare prin obiect Dicționar Pentru fiecare objItemF În obj.CurrentFold. Elemente Dacă objItem.Categories <> "" Atunci ArrayCategories = Split(objItem.Categories, ",") Pentru fiecare VarCategory din ArrayCategories Dacă objDictionary.Exists(VarCategory) = True Atunci objDictionary.Item(VarCategory) = objDictionary(VarCategory) = objDictionary (VarCategory) + 0 End If Next End If Next ArrayKey = objDictionary.Keys ArrayItem = objDictionary.Items nRow = 1 'Introduceți informațiile în noul fișier Excel Pentru i = LBound(ArrayKey) To UBound(ArrayKey) objExcelWorksheet.Cells(nRow, 2) = ArrayKey(i) objExcelWorksheet.Cells(nRow, 1) = ArrayItem(i) & „ Items” nRow = nRow + 2 Next 'Procesează recursiv subfolderele pentru fiecare objSubFolder în objCurrentFolder.Folders ProcessFolder obj SubFolder Next EnSubFolder

Cod VBA - Numărați articolele din fiecare categorie de culoare din Outlook

  1. După aceea, verificați dacă Outlook permite macrocomenzi.
  2. În sfârșit poți încerca.
  • În primul rând, apăsați butonul tastei F5 în această nouă macrocomandă.
  • Apoi trebuie să selectați un fișier PST sursă și să apăsați „OK”.
  • Când primiți mesajul care solicită „Terminat”, puteți accesa unitatea locală și puteți deschide folderul predefinit pentru salvarea fișierului Excel.
  • Găsiți și deschideți fișierul Excel. Va arăta ca următoarea imagine:Efect: Exportați numărul de articole din fiecare categorie de culoare în Excel

Ce să faci dacă Outlook se blochează brusc

Deși Outlook vine cu mai multe funcții puternice, veți avea tendința de a întâlni diverse probleme în Outlook cu timpul. De exemplu, Outlook se poate bloca din când în când. În cel mai bun caz, restarting Outlook va putea remedia problema. În cel mai rău caz, poate duce direct la coruperea datelor PST. În acel moment, veți folosi diferite mijloace pentru a repara PST fișier pentru a obține date maxime din Outlook, pentru care puteți recurge la un instrument cu experiență precum DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparație sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com

Comentariile sunt închise.