How to Export Outlook Calendar to Excel?
Download Outlook Calendar Appointments to Excel using one of these 2 methods.
- Outlook Calendar Export to CSV
- Outlook VBA to export Calendar to Excel
In the first method, you will get a comma separated value file, with all the appointment details exported. This file can be opened in Excel app to view the content.
Outlook VBA to Export Calendar to Excel
Well. Here, there is not limitation with options. With the Outlook VBA, we will be able to control what needs to be exported. Any field, any date range, any Calendar item. Its all possible.
Just copy paste the below code to Outlook VB editor, by pressing Alt + F11. Press F5 to execute this code as how it is done with Excel vba.
Note: Include ‘Microsoft Excel Object Library’ from Tools -> References
12345678910111213141516171819202122232425262728293031323334353637383940414243Private Sub Outlook_Vba_Get_Calendar_Item_Appoinments()Dim oWorkbook As Workbook, Calendar_To_Excel_File As StringDim oOutlook_Calendar As Outlook.Folder, oCalendar_Items As Outlook.ItemsDim oCalendarAppointment As Outlook.AppointmentItemDim iRow As DoubleiRow = 1'Change path of the Target File name if requiredCalendar_To_Excel_File = "D:\Sample23434.xlsx"'Check if Output File already existsIf VBA.Dir(Calendar_To_Excel_File) = "" Then'To Create New WorkbookSet oWorkbook = Workbooks.AddoWorkbook.SaveAs Calendar_To_Excel_FileElse'To Refer Already Created WorkbookSet oWorkbook = Workbooks.Open(Calendar_To_Excel_File)End If'Get object reference for Outlook Calendar folderSet oOutlook_Calendar = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)Set oCalendar_Items = oOutlook_Calendar.Items'Loop Thru Each Items in Outlook CalendarFor Each oCalendarAppointment In oCalendar_ItemsoWorkbook.Sheets(1).Cells(iRow, 1) = oOutlook_Calendar.FolderPathoWorkbook.Sheets(1).Cells(iRow, 2) = oCalendarAppointment.StartoWorkbook.Sheets(1).Cells(iRow, 3) = oCalendarAppointment.EndoWorkbook.Sheets(1).Cells(iRow, 4) = oCalendarAppointment.SubjectoWorkbook.Sheets(1).Cells(iRow, 5) = oCalendarAppointment.LocationoWorkbook.Sheets(1).Cells(iRow, 6) = oCalendarAppointment.DurationoWorkbook.Sheets(1).Cells(iRow, 7) = oCalendarAppointment.Size'oWorkbook.Sheets(1).Cells(irow, 8) = oCalendarAppointment.BodyiRow = iRow + 1Next'Save Excel Workbook With Calendar AppointmentsoWorkbook.SaveoWorkbook.Close False 'Close Workbook without any WarningMsgBox "Outlook Calendar Appointments Downloaded To:" & Calendar_To_Excel_FileEnd Sub
Once the code is executed, all the calendar items are exported to Excel file output.
This can be used to maintain all the appointments in one place & it is easy to refer, sort in Excel file rather than in Outlook Calendar.
Export Outlook Calendar Appointments to Excel or CSV
To extract all the calendar appointments from Outlook 2010 or above.
- Open Microsoft Outlook app.
- Open Calendar section.
- Choose File Menu -> Open & Export.
- Click Import/Export -> ‘Export to a file’ -> ‘Comma Separated Values’.
- Select which Calendar to export & Click Next.
- Type Output File name & Mapping for output fields.
- Click Finish & then Date range.
After ‘Finish’ button is clicked, Outlook will ask additional input asking for date range. The Outlook Calendar appointments falling under this date range will only be selected to download.
Once the process is completed, open the exported calendar file in Excel & verify the output.
Export Outlook Calendar – To Excel – Vba Outlook Appointment