Conas meabhrúcháin Outlook a chruthú ó scarbhileog Excel?
Tá an t-alt seo ag caint ar mheabhrúcháin Outlook a chruthú bunaithe ar shonraí scarbhileog Excel.
Meabhrúcháin Crete Outlook ó scarbhileog Excel le cód VBA
Cruthaigh meabhrúcháin Outlook ó scarbhileog Excel le cód VBA
Más mian leat meabhrúcháin Outlook a chruthú ó Excel, déan mar a leanas le do thoil.
1. Cruthaigh bileog oibre ina bhfuil ceanntásca na gcolún agus na réimsí meabhrúcháin comhfhreagracha mar atá thíos an pictiúr a thaispeántar.
nótaí: Don stádas gnóthach colún, uimhir 2 ciallaíonn sé go dtaispeánfar an meabhrúchán mar Busy i d’fhéilire Outlook. Is féidir leat é a athrú go 1 (Sealadach), 3 (Lasmuigh den Oifig), 4 (Ag obair in áiteanna eile), Nó 5 (Saor in Aisce) de réir mar is gá duit.
2. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Chóid.
Cód VBA: Cruthaigh meabhrúcháin Outlook ó scarbhileog Excel
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 Subnótaí: Sa chód thuas, A2: G2 an raon sonraí ar mhaith leat coinní a chruthú bunaithe air.
4. Brúigh an F5 eochair nó cliceáil ar an gcnaipe Rith chun an cód a rith. Ansin cuirfear na coinní go léir le réimsí ar leith isteach i bhféilire do Outlook ag an am céanna.
Agus ansin, is féidir leat dul chuig Féilire do dhearcadh chun na torthaí a fheiceáil, Féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!
Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!
📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...
