Kuidas pakettimportida sünnipäevi Exceli töölehelt Outlooki kalendrisse

Outlooki lahendused September 29, 2025

Kui teil on Exceli töölehel sünnipäevateabe loend, võite soovida need sünnipäevad sündmustena oma Outlooki kalendrisse importida. See artikkel juhendab teid selle kiireks täitmiseks.

Eelmisest artiklist – „Kuidas pakettimportida sünnipäevi Excelist vastavatesse Outlooki kontaktidesse” – saate teada, kuidas lisada asjakohastele kontaktidele sünnipäevateavet Excelis. Sarnaselt sellele soovivad mõned kasutajad luua Outlooki sünnipäevasündmusi Exceli lehel olevate andmete põhjal. Seda probleemi vaadates avaldame veel ühe VBA-koodi, mis aitab teil seda hõlpsalt hankida.

Sünnipäevade pakettimportimine Excelist Outlooki kalendrisse

  1. Kõigepealt avage konkreetne Exceli fail. Minu Exceli näidisfail on selline, nagu on näidatud järgmisel joonisel.Exceli töölehe näidis
  2. Seejärel vajutage Exceli VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
  3. Järgmisena lubage uues aknas „Microsoft Visual Basic for Applications” viide „MS Outlook Object Library” vastavalt jaotisele „Kuidas lisada VBA-s objektiteegi viidet".
  4. Pärast seda kopeerige järgmine VBA kood projekti või moodulisse.
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

VBA-kood – sünnipäevade partii importimine Excelist Outlooki kalendrisse

Märge: 1. Muutke konkreetset lehte vastavalt oma juhtumile.

  1. Muutke vastavat lahtrivahemikku sõltuvalt teie enda Exceli failist.
  2. Lõpuks vajutage selle makro käivitamiseks otse klahvi "F5".
  3. Kui makro on lõppenud, saate avada Outlooki vaikekalendri kausta, milles näete kõiki uusi imporditud sünnipäevasündmusi, nagu alloleval ekraanipildil.Sünnipäevasündmused kalendris

Haavatavad Outlooki PST-failid

Nagu Wordi dokumendid ja Exceli töövihikud, on ka Outlooki PST-failid praktiliselt sama haavatavad. Paljud kasutajad on aastaid olnud Outlooki failikahjustuste all. Sellises olukorras peavad nad proovima sõlme PST remont. Kuid tavaliselt on sisseehitatud parandustööriist – Scanpst ei suuda seda alati täita. Seetõttu on sellel kursusel väga vaja spetsiaalset ja kõrgeima tasemega välist tööriista, näiteks DataNumen Outlook Repair, mis aitab teil rikutud PST-failist maksimaalselt andmeid eraldada.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.