Noen ganger kan det hende du må skille og eksportere Outlook-oppgavene dine i forskjellige statuser til forskjellige regneark i en Excel-arbeidsbok. Denne artikkelen vil introdusere en effektiv og enkel metode for deg.
Kanskje du har flere oppgaver i Outlook. Og de er i forskjellige statuser, inkludert "Ikke Started”, “Pågår”, “Fullført”, “Utsatt” og “Venter på noen andre”. Under disse omstendighetene, hvis du ønsker å eksportere oppgavene dine til de forskjellige arkene i en Excel-arbeidsbok på grunnlag av statusen, kan du bruke måten som vises senere. Det kan la deg få det på en gang.
Eksporter oppgaver i forskjellige statuser raskt til forskjellige regneark i Excel
- For somtart, start Outlook-applikasjonen.
- Deretter får du tilgang til Outlook VBA-editor ved å referere til "Hvordan kjøre VBA-kode i Outlook".
- Aktiver senere referansen til "MS Excel Object Library" ifølge "Hvordan legge til et objekt Library Referanse i VBA".
- Deretter kopierer du følgende kode inn i en ubrukt modul.
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 As Excel.Workbook As Excel.Workbook As Excel Str Dimks objExheet ing 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 Every objTasks In str objTasks (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 objExcelExcelsAppbook =WorkWorkbook. Legg til objExcelApp.Visible = True i = 0 For hver varKey I objDictionary.Keys strKey = CStr(varKey) Ved feil Fortsett Neste objExcelWorkbook.Sheets(strKey).Velg bSheetFound = (Err = 0) Ved feil Gå til 0 Hvis 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)Endsheet objExcelWorkW End If With objExcelWorksheet .Cells(1, 1) = strKey .Cells(1, 1).Font.Bold = True .Cells(1, 1).Font.Size = 18 .Cells(2, 1) = "Emne" .Cells(2, 1). Font.Fet = Sant .Cells(2, 2) = "Start Date" .Cells(2, 2). Font.Fet = True .Cells(2, 3) = "Forfallsdato" .Cells(2, 3).Font.Fet = True End With For Every objTask In objTasks If GetStatus (objTask) = strKey Deretter nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1 With objExcelWorksheet .Range("A" & nLastRow) = objEubjTask.SangeubjTask.S 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 = "Ikke Started" Case 1 GetStatus = "I Progress" Case 2 GetStatus = "Completed" Case 3 GetStatus = "Venter på noen andre" Case 4 GetStatus = "Utsatt" Sluttvalg sluttfunksjon
- Etter det, kjør denne makroen direkte via "F5"-tasten.
- Umiddelbart vises en ny Excel-arbeidsbok. Den inneholder de separate regnearkene som har de eksporterte oppgavene i forskjellige statuser, som vist i følgende skjermbilde.
Hold deg forberedt på Outlook-gjenoppretting
Siden det er vanskelig å forutsi Outlook-korrupsjon, men PST-filen har en tendens til å bli skadet, er det nødvendig for hver Outlook-bruker å holde seg godt forberedt på uventet PST-korrupsjon. For eksempel bør du få tak i et spesialisert gjenopprettingsverktøy, som DataNumen Outlook Repair, som er i stand til gjenopprette Outlook data med uanstrengt letthet.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert korrupt sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med
Jeg digger absolutt p-en dinost, og uten å svikte følger jeg trofast hver av anbefalingene hver gang det kommer en ny. Ikke bare det, men jeg deler det entusiastisk på alle mine sosiale medieplattformer, og mine dedikerte følgere gir alltid en rungende liking og engasjerer seg i den. Fortsett det fremragende arbeidet og informative sostkommer! Forresten, jeg fant en artikkel fra sites.google.com/view/career-shift/makethfate om hvordan man tjener penger på nettet etter å ha blitt permittert, og jeg vil gjerne dele min egen erfaring med hvordan jeg har klart å overvinne min økonomiske ve på bare fjorten dager med denne tredelte effektive strategien og veiledningen som ikke cost meg eneste øre!
o.web20.tjenester