วิธีการนำเข้าวันเกิดจาก Excel ไปยังปฏิทิน Outlook?

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-09-18

หากคุณมีรายการข้อมูลวันเกิดจำนวนมากในเวิร์กชีต ตอนนี้ คุณต้องการนำเข้าวันเกิดเหล่านี้ลงในปฏิทิน Outlook ของคุณเป็นกิจกรรม คุณจะจัดการกับงานนี้ด้วยวิธีที่รวดเร็วได้อย่างไร?

นำเข้าวันเกิดจาก Excel ไปยังปฏิทิน Outlook ด้วยรหัส VBA

โดยปกติ ไม่มีวิธีนำเข้าวันเกิดไปยังปฏิทิน Outlook โดยตรง ที่นี่ ฉันจะสร้างรหัส VBA เพื่อแก้ปัญหานี้ โปรดทำตามขั้นตอนต่อไปนี้:

1. เปิดเวิร์กชีตที่มีวันเกิดที่คุณต้องการนำเข้าไปยัง Outlook จากนั้นกด . ค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

รหัส VBA: นำเข้าวันเกิดไปยังปฏิทิน 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. ยังคงอยู่ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก เครื่องมือ > อ้างอิง. ในที่โผล่ออกมา เอกสารอ้างอิง - VBAProject กล่องโต้ตอบตรวจสอบ ไลบรารีอ็อบเจ็กต์ Microsoft Outlook 16.0 ตัวเลือกจาก อ้างอิงที่มีอยู่ กล่องรายการดูภาพหน้าจอ:

4. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบนี้ ตอนนี้กด F5 เพื่อเรียกใช้รหัสนี้ และกล่องข้อความจะปรากฏขึ้น โปรดเลือกคอลัมน์ชื่อและวันเกิด ดูภาพหน้าจอ:

5. จากนั้นคลิก OK ปุ่ม วันเกิดจะถูกนำเข้าสู่ปฏิทิน Outlook พร้อมกัน คุณสามารถเปิด Outlook เพื่อดูผลลัพธ์ ดูภาพหน้าจอ:

AI Mail Assistant ใน Outlook: การตอบกลับที่ชาญฉลาดยิ่งขึ้น การสื่อสารที่ชัดเจนยิ่งขึ้น (เวทย์มนตร์เพียงคลิกเดียว!) ฟรี

ปรับปรุงงาน Outlook ประจำวันของคุณด้วย AI Mail Assistant จาก Kutools for Outlook เครื่องมืออันทรงพลังนี้เรียนรู้จากอีเมลที่ผ่านมาของคุณเพื่อให้การตอบกลับที่ชาญฉลาดและแม่นยำ เพิ่มประสิทธิภาพเนื้อหาอีเมลของคุณ และช่วยให้คุณร่างและปรับแต่งข้อความได้อย่างง่ายดาย

คุณสมบัตินี้รองรับ:

การตอบกลับอัจฉริยะ: รับการตอบกลับที่สร้างขึ้นจากการสนทนาที่ผ่านมาของคุณ ปรับแต่ง แม่นยำ และพร้อมใช้งาน
เนื้อหาที่ได้รับการปรับปรุง: ปรับแต่งข้อความอีเมลของคุณโดยอัตโนมัติเพื่อความชัดเจนและผลกระทบ
องค์ประกอบที่ง่ายดาย: เพียงระบุคำหลัก แล้วปล่อยให้ AI จัดการที่เหลือด้วยสไตล์การเขียนที่หลากหลาย
ส่วนขยายอัจฉริยะ: ขยายความคิดของคุณด้วยคำแนะนำที่คำนึงถึงบริบท
สรุป: รับภาพรวมโดยย่อของอีเมลขนาดยาวทันที
การเข้าถึงทั่วโลก: แปลอีเมลของคุณเป็นภาษาต่างๆ ได้อย่างง่ายดาย

คุณสมบัตินี้รองรับ: