Как быстро экспортировать задачи Outlook в разных состояниях на разные листы в книге Excel

Иногда вам может потребоваться разделить и экспортировать задачи Outlook в разных состояниях на разные листы в книге Excel. Эта статья познакомит вас с эффективным и простым методом.

Возможно, у вас есть несколько задач в Outlook. И они в разных статусах, в том числе «Не Started», «Выполняется», «Завершено», «Отложено» и «Ожидает кого-то другого». В этом случае, если вы хотите экспортировать свои задачи в разные листы книги Excel на основе статуса, вы можете использовать способ, указанный ниже. Это может позволить вам получить его за один раз.

Быстрый экспорт задач в разных состояниях на разные листы в Excel

1. Для насtarт, запустите приложение Outlook.
2. Затем войдите в редактор Outlook VBA, обратившись к «Как запустить код VBA в Outlook».
3. Позже включите ссылку на «MS Excel Object Librarу» в соответствии с «Как добавить объектную библиотекуrary Ссылка в VBA».
4. Затем скопируйте следующий код в неиспользуемый модуль.

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 Excel.Workbook Dim objExcelWorksheet As Excel.Worksheet Dim varKey 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.Dictionary") Для каждой задачи objTask в objTasks strStatus = GetStatus (objTask) Если objDictionary.Exists(strStatus) Then objDictionary(strStatus) = objDictionary(strStatus) + 1 Else objDictionary.Add strStatus, 1 End If Next Установить objExcelApp = CreateObject("Excel.Application") Установить objExcelWorkbook = objExcelApp.Workbooks. Добавить objExcelApp.Visible = True i = 0 Для каждого varKey в objDictionary.Keys strKey = CStr(varKey) При ошибке Возобновить Далее objExcelWorkbook.Sheets(strKey).Select bSheetFound = (Err = 0) При ошибке Перейти к 0 Если bSheetFound = False Then i = i + 1 Если i < 4, то Установить objExcelWorksheet = objExcelWorkbook.Sheets(i) Иначе Установить objExcelWorksheet = objExcelWorkbook.Sheets.Add(After:=objExcelWorkbook.Sheets(objExcelWorkbook.Sheets.Count)) End If objExcelWorksheet.Name = strKey End If With objExcelWorksheet .Cells(1, 1) = strKey .Cells(1, 1).Font.Bold = True .Cells(1, 1).Font.Size = 18 .Cells(2, 1) = "Тема" .Cells(2, 1).Font.Bold = True .Cells(2, 2) = "Start Date" .Cells(2, 2).Font.Bold = True .Cells(2, 3) = "Дата выполнения" .Cells(2, 3).Font.Bold = True End With Для каждой задачи objTask В objTasks If GetStatus (objTask) = strKey Тогда nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1 С objExcelWorksheet .Range("A" & nLastRow) = objTask.Subject .Range(" 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 = "Не Started" Case 1 GetStatus = "Выполняется" Case 2 GetStatus = "Completed" Case 3 GetStatus = "Ожидание кого-то еще" Case 4 GetStatus = "Deferred" End Select End Function

5. После этого напрямую запустите этот макрос с помощью клавиши «F5».
6. Сразу же появится новая книга Excel. Он содержит отдельные листы с экспортированными задачами в разных состояниях, как показано на следующем снимке экрана.

Будьте готовы к восстановлению Outlook

Поскольку трудно предсказать повреждение Outlook, но файл PST имеет тенденцию к повреждению, каждому пользователю Outlook необходимо быть хорошо подготовленным к неожиданному повреждению PST. Например, вам следует приобрести специализированный инструмент восстановления, такой как DataNumen Outlook Repairкоторый способен восстановить Outlook данные с легкостью.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com