Cách nhập hàng loạt ngày sinh nhật từ Bảng tính Excel sang Lịch Outlook

giải pháp triển vọng Tháng Chín 29, 2025

Nếu bạn có danh sách thông tin sinh nhật trong trang tính Excel, bạn có thể muốn nhập những ngày sinh nhật này vào lịch Outlook của mình dưới dạng sự kiện. Bài viết này sẽ hướng dẫn bạn thực hiện nó trong thời gian nhanh chóng.

Từ bài viết trước - “Cách nhập hàng loạt ngày sinh từ Excel vào các liên hệ Outlook tương ứng”, bạn có thể tìm hiểu phương pháp thêm thông tin sinh nhật trong Excel vào các liên hệ có liên quan. Tương tự như vậy, một số người dùng muốn tạo sự kiện sinh nhật Outlook từ dữ liệu trong trang tính Excel. Xem xét vấn đề này, chúng tôi sẽ đưa ra một đoạn mã VBA khác để giúp bạn giải quyết vấn đề này một cách dễ dàng.

Nhập hàng loạt sinh nhật từ Excel sang Lịch Outlook

Trước hết, hãy mở tệp Excel cụ thể. Tệp Excel mẫu của tôi như trong hình sau.
Sau đó, nhấn “Alt + F11” để kích hoạt trình soạn thảo Excel VBA.
Tiếp theo, trong cửa sổ “Microsoft Visual Basic for Applications” mới, hãy bật tham chiếu đến “MS Outlook Object Library” theo hướng dẫn trong “Cách thêm tham chiếu thư viện đối tượng trong VBA".
Sau đó, sao chép mã VBA sau vào một dự án hoặc mô-đun.

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

Lưu ý: 1. Thay đổi trang tính cụ thể theo trường hợp của bạn.

Thay đổi phạm vi ô tương ứng tùy thuộc vào tệp Excel của riêng bạn.
Cuối cùng, nhấn trực tiếp phím “F5” để chạy macro này.
Khi macro kết thúc, bạn có thể mở thư mục lịch mặc định của Outlook, trong đó bạn có thể xem tất cả các sự kiện sinh nhật mới được nhập, như ảnh chụp màn hình bên dưới.

Tệp Outlook PST dễ bị tổn thương

Giống như các tài liệu Word và sổ làm việc Excel, hầu như các tệp Outlook PST đều dễ bị tấn công. Trong nhiều năm, nhiều người dùng đã từng bị tệp Outlook bị hỏng. Trong hoàn cảnh đó, họ phải ra sức thắt nút. PST sửa chữa. Tuy nhiên, thông thường, công cụ sửa lỗi tích hợp – Scanpst luôn không thể thực hiện được. Do đó, trong khóa học này, rất cần có một công cụ bên ngoài chuyên dụng hơn và xếp hạng hàng đầu, chẳng hạn như DataNumen Outlook Repair, có thể giúp bạn trích xuất dữ liệu tối đa từ tệp PST bị hỏng.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sql bị hỏng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm