Extracting appointments from shared Outlook calendar to Excel

Question

I am trying to extract appointments from a shared Outlook calendar to Excel using a VBA macro in Excel. The code fails whether I try to define objOwner and

Answer 1

You have to change:

Set olFolder = olNS.GetSharedDefaultFolder(objOwner, olFolderCalendar)

with this :

Set olFolder = olNS.GetDefaultFolder(9)