Колачићи нам помоћи да испоручи наше услуге. Коришћењем наше услуге, сагласни сте да наше коришћење колачића.
Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како креирати састанак из Екцел података?

Претпостављам да у таблици Екцел-а имате таблицу података о састанку, као што је приказано на следећем екрану, сада желите да увезете ове податке у Оутлоок календар. Како можете брзо да се бавите овим послом?

доц екпорт екцел дата до именовања КСНУМКС

Направите именовања из Екцел података са ВБА кодом


Направите именовања из Екцел података са ВБА кодом

Да бисте креирали састанке из Екцел података, можете да примените следећи ВБА код, молимо вас да урадите овако:

1. Покрените Оутлоок и задржите АЛТ + ФКСНУМКС тастере за отварање Мицрософт Висуал Басиц за апликације прозор.

2. Клик Убацити > Модули, и налепите следећи код у Модули Прозор.

ВБА код: Увоз Екцел података до заказивања:

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. Још увек у Мицрософт Висуал Басиц за апликације прозор, кликните алат > Референце да одем до Референце-ПројецтКСНУМКС дијалог и провери Библиотека објеката Мицрософт Екцел опција из Доступне референце бок бок, погледајте сцреенсхот:

доц екпорт екцел дата до именовања КСНУМКС

4. Затим кликните OK тастер, сада, притисните F5 кључ за покретање овог кода и а Изаберите датотеку приказан је прозор, молимо изаберите датотеку екцел коју желите да увозите у Оутлоок, погледајте сцреенсхот:

доц екпорт екцел дата до именовања КСНУМКС

5. И онда кликните OK, промптна кутија се појављује на следећи начин:

доц екпорт екцел дата до именовања КСНУМКС

6. Затим кликните OK, подаци Екцел-а су увезени у календар као приказани слиједећи приказ:

доц екпорт екцел дата до именовања КСНУМКС



Кутоолс за Оутлоок

Више од КСНУМКС напредних функција за Оутлоок КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

сцреен схот кутоолс фор оутлоок тини за баннер КСНУМКС

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција

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.