İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel məlumatından randevu yaratmaq üçün necə?

Hesab edirəm ki, aşağıdakı ekran görüntüsü göstərildiyi kimi, bir Excel işində bir randevu məlumatları cədvəliniz var, indi bu məlumatları Outlook təqviminə daxil etmək istəyirlər. Bu işlə tez bir şəkildə necə məşğul ola bilərsiniz?

doc ixrac 1 randevusuna məlumatların excel

VBA koduyla Excel məlumatlarından təyinatlar yaradın


VBA koduyla Excel məlumatlarından təyinatlar yaradın

Excel məlumatlarından təyinatlar yaratmaq üçün aşağıdakı VBA kodunu tətbiq edə bilərsiniz:

1. Outlook'u başladın və saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Verilən Excel məlumatlarını təyin etmək:

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. Hələ də Proqramlar üçün Microsoft Visual Basic pəncərə basın Tools > References ilə getmək References-Project1 informasiya qutusunu seçin və yoxlayın Microsoft Excel Nesne Kitabxanası seçimdən Mövcud References siyahı qutusuna bax:

doc ixrac 2 randevusuna məlumatların excel

4. Sonra basın OK düyməsini basın, indi basın F5 bu kodu çalıştırmak üçün açar, və a Bir fayl seçin pəncərə göstərilir, xahiş edirik Outlook'a idxal etmək istədiyiniz excel faylını seçin, ekran görüntüsünə baxın:

doc ixrac 3 randevusuna məlumatların excel

5. Və sonra basın OK, bir sorğu qutusu aşağıdakı kimi çıxdı:

doc ixrac 4 randevusuna məlumatların excel

6. Sonra basın OK, Excel məlumatları aşağıdakı ekran görüntüsü kimi təqvimə alındı:

doc ixrac 5 randevusuna məlumatların excel



Outlook üçün Kutools

100, 2010, 2013, 2016 və 2019 üçün 365 Ətraflı funksiyaları

201812 pankart üçün küçə görünüşü üçün ekran shot kutools

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 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.

Be the first to comment.