Ako rýchlo exportovať úlohy programu Outlook v rôznych stavoch do rôznych pracovných hárkov v zošite programu Excel

Niekedy bude možno potrebné oddeliť a exportovať úlohy programu Outlook v rôznych stavoch do rôznych pracovných hárkov v zošite programu Excel. Tento článok vám predstaví efektívnu a ľahkú metódu.

Možno máte v Outlooku viac úloh. A sú v rôznych statusoch, vrátane „Nie Star„Prebieha“, „Dokončené“, „Odložené“ a „Čaká na niekoho iného“. Za týchto okolností, ak chcete exportovať svoje úlohy do rôznych hárkov zošita Excel na základe stavu, môžete použiť cestu uvedenú ďalej. Môže vás nechať dostať jedným ťahom.

Rýchlo exportujte úlohy v rôznych stavoch do rôznych pracovných hárkov v programe Excel

1. Pre akotart, spustiť aplikáciu Outlook.
2. Potom prejdite do editora Outlook VBA podľa odkazu „Ako spustiť kód VBA v programe Outlook".
3. Neskôr povoľte odkaz na „MS Excel Object Library “podľa„Ako pridať objekt Library Odkaz vo VBA".
4. Ďalej skopírujte nasledujúci kód do nepoužívaného modulu.

Sub ExportTasksInDifferentStatusToDifferentSheets () Dim objTasks As Outlook. Items Dim objTask As Outlook. 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.Dictionary") for each objTask In objStatus strStatus = (objTask) If objDictionary.Exists (strStatus) Then objDictionary (strStatus) = objDictionary (strStatus) + 1 Else objDictionary.Add strStatus, 1 End If Next Set objExcelApp = CreateObject ("Excel.Application") Set objExcelWorkbook = objExcelApp.Workbooks. Pridať objExcelApp.Visible = Pravda i = 0 pre každý varKey V objDictionary.Keys strKey = CStr (varKey) Pri obnovení životnosti chýb Ďalej objExcelWorkbook.Sheets (strK ey). Vyberte bSheetFound = (Err = 0) Pri chybe GoTo 0 If bSheetFound = False Then i = i + 1 If i <4 Then Set objExcelWorksheet = objExcelWorkbook.Sheets (i) Else Set objExcelWorksheet = objExcelWorkbook.Sheets.Add (After : = objExcelWorkbook.Sheets (objExcelWorkbook.Sheets.Count)) Koniec Ak objExcelWorksheet.Name = strKey Koniec Ak S objExcelWorksheet .Cells (1, 1) = strKey .Cells (1, 1) .Font.Bold = True .Cells (1 , 1) .Font.Size = 18 .Cells (2, 1) = "Subject" .Cells (2, 1) .Font.Bold = True .Cells (2, 2) = "Start Dátum ".Cells (2, 2) .Font.Bold = True .Cells (2, 3) =" Termín splatnosti ".Cells (2, 3) .Font.Bold = True Koniec s pre každý objTask v objTasks Ak GetStatus (objTask) = strKey Potom nLastRow = objExcelWorksheet.Range ("A" & objExcelWorksheet.Rows.Count) .End (xlUp) .Row + 1 S objExcelWorksheet .Range ("A" & nLastRow) = objTask.Subject .Range (" B "& nLastRow) = objTask.StartDate .Range ("C" & nLastRow) = objTask.DueDate Koniec Koniec Ak Ďalej objExcelWorksheet.Columns ("A: C"). AutoFit Nasledujúci Koniec Podfunkcia GetStatus (objTask Ako TaskItem) Ako String Vyberte Prípad objTask.Status Prípad 0 GetStatus = "Nie Started "Prípad 1 GetStatus =" Prebieha "Prípad 2 GetStatus =" Dokončený "Prípad 3 GetStatus =" Čaká na niekoho iného "Prípad 4 GetStatus =" Odložený "Koniec Vybrať Koniec Funkcia

5. Potom priamo spustite toto makro pomocou klávesu „F5“.
6. Okamžite sa zobrazí nový zošit programu Excel. Obsahuje samostatné pracovné listy, ktoré obsahujú exportované úlohy v rôznych stavoch, ako je znázornené na nasledujúcej snímke obrazovky.

Pripravte sa na obnovenie aplikácie Outlook

Pretože je ťažké predvídať poškodenie Outlooku, ale súbor PST má tendenciu byť poškodený, je potrebné, aby si každý používateľ Outlooku udržoval dobrú pripravenosť na neočakávané poškodenie PST. Mali by ste sa napríklad zmocniť špecializovaného nástroja na obnovu, napríklad DataNumen Outlook Repair, ktorý je schopný obnoviť Outlook údaje bez námahy.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skorumpovaný sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S