วิธีการนำเข้าชุดวันเกิดจากแผ่นงาน Excel ไปยังปฏิทิน Outlook

ถ้าคุณมีรายการข้อมูลวันเกิดในแผ่นงาน Excel คุณอาจต้องการนำเข้าวันเกิดเหล่านี้ลงในปฏิทิน Outlook ของคุณเป็นกิจกรรม บทความนี้จะแนะนำให้คุณทำสำเร็จในเวลาอันรวดเร็ว

จากบทความก่อนหน้านี้ -“ วิธีการนำเข้าวันเกิดจาก Excel ไปยังที่ติดต่อ Outlook ที่สอดคล้องกัน” คุณสามารถเรียนรู้วิธีการเพิ่มข้อมูลวันเกิดใน Excel ไปยังผู้ติดต่อที่เกี่ยวข้องได้ ในทำนองเดียวกันผู้ใช้บางคนต้องการสร้างกิจกรรมวันเกิดของ Outlook จากข้อมูลในแผ่นงาน Excel เมื่อพิจารณาถึงปัญหานี้เราจะเปิดเผยโค้ด VBA อีกชิ้นเพื่อช่วยให้คุณใช้งานได้อย่างง่ายดาย

นำเข้าชุดวันเกิดจาก Excel ไปยังปฏิทิน Outlook

1. เริ่มจากทั้งหมดเปิดไฟล์ Excel เฉพาะ ไฟล์ Excel ตัวอย่างของฉันมีดังแสดงในรูปต่อไปนี้
2. จากนั้นกด“ Alt + F11” เพื่อทริกเกอร์ตัวแก้ไข Excel VBA
3. ถัดไป ในหน้าต่าง “Microsoft Visual Basic for Applications” ใหม่ ให้เปิดใช้งานการอ้างอิงไปยัง “MS Outlook Object Library” ตาม “วิธีการเพิ่มการอ้างอิงไลบรารีอ็อบเจ็กต์ใน 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 เสียหาย และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.