Como exportar rapidamente tarefas do Outlook em status diferentes para planilhas diferentes em uma pasta de trabalho do Excel

Às vezes, pode ser necessário separar e exportar suas tarefas do Outlook em diferentes status para diferentes planilhas em uma pasta de trabalho do Excel. Este artigo apresentará um método eficaz e fácil para você.

Talvez você tenha várias tarefas no Outlook. E eles estão em diferentes status, incluindo “Not Started”, “Em andamento”, “Concluído”, “Adiado” e “Aguardando outra pessoa”. Nesta circunstância, se você deseja exportar suas tarefas para planilhas diferentes de uma pasta de trabalho do Excel com base no status, pode usar o método exposto a seguir. Ele pode permitir que você obtenha de uma só vez.

Exporte rapidamente tarefas em diferentes status para diferentes planilhas no Excel

1. Para comotart, inicie o aplicativo Outlook.
2. Em seguida, acesse o editor VBA do Outlook consultando “Como executar o código VBA no seu Outlook".
3. Posteriormente, habilite a referência a “MS Excel Object Library” de acordo com “Como adicionar uma biblioteca de objetosrary Referência em VBA".
4. Em seguida, copie o código a seguir em um módulo não utilizado.

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") Para cada objTask In objTasks strStatus = GetStatus (objTask) Se 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. Add objExcelApp.Visible = True i = 0 For Each varKey In objDictionary.Keys strKey = CStr(varKey) On Error Resume Next objExcelWorkbook.Sheets(strKey).Select bSheetFound = (Err = 0) On Error 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)) End If objExcelWorksheet.Name = strKey End If Com objExcelWorksheet .Cells(1, 1) = strKey .Cells(1, 1).Font.Bold = True .Cells(1, 1).Font.Size = 18 .Cells(2, 1) = "Assunto" .Cells(2, 1).Font.Bold = True .Cells(2, 2) = "Start Date" .Cells(2, 2).Font.Bold = True .Cells(2, 3) = "Due Date" .Cells(2, 3).Font.Bold = True End With For Each objTask In objTasks If GetStatus (objTask) = strKey Then nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1 With 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 = "Não Started" Case 1 GetStatus = "Em andamento" Case 2 GetStatus = "Concluído" Case 3 GetStatus = "Esperando por outra pessoa" Case 4 GetStatus = "Adiado" End Select End Function

5. Depois disso, execute esta macro diretamente com a tecla “F5”.
6. Imediatamente, uma nova pasta de trabalho do Excel será exibida. Ele contém as planilhas separadas que possuem as tarefas exportadas em diferentes status, conforme mostrado na captura de tela a seguir.

Mantenha-se preparado para a recuperação do Outlook

Como é difícil prever a corrupção do Outlook, mas o arquivo PST tende a ser danificado, é necessário que todos os usuários do Outlook se mantenham bem preparados para a corrupção inesperada do PST. Por exemplo, você deve obter uma ferramenta de recuperação especializada, como DataNumen Outlook Repair, que é capaz de recuperar Outlook dados com facilidade sem esforço.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com