Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā izveidot tikšanos no Excel datiem?

Pieņemot, ka Excel darblapā ir tabula par tikšanās datiem, kā redzams attēlā, tagad vēlaties importēt šos datus Outlook kalendārā. Kā jūs varētu ātri risināt šo darbu?

doc eksports Excel datus uz iecelšanu 1

Izveidojiet vizītes no Excel datiem ar VBA kodu


Izveidojiet vizītes no Excel datiem ar VBA kodu

Lai izveidotu vizītes no Excel datiem, varat izmantot šādu VBA kodu, lūdzu, rīkojieties šādi:

1. Palaidiet Outlook un turiet ALT + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Noklikšķiniet ielaidums > Moduļiun ielīmējiet tālāk norādīto kodu Moduļi Logu

VBA kods: Importējiet Excel datus uz iecelšanu:

Public Sub CreateOutlookApptz()
    Dim xAppointmentItem As Outlook.AppointmentItem
    Dim xNameSpace As Outlook.NameSpace
    Dim xCalendarFld As Outlook.MAPIFolder, xSubFolder As Outlook.MAPIFolder
    Dim xCalendarStr As String
    Dim I As Long
    Dim xFileDialog As FileDialog
    Dim xFilePath As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Workbook
    Dim xWs As Worksheet
    On Error GoTo Err_Execute
    Set xExcelApp = New Excel.Application
    Set xFileDialog = xExcelApp.FileDialog(msoFileDialogFilePicker)
    With xFileDialog
        .Title = "Select a file"
        .Filters.Add "Microsoft Excel", "*.xlsx"
    End With
    If xFileDialog.Show = 0 Then Exit Sub
    xFilePath = xFileDialog.SelectedItems(1)
    Set xWb = xExcelApp.Workbooks.Open(xFilePath)
    Set xNameSpace = Outlook.Application.Session
    Set xCalendarFld = xNameSpace.GetDefaultFolder(olFolderCalendar)
    I = 2
    Set xWs = xWb.Worksheets.Item(1)
    xCalendarStr = xWb.Name
    If FolderExist(xCalendarFld, xCalendarStr) = False Then
        Set xSubFolder = xCalendarFld.Folders.Add(xCalendarStr, olFolderCalendar)
    Else
        Set xSubFolder = xCalendarFld.Folders(xCalendarStr)
    End If
    Do Until Trim(xWs.Cells(I, 1).Value) = ""
        Set xAppointmentItem = xSubFolder.Items.Add(olAppointmentItem)
        With xAppointmentItem
            .Start = xWs.Cells(I, 5) + xWs.Cells(I, 6)
            .End = xWs.Cells(I, 7) + xWs.Cells(I, 8)
            .Subject = xWs.Cells(I, 1)
            .Location = xWs.Cells(I, 2)
            .Body = xWs.Cells(I, 3)
            .BusyStatus = olBusy
            .ReminderMinutesBeforeStart = xWs.Cells(I, 9)
            .ReminderSet = True
            .Categories = xWs.Cells(I, 4)
            .Save
        End With
        I = I + 1
    Loop
    Set xAppointmentItem = Nothing
    Set olApp = Nothing
    xExcelApp.Quit
    Set xExcelApp = Nothing
    MsgBox "Import successfully!", vbInformation, "Kutools for Outlook"
    Exit Sub
Err_Execute:
    MsgBox "An error occurred - Exporting items to Calendar.", vbInformation, "Kutools for Outlook"
End Sub
Function FolderExist(CalFolder As Folder, FolderName As String) As Boolean
    Dim I As Integer
    Dim xSubFolder As Folder
    For I = 1 To CalFolder.Folders.Count
        Set xSubFolder = CalFolder.Folders.Item(I)
        If xSubFolder.Name = FolderName Then
            FolderExist = True
            Exit Function
        End If
    Next I
End Function

3. Joprojām ir Microsoft Visual Basic for Applications logs, noklikšķiniet uz darbarīki > Atsauces doties uz Atsauces - Project1 dialoglodziņš un pārbaudiet Microsoft Excel objektu bibliotēka iespēja no Pieejamās atsauces saraksta lodziņš, skatiet ekrānuzņēmumu:

doc eksports Excel datus uz iecelšanu 2

4. Pēc tam noklikšķiniet uz OK pogu, nospiediet F5 atslēgu, lai palaistu šo kodu, un a Izvēlieties failu logs tiek parādīts, lūdzu, izvēlieties Excel failu, kuru vēlaties importēt uz programmu Outlook, skatiet ekrānuzņēmumu:

doc eksports Excel datus uz iecelšanu 3

5. Un pēc tam noklikšķiniet uz OK, tiek parādīts uznirstošais lodziņš šādā veidā:

doc eksports Excel datus uz iecelšanu 4

6. Pēc tam noklikšķiniet uz OK, Excel dati ir importēti kalendārā, kā parādīts attēlā.

doc eksports Excel datus uz iecelšanu 5



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.