קאָאָקיעס העלפֿן אונדז צושטעלן אונדזער באַדינונגס. דורך ניצן אונדזער באַדינונגס, איר שטימען צו אונדזער נוצן פון קיכלעך.
שפּיץ: אנדערע שפּראַכן זענען גוגל-איבערגעזעצט. איר קענען באַזוכן דעם English ווערסיע פון ​​דעם לינק.
צייכן אריין
x
or
x
x
רעגיסטרירן
x

or

ווי צו שאַפֿן אַפּוינטמאַנט פון עקססעל דאַטן?

סופּפּאָסינג, איר האָבן אַ טיש פון אַפּוינטמאַנט דאַטע אין אַ עקססעל ווערקשיט ווי ווייַטערדיק סקרעענשאָט געוויזן, איצט, איר ווילן צו אַרייַנפיר די דאַטן אין די אַוטלוק קאַלענדאַר. ווי קען איר האַנדלען מיט דעם אַרבעט געשווינד?

דאָק עקספּאָרט יקסעל דאַטע צו אַפּוינטמאַנט קסנומקס

שאַפֿן אַפּוינטמאַנץ פון עקססעל דאַטן מיט וובאַ קאָד


שאַפֿן אַפּוינטמאַנץ פון עקססעל דאַטן מיט וובאַ קאָד

צו שאַפֿן אַפּוינטמאַנץ פון עקססעל דאַטן, איר קענען צולייגן די ווייַטערדיק וובאַ קאָד, ביטע טאָן ווי דאָס:

1. קאַטער אַוטלוק און האַלטן די ALT + F11 שליסלען צו עפענען די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער.

2. דריקט אַרייַנלייגן > מאָדולעס, און פּאַפּ די פאלגענדע קאָד אין די מאָדולעס פענצטער.

VBA קאָד: ימפּאָרט עקססעל דאַטע צו אַפּוינטמאַנט:

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. נאָך אין דעם מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער, גיט מכשירים > רעפֿערענצן צו גיין צו די References-Project1 דיאַלאָג קאַסטן, און טשעק Microsoft Excel Object Library אָפּציע פון ​​די Available References רשימה קאַסטן, זען סקרעענשאָט:

דאָק עקספּאָרט יקסעל דאַטע צו אַפּוינטמאַנט קסנומקס

4. דעמאָלט גיט OK קנעפּל, איצט, דריקן F5 שליסל צו לויפן דעם קאָד, און אַ אויסקלייַבן אַ טעקע פֿענצטער איז געוויזן, ביטע אויסקלייַבן די עקססעל טעקע איר ווילן צו אַרייַנפיר צו אַוטלוק, זען סקרעענשאָט:

דאָק עקספּאָרט יקסעל דאַטע צו אַפּוינטמאַנט קסנומקס

5. און דעמאָלט גיט OK, אַ פּינטלעך קעסטל איז פּאַפּט אויס ווי גייט:

דאָק עקספּאָרט יקסעל דאַטע צו אַפּוינטמאַנט קסנומקס

6. דעמאָלט גיט OK, די עקססעל דאַטן איז ימפּאָרטיד אין די לוח ווי ווייַטערדיק סקרעענשאָט געוויזן:

דאָק עקספּאָרט יקסעל דאַטע צו אַפּוינטמאַנט קסנומקס



קוטאָאָלס פֿאַר אַוטלוק

מער ווי קסנומקס אַוואַנסירטע פאַנגקשאַנז פֿאַר אַוטלוק קסנומקס, קסנומקס, קסנומקס, קסנומקס און קסנומקס

פאַרשטעלן שיסל קוטאָאָלס פֿאַר אַוטלוק קליינטשיק פֿאַר פאָן קסנומקס

מער פֿעיִקייטן | פֿרייַ אראפקאפיע | בלויז $ 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.