Come importare i compleanni da Excel al calendario di Outlook?

Se hai un lungo elenco di informazioni sui compleanni in un foglio di lavoro, ora vuoi importare questi compleanni nel tuo calendario di Outlook come eventi. Come potresti affrontare questo compito con alcuni metodi rapidi?

---

Importa i compleanni da Excel al calendario di Outlook con il codice VBA

Normalmente, non esiste un modo diretto per importare i compleanni nel calendario di Outlook, qui creerò un codice VBA per risolvere questo problema, eseguire i seguenti passaggi:

1. Apri il foglio di lavoro che contiene i compleanni che desideri importare in Outlook, quindi tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nella finestra del modulo.

Codice VBA: importa i compleanni nel calendario di Outlook

Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
  MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
  Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
  Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
  With xAppointmentItem
    .Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
    .AllDayEvent = True
    .Start = xRng.Cells(xRow, 2)
    Set xRecurrencePattern = .GetRecurrencePattern
    xRecurrencePattern.RecurrenceType = olRecursYearly
    .Save
  End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub

3. Ancora in Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Referenze. Nel spuntato Riferimenti - VBAProject finestra di dialogo, controllare Libreria oggetti di Microsoft Outlook 16.0 opzione forma il Riferimenti disponibili casella di riepilogo, vedi screenshot:

4. Quindi fare clic OK per chiudere questa finestra di dialogo. Ora, premi F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio, selezionare le colonne nome e compleanno, vedere screenshot:

5. Quindi fare clic su OK pulsante, i compleanni verranno importati nel calendario di Outlook in una volta, puoi avviare Outlook per visualizzare il risultato, vedi screenshot: