Het krijgen van Excel data in Outlook Calendar

Kelly heeft een werkblad waarbij ze een tafel van data gebruikt als uiterste data voor het krijgen van advertenties in de lokale Gouden Gids. Ze wil deze data in Outlook-agenda met een herinnering van 72 uur te importeren, maar sommige van de data blijven veranderen om nummers. Kelly vraagt ​​zich af hoe ze de Excel-data kan krijgen in Outlook als ze nodig heeft.

Werken met Outlook is een beetje "hoger niveau" dan uw run-of-the-mill Excel macro omdat je nodig hebt om te begrijpen niet alleen hoe de toegang tot Excel-gegevens in de macro, maar ook hoe je Outlook gegevens te manipuleren. Zonder precies te weten welke gegevens je nodig hebt om van het werkblad naar de Outlook afspraak, laten we onderzoeken een kort scenario.

Laten we aannemen dat je een werkblad dat een reeks van rijen, die elk een enkele afspraak die u wilt creëren bevat hebben. Elke afspraak bevat informatie in zeven kolommen, als volgt, van links naar rechts:

  • Onderwerp. De tekst die het evenement / afspraak beschrijft (bijvoorbeeld "Yellow Pages Herinnering")
  • Locatie. Tekst die de locatie van de gebeurtenis beschrijft, zoals een vergaderruimte of een conference call nummer (dit is optioneel)
  • Start Datum / tijd. Voer de datum en tijd waarop het evenement moet beginnen met een standaard Excel datumnotatie (u kunt elke manier die je wilt weergeven)
  • Duur. Integer dat een aantal minuten vertegenwoordigt voor de benoeming
  • Bezet-status. Integer dat er een extra waarde vertegenwoordigt die aangeeft of de tijd moet uitwijzen als Free (0), Voorlopig (1), Bezet (2), of Out of Office (3)
  • Herinnering Tijd. Integer dat een aantal minuten voor de afspraak dat een herinnering moet pop-up vertegenwoordigt (zoals in 4320, die het aantal minuten in 3 dagen)
  • Lichaam. Tekst die elk detail je zou willen plaatsen in het lichaam van de benoeming beschrijft

Met deze gegevens in de plaats, kunt u een macro om lus door alle rijen (te beginnen met de tweede rij, ervan uitgaande dat de eerste rij heeft de rubrieken) en maak een afspraak voor elke rij.

Sub AddAppointments ()
'Maak de Outlook-sessie
Stel myOutlook = CreateObject ("Outlook.Application")

'Begin bij rij 2
r = 2

Doe Tot Trim (Cells (r, 1) .Value) = ""
'Maak de AppointmentItem
Stel myApt = myOutlook.createitem (1)
'Stel de benoeming eigenschappen
myApt.Subject = Cells (r, 1) .Value
myApt.Location = Cells (r, 2) .Value
myApt.Start = Cells (r, 3) .Value
myApt.Duration = Cells (r, 4) .Value
'Als Bezet-status niet is opgegeven, standaard 2 (bezet)
Als Trim (Cells (r, 5) .Value) = "" Dan
myApt.BusyStatus = 2
Anders
myApt.BusyStatus = Cells (r, 5) .Value
End If
Indien Cellen (r, 6) .Value> 0 Then
myApt.ReminderSet = True
myApt.ReminderMinutesBeforeStart = Cells (r, 6) .Value
Anders
myApt.ReminderSet = False
End If
myApt.Body = Cells (r, 7) .Value
myApt.Save
r = r + 1
Lus
End Sub

De macro blijft lus door de rijen tot het onderwerp kolom leeg.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (7349) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003.


© 2019 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com