Cum să exportați rapid sarcini Outlook în diferite stări în foi de lucru diferite într-un registru de lucru Excel

Uneori, este posibil să fie necesar să separați și să exportați sarcinile Outlook în diferite stări în foi de lucru diferite într-un registru de lucru Excel. Acest articol vă va prezenta o metodă eficientă și ușoară.

Poate că aveți mai multe sarcini în Outlook. Și sunt în stări diferite, inclusiv „Nu Started”, „În curs”, „Terminat”, „Amânat” și „În așteptarea pe altcineva”. În această circumstanță, dacă doriți să exportați sarcinile în diferite foi ale unui registru de lucru Excel pe baza stării, puteți utiliza modul expus în continuare. Vă poate permite să-l obțineți dintr-o singură mișcare.

Exportați rapid sarcini în diferite stări în foi de lucru diferite în Excel

1. Pentru noitart, lansați aplicația Outlook.
2. Apoi, accesați editorul Outlook VBA făcând referire la „Cum să rulați codul VBA în Outlook".
3. Mai târziu, activați referința la „MS Excel Object Library” conform „Cum să adăugați un obiect Library Referință în VBA".
4. Apoi, copiați următorul cod într-un modul neutilizat.

Sub ExportTasksInDifferentStatusToDifferentSheets() Dim objTasks As Outlook.Items Dim objTask As Outlook.TaskItem Dim strStatus As String Dim objDictionary As Object Dim objExcelApp As Excel.Application Dim objExcelWorkbook As ExcelWorkbook As ExcelmWorkWorkWorkWorkWorkWorkWorkWorks y As Variant Dim strKey As String Dim i As Long Dim bSheetFound As Boolean Dim nLastRow As Integer Dim objSheet As Excel.Worksheet Set objTasks = Application.Session.GetDefaultFolder(olFolderTasks).Items Set objDictionary = CreateObject("Scripting.TajTastusk") Obj. (objTask) Dacă objDictionary.Exists(strStatus) Atunci objDictionary(strStatus) = objDictionary(strStatus) + 1 Else objDictionary.Add strStatus, 1 End If Next Set objExcelApp = CreateObject("Excel.Application") Set obj.Excel.Application =Excelkbook Adaugă objExcelApp.Visible = True i = 0 Pentru fiecare varKey în objDictionary.Keys strKey = CStr(varKey) La eroare Reluare Următorul objExcelWorkbook.Sheets(strKey).Select bSheetFound = (Err = 0) La eroare GoTo 0 = False ThenFound i = i + 1 Dacă i < 4 Atunci Setați objExcelWorkbook = objExcelWorkbook.Sheets(i) Altfel Setați objExcelWorksheet = objExcelWorkbook.Sheets.Add(After:=objExcelWorkbook.Sheets(objExcelWorkbook.Sheets))Enceldsheets.objExcelWorkbook.Sheets. End If With objExcelWorksheet .Cells(1, 1) = strKey .Cells(1, 1).Font.Bold = True .Cells(1, 1).Font.Size = 18 .Cells(2, 1) = „Subiect” .Cells(2, 1).Font.Bold = True .Cells(2, 2) = „Start Data" .Cells(2, 2).Font.Bold = True .Cells(2, 3) = "Due Data" .Cells(2, 3).Font.Bold = True End With For Each objTask In objTasks If GetStatus (objTask) = strKey Apoi nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1 Cu objExcelWorksheet .Range("A" & nLastRow) = objTask.Sub("objTask.Sub). B" & nLastRow) = objTask.StartDate .Range("C" & nLastRow) = objTask.DueDate End With End If Next objExcelWorksheet.Columns("A:C").AutoFit Next End Sub Function GetStatus(objTask As TaskItem) As String Select Case objTask.Status Case 0 GetStatus = „Nu Started" Cazul 1 GetStatus = „În desfășurare” Cazul 2 GetStatus = „Finalizat” Cazul 3 GetStatus = „Se așteaptă pe altcineva” Cazul 4 GetStatus = „Amânat” End Select End Function

5. După aceea, rulați direct această macrocomandă prin tasta „F5”.
6. Imediat, se va afișa un nou registru de lucru Excel. Conține foile de lucru separate care au sarcinile exportate în diferite stări, așa cum se arată în următoarea captură de ecran.

Fiți pregătit pentru recuperarea Outlook

Deoarece este greu să predicați corupția Outlook, dar fișierul PST tinde să fie deteriorat, este necesar ca fiecare utilizator Outlook să fie bine pregătit pentru corupția PST neașteptată. De exemplu, ar trebui să obțineți un instrument specializat de recuperare, cum ar fi DataNumen Outlook Repair, care este capabil să recuperați Outlook date cu ușurință fără efort.

Introducerea autorului:

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