کوکی ها به ما کمک خدمات ما ارائه کرده است. با استفاده از خدمات ما، شما را به استفاده ما از کوکی ها است.
نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

چگونه می توان انتصاب از داده های اکسل ایجاد کرد؟

فرض کنید شما یک جدول از داده های قرار ملاقات در یک صفحه اکسل داشته اید که در تصویر زیر مشاهده می کنید، اکنون می خواهید این داده ها را به تقویم Outlook وارد کنید. چگونه می توانستید این کار را به سرعت انجام دهید؟

doc export excel data to appointment 1

ایجاد قرار ملاقات از داده های اکسل با کد VBA


ایجاد قرار ملاقات از داده های اکسل با کد VBA

برای ایجاد قرار ملاقات از داده های اکسل، شما می توانید کد VBA زیر را اعمال کنید، لطفا به عنوان این:

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. هنوز در مایکروسافت ویژوال بیسیک برای برنامه پنجره، بر روی ابزار > منابع برای رفتن به منابع-Project1 کادر محاوره ای و چک کردن مایکروسافت اکسل کتابخانه گزینه ای از منابع موجود کادر لیست، عکس را ببینید

doc export excel data to appointment 2

4. سپس روی کلیک کنید OK دکمه، در حال حاضر، مطبوعات F5 کلید برای اجرای این کد، و a یک فایل را انتخاب کنید پنجره نمایش داده می شود، لطفا فایل اکسل که می خواهید برای وارد کردن به Outlook انتخاب کنید، به تصویر زیر مراجعه کنید:

doc export excel data to appointment 3

5. و سپس کلیک کنید OKجعبه فوری به شرح زیر است:

doc export excel data to appointment 4

6. سپس روی کلیک کنید OKداده های اکسل به تقویم وارد شده است به شرح ذیل است:

doc export excel data to appointment 5



Kutools برای چشم انداز

بیشتر از توابع پیشرفته 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.

Be the first to comment.