如何实现自动将Outlook日历导出到excel

wdroom

Outlook中有个功能可以将日历导出到excel，请教大神，有没有办法可以实现自动导出？

wdroom

那位大神有解决方案，万分感谢

xuweicheng

简单的做了一个。

Sub GetOutlookAppiontment()
Dim olApp As Outlook.Application
Dim olNs As Namespace
Dim olFldr As MAPIFolder
Dim olApt As AppointmentItem
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set olFldr = olNs.GetDefaultFolder(olFolderCalendar)
Dim arr As Variant

i = 1


For Each olApt In olFldr.Items


With olApt

arr2 = Array(i, .Subject, .Body, .Start, .Duration, .End, .ReminderMinutesBeforeStart, .Location, .Categories)



Sheet2.Cells(i + 1, 1).Resize(1, UBound(arr2) + 1) = arr2

i = i + 1

End With

Next olApt

Set olApt = Nothing
Set olFldr = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub

xuweicheng

xuweicheng 发表于 2018-4-24 20:09
简单的做了一个。

Sub GetOutlookAppiontment()

表头如图所示自行添加即可。
如果需要修改导出的数据字段，请直接在代码arr2处修改红色字体标示的Outlook任务对象:

arr2 = Array(i, .Subject, .Body, .Start, .Duration, .End, .ReminderMinutesBeforeStart, .Location, .Categories)

ztccsj

xuweicheng 发表于 2018-4-24 20:09
简单的做了一个。

Sub GetOutlookAppiontment()

代码很简洁啊，学习

luoyunzhen

xuweicheng 发表于 2018-4-24 20:09
简单的做了一个。

Sub GetOutlookAppiontment()

对这些不了解，如何使用？