¿Cómo leer citas del calendario de Outlook desde Excel?

Leer citas del calendario de Outlook desde Excel se puede lograr utilizando VBA (Visual Basic for Applications). A continuación, te mostraré un ejemplo básico de cómo hacerlo. Este ejemplo asume que tienes Outlook instalado y configurado en tu computadora:

Sub LeerCitasDeOutlook()
    Dim OutlookApp As Object
    Dim NameSpace As Object
    Dim CalendarFolder As Object
    Dim ApptItem As Object
    Dim Items As Object
    Dim i As Long
    
    ' Crea una instancia de la aplicación de Outlook
    On Error Resume Next
    Set OutlookApp = GetObject(Class:="Outlook.Application")
    If OutlookApp Is Nothing Then
        Set OutlookApp = CreateObject(Class:="Outlook.Application")
    End If
    On Error GoTo 0
    
    If OutlookApp Is Nothing Then
        MsgBox "No se puede iniciar Outlook.", vbExclamation
        Exit Sub
    End If
    
    ' Obtener el espacio de nombres MAPI
    Set NameSpace = OutlookApp.GetNamespace("MAPI")
    ' Obtener la carpeta de Calendario
    Set CalendarFolder = NameSpace.GetDefaultFolder(9)
    
    ' Obtener los elementos en la carpeta de calendario
    Set Items = CalendarFolder.Items
    Items.Sort "[Start]"
    
    ' Configurar hoja de Excel
    With Sheets("Hoja1") ' Asegúrate de ajustar el nombre de la hoja según sea necesario
        .Cells.Clear
        .Range("A1:D1").Value = Array("Asunto", "Inicio", "Fin", "Ubicación")
        
        ' Leer elementos del calendario y escribir en Excel
        i = 2
        For Each ApptItem In Items
            If ApptItem.Class = 26 Then ' 26 indica que es una cita
                .Cells(i, 1).Value = ApptItem.Subject
                .Cells(i, 2).Value = ApptItem.Start
                .Cells(i, 3).Value = ApptItem.End
                .Cells(i, 4).Value = ApptItem.Location
                i = i + 1
            End If
        Next ApptItem
    End With
    
    ' Limpiar objetos
    Set ApptItem = Nothing
    Set Items = Nothing
    Set CalendarFolder = Nothing
    Set NameSpace = Nothing
    Set OutlookApp = Nothing
End Sub

Abrir el Editor de VBA:

Abre Excel.
Presiona `ALT` + `F11` para abrir el Editor de VBA.

Insertar un Módulo:

En el Editor de VBA, ve a `Insertar` > `Módulo` para añadir un nuevo módulo.

Añadir el Código VBA:

Copia y pega el siguiente código en el módulo:

Ejecutar la Macro:

Cierra el editor de VBA.
Regresa a Excel y presiona `ALT` + `F8` para abrir el cuadro de diálogo de macros.
Selecciona `LeerCitasDeOutlook` y haz clic en `Ejecutar`.

Este script copiará las citas de tu calendario de Outlook en la hoja de cálculo especificada, comenzando desde la celda A1 con los encabezados «Asunto», «Inicio», «Fin» y «Ubicación».

Asegúrate de cambiar «Hoja1» en el código al nombre de la hoja que realmente estás utilizando en tu archivo de Excel. Además, puede que necesites ajustar las configuraciones de seguridad de macros en Excel para permitir la ejecución de scripts VBA.