Hur skapar jag Outlook-påminnelser från Excel-kalkylblad?

Författare: Siluvia Senast ändrad: 2025-04-10

Den här artikeln talar om att skapa Outlook-påminnelser baserat på data från ett Excel-kalkylblad.

Skapa Outlook-påminnelser från Excel-kalkylblad med VBA-kod

Skapa Outlook-påminnelser från Excel-kalkylblad med VBA-kod

Gör så här om du vill skapa Outlook-påminnelser från Excel.

1. Skapa ett kalkylblad som innehåller kolumnrubriker och motsvarande påminnelsefält som visas i skärmdumpen nedan.

steg för att använda vba för att skapa Outlook-påminnelser från Excel-kalkylblad

Obs: För kolumnen "upptagen" betyder siffran "2" att påminnelsen kommer att visas som "upptagen" i din Outlook-kalender. Du kan ändra det till "1 (Tentativt)", "3 (Out of Office)", "4 (Arbetar någon annanstans)" eller "5 (gratis)" efter behov.

2. Tryck på "Alt" + "F11" för att öppna fönstret "Microsoft Visual Basic for Applications".

3. I fönstret "Microsoft Visual Basic for Applications" klickar du på "Infoga" > "Modul". Kopiera sedan följande VBA-kod till kodfönstret.

VBA-kod: Skapa Outlook-påminnelser från Excel-kalkylblad

Sub AddAppointments()
'Update by Extendoffice 20180608
    Dim I As Long
    Dim xRg As Range
    Dim xOutApp As Object
    Dim xOutItem As Object
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = Range("A2:G2")
    For I = 1 To xRg.Rows.Count
        Set xOutItem = xOutApp.CreateItem(1)
        Debug.Print xRg.Cells(I, 1).Value
        xOutItem.Subject = xRg.Cells(I, 1).Value
        xOutItem.Location = xRg.Cells(I, 2).Value
        xOutItem.Start = xRg.Cells(I, 3).Value
        xOutItem.Duration = xRg.Cells(I, 4).Value
        If Trim(xRg.Cells(I, 5).Value) = "" Then
            xOutItem.BusyStatus = 2
        Else
            xOutItem.BusyStatus = xRg.Cells(I, 5).Value
        End If
        If xRg.Cells(I, 6).Value > 0 Then
            xOutItem.ReminderSet = True
            xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
        Else
            xOutItem.ReminderSet = False
        End If
        xOutItem.Body = xRg.Cells(I, 7).Value
        xOutItem.Save
        Set xOutItem = Nothing
    Next
    Set xOutApp = Nothing
End Sub

Obs: I ovanstående kod är "A2:G2" det dataintervall du vill skapa möten baserat på.

4. Tryck på "F5" eller klicka på knappen "Kör" för att köra koden. Då kommer alla möten med specifika fält att infogas i din Outlook-kalender på en gång.

Sedan kan du gå till kalendern för din Outlook för att se resultaten. Se skärmdump: