如何將生日從Excel工作表批量導入到Outlook日曆

如果在Excel工作表中有生日信息列表，則可能需要將這些生日作為事件導入到Outlook日曆中。 本文將指導您快速完成該任務。

從上一篇文章“如何將生日從Excel批量導入到相應的Outlook聯繫人”中，您可以學習在Excel中將生日信息添加到相關聯繫人的方法。 與此類似，某些用戶希望根據Excel工作表中的數據創建Outlook生日事件。 針對此問題，我們將公開另一段VBA代碼，以幫助您輕鬆獲得它。

從Excel批量導入生日到Outlook日曆

1. 首先，打開特定的Excel文件。 我的示例Excel文件如下圖所示。
2. 然後，按“ Alt + F11”以觸發Excel VBA編輯器。
3. 接下來，在新的「Microsoft Visual Basic for Applications」視窗中，依照「啟用對『MS Outlook 物件庫』的參考」的說明進行操作。如何在 VBA 中新增物件庫引用“。
4. 之後，將以下VBA代碼複製到項目或模塊中。

Sub ImportBirthdaysToCalendar()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objOutlookApp As Outlook.Application
    Dim objCalendar As Outlook.Folder
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Get the specific sheet
    Set objWorksheet = ThisWorkbook.Sheets(1)
    nLastRow = objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row
 
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objCalendar = objOutlookApp.Session.GetDefaultFolder(olFolderCalendar)
 
    For nRow = 2 To nLastRow
        Set objBirthdayEvent = objCalendar.Items.Add("IPM.Appointment")
 
        'Create birthday events
        With objBirthdayEvent
            .Subject = objWorksheet.Range("A" & nRow) & Chr(39) & "s Birthday"
            .AllDayEvent = True
            .Start = objWorksheet.Range("B" & nRow)
         Set objRecurrencePattern = .GetRecurrencePattern
         objRecurrencePattern.RecurrenceType = olRecursYearly
            .Save
        End With
    Next
End Sub

請注意： 1.根據您的情況更改特定的工作表。

2. 根據您自己的Excel文件更改相應的單元格範圍。
3. 最後，直接按“ F5”鍵運行該宏。
4. 宏完成後，您可以打開Outlook默認日曆文件夾，在其中可以看到所有新導入的生日事件，如下面的屏幕截圖所示。

易受攻擊的Outlook PST文件

實際上，與Word文檔和Excel工作簿一樣，Outlook PST文件也同樣容易受到攻擊。 多年來，許多用戶曾經遭受過Outlook文件損壞。 在那種情況下，他們必須嘗試打結 PST維修。 但是，通常，內置的修復工具– Scanpst總是無法完成它。 因此，在此過程中，迫切需要一種更加專業和頂級的外部工具，例如 DataNumen Outlook Repair，可以幫助您從損壞的PST文件中提取最大數據。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM