Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як стварыць сустрэчу з дадзеных Excel?

Выказаўшы здагадку, у вас ёсць табліца дадзеных прызначэння ў лісце Excel ў наступным скрыншоце паказана на малюнку, зараз вы жадаеце імпартаваць гэтыя дадзеныя ў каляндар Outlook. Як вы маглі б справіцца з гэтай працай хутка?

экспарт дакумента першынстваваць дадзеныя для прызначэння 1

Стварэнне прызначэння з дадзеных Excel з VBA кода


Стварэнне прызначэння з дадзеных Excel з VBA кода

Для таго, каб стварыць прызначэння з дадзеных Excel, можна ўжыць наступны код VBA, калі ласка, як гэта:

1, Запусціце Outlook, і ўтрымлівайце ALT + F11 ключы, каб адкрыць Microsoft Visual Basic для прыкладанняў акна.

2, націсніце Уставіць > МодуліІ ўстаўце наступны код у Модулі Акно.

VBA код: Імпарт дадзеных Excel для прызначэння:

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, Тым не менш у Microsoft Visual Basic для прыкладанняў вокны, націсніце інструменты > Спасылкі каб перайсці да Спасылкі-Project1 дыялогавае акно, і праверка Бібліятэка аб'ектаў Microsoft Excel варыянт ад даступныя спасылкі Акно спісу, см скрыншот:

экспарт дакумента першынстваваць дадзеныя для прызначэння 2

4, затым націсніце OK кнопка, зараз, націсніце F5 ключ для запуску гэтага кода, і выберыце файл акно адлюстроўваецца, калі ласка, абярыце першынстваваць файл, які вы жадаеце імпартаваць у Outlook, см скрыншот:

экспарт дакумента першынстваваць дадзеныя для прызначэння 3

5. А затым націсніце OK, Падказка скрынка здабываецца наступным чынам:

экспарт дакумента першынстваваць дадзеныя для прызначэння 4

6, затым націсніце OK, Дадзеныя Excel былі імпартаваныя ў каляндар як наступны скрыншот паказана:

экспарт дакумента першынстваваць дадзеныя для прызначэння 5



Kutools для Outlook,

Больш 100 Пашыраныя функцыі для Перспектывы 2010, 2013, 2016, 2019 і 365

здымак экрана kutools для перспектывы маленечкага для банэра 201812

дадатковыя магчымасці | спампаваць | Толькі $ 39.00 сотні функцый

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.
  • To post as a guest, your comment is unpublished.
    amiral · 2 days ago
    super cool il ya une erreur je la i rectifier mai apparament mes items colle pas mince



    olApp = Nothing ?
    xExcelApp.Quit