Excel Worksheet မှ Outlook Calendar သို့ မွေးနေ့များကို အစုလိုက်ထည့်သွင်းနည်း

သင့်တွင် Excel worksheet တွင် မွေးနေ့အချက်အလက်စာရင်းတစ်ခုရှိပါက၊ ဤမွေးနေ့များကို သင်၏ Outlook ပြက္ခဒိန်ထဲသို့ ဖြစ်ရပ်များအဖြစ် ထည့်သွင်းလိုပေမည်။ ဤဆောင်းပါးသည် သင့်အား အချိန်တိုအတွင်း ပြီးမြောက်စေရန် လမ်းညွှန်ပေးလိမ့်မည်။

ယခင်ဆောင်းပါးတွင် - "Excel မှ မွေးနေ့များကို သက်ဆိုင်ရာ Outlook အဆက်အသွယ်များသို့ အစုလိုက်ထည့်သွင်းနည်း" မှ သက်ဆိုင်ရာ အဆက်အသွယ်များသို့ Excel တွင် မွေးနေ့အချက်အလက်များ ထည့်သွင်းနည်းကို သင်လေ့လာနိုင်ပါသည်။ အလားတူ၊ အချို့သောအသုံးပြုသူများသည် Excel စာရွက်ရှိဒေတာမှ Outlook မွေးနေ့ပွဲများကို ဖန်တီးလိုကြသည်။ ဤပြဿနာကိုကြည့်ရင်း၊ လွယ်ကူစွာရနိုင်စေရန်အတွက် အခြား VBA ကုဒ်တစ်ခုကို ကျွန်ုပ်တို့ ဖော်ထုတ်ပါမည်။

Excel မှ Outlook Calendar သို့ Batch မွေးနေ့များကို တင်သွင်းပါ။

1. ပထမဦးစွာ၊ သီးခြား Excel ဖိုင်ကိုဖွင့်ပါ။ ကျွန်ုပ်၏ နမူနာ Excel ဖိုင်သည် အောက်ပါပုံတွင် ပြထားသည့်အတိုင်း ဖြစ်ပါသည်။
2. ထို့နောက် Excel VBA တည်းဖြတ်မှုကို စတင်ရန် "Alt + F11" ကိုနှိပ်ပါ။
3. ထို့နောက် “Microsoft Visual Basic for Applications” ဝင်းဒိုးအသစ်တွင် “MS Outlook Object Library” ကို ရည်ညွှန်းချက်အတိုင်း ဖွင့်ပါ”VBA မှာ Object Library Reference ထည့်နည်း"။
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. နောက်ဆုံးတွင်၊ ဤ macro ကိုလည်ပတ်ရန် "F5" ခလုတ်ကိုတိုက်ရိုက်နှိပ်ပါ။
4. မက်ခရို ပြီးသောအခါ၊ အောက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံကဲ့သို့ တင်သွင်းလာသော မွေးနေ့ပွဲများအားလုံးကို သင်မြင်နိုင်စေသည့် သင်၏ Outlook မူရင်းပြက္ခဒိန်ဖိုင်တွဲကို ဖွင့်နိုင်သည်။

အားနည်းချက်ရှိသော Outlook PST ဖိုင်များ

Word စာရွက်စာတမ်းများနှင့် Excel အလုပ်စာအုပ်များကဲ့သို့ပင်၊ Outlook PST ဖိုင်များသည် တူညီသောအားနည်းချက်ရှိသည်။ နှစ်များစွာကြာအောင်၊ အသုံးပြုသူအများအပြားသည် Outlook ဖိုင်ပျက်စီးမှုကို ခံခဲ့ရဖူးသည်။ ဒီလိုအခြေအနေမျိုးမှာ နှိမ့်ချဖို့ ကြိုးစားရမယ်။ PST ပြုပြင်ခြင်း။. သို့သော် အများအားဖြင့်၊ built-in fix tool - Scanpst သည် ၎င်းကို အမြဲတမ်း မပြီးမြောက်နိုင်ပါ။ ထို့ကြောင့် ဤသင်တန်းတွင်၊ ကဲ့သို့သော အထူးပြုပြီး ထိပ်တန်း ပြင်ပကိရိယာတစ်ခု လိုအပ်ပါသည်။ DataNumen Outlook Repairယိုယွင်းနေသော PST ဖိုင်မှ အများဆုံးဒေတာကို ထုတ်ယူရာတွင် ကူညီပေးနိုင်သည်။

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပျက်ယွင်းနေသော sql နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com