Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum se creează întâlniri din datele Excel?

Presupunând că aveți o masă de date de întâlniri într-o foaie de lucru Excel după cum se arată în imaginea de mai jos, acum doriți să importați aceste date în calendarul Outlook. Cum ai putut face rapid acest loc de muncă?

doc export date excelente la numirea 1

Creați întâlniri din datele Excel cu codul VBA


Creați întâlniri din datele Excel cu codul VBA

Pentru a crea întâlniri din datele de la Excel, puteți aplica următorul cod VBA, faceți următoarele:

1. Lansați Outlook și țineți apăsată tasta ALT + F11 pentru a deschide tasta Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Codul VBA: importați datele de la Excel la întâlniri:

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. Încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe unelte > Referinte pentru a merge la Referințe-Project1 caseta de dialog și verificați Biblioteca de obiecte Microsoft Excel opțiune de la Referințe disponibile listă, vedeți captura de ecran:

doc export date excelente la numirea 2

4. Apoi apasa OK butonul, acum, apăsați F5 cheia pentru a rula acest cod, și a Selectați un fișier fereastra este afișată, selectați fișierul Excel pe care doriți să îl importați în Outlook, consultați captura de ecran:

doc export date excelente la numirea 3

5. Apoi faceți clic pe OK, este afișată o casetă promptă după cum urmează:

doc export date excelente la numirea 4

6. Apoi apasa OK, datele din Excel au fost importate în calendar, după cum urmează:

doc export date excelente la numirea 5



Kutools pentru Outlook

Mai mult decât funcțiile avansate 100 pentru Outlook 2010, 2013, 2016, 2019 și 365

ecran shot kutools pentru outlook minuscule pentru banner 201812

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

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.