کوکیز ہماری خدمات فراہم کرنے میں ہماری مدد کرتی ہے. ہماری خدمات کو استعمال کرتے ہوئے، آپ کو کوکیز کے استعمال سے اتفاق کرتے ہیں.
ٹپ: دوسری زبانیں Google-Translated ہیں. آپ ملاحظہ کر سکتے ہیں English اس لنک کا ورژن.
لاگ ان کریں
x
or
x
x
رجسٹر
x

or

ایکسل ڈیٹا سے ملاقات کیسے کی جائے؟

سپاپونگنگ، آپ کو مندرجہ ذیل اسکرین شاٹ کے طور پر، ایکسلسل ورکیٹس میں تقرری کے اعداد و شمار کی ایک میز ہے، اب، آپ ان ڈیٹا کو آؤٹ لک کیلنڈر میں درآمد کرنا چاہتے ہیں. آپ اس جلدی سے کیسے کام کر سکتے ہیں؟

ڈیک ایکسچینج 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. پھر بھی میں مائیکروسافٹ بصری بنیادی کے لئے درخواستیں ونڈو کی، مظاہرہ آلات > حوالہ جات پر جانے کے لئے حوالہ جات - پروجیکٹ ایکس این ایم ایکس ایکس ڈائیلاگ باکس، اور چیک کریں مائیکروسافٹ ایکسل آبجیکٹ لائبریری سے اختیار دستیاب حوالہ جات فہرست باکس، اسکرین شاٹ دیکھیں:

ڈیک ایکسچینج 2 برآمد برآمد ایکسل ڈیٹا

4. پھر کلک کریں OK بٹن، اب، دبائیں F5 اس کوڈ کو چلانے کے لئے کلید، اور ایک ایک فائل منتخب کریں ونڈو ظاہر کی گئی ہے، براہ کرم ایکسل فائل منتخب کریں جسے آپ Outlook میں درآمد کرنا چاہتے ہیں، اسکرین شاٹ دیکھیں:

ڈیک ایکسچینج 3 برآمد برآمد ایکسل ڈیٹا

5. اور پھر کلک کریں OKمندرجہ ذیل طور پر ایک فوری باکس نکال دیا گیا ہے:

ڈیک ایکسچینج 4 برآمد برآمد ایکسل ڈیٹا

6. پھر کلک کریں OK، ایکسل ڈیٹا کو کیلنڈر میں درآمد کیا گیا ہے جیسا کہ مندرجہ ذیل اسکرین شاٹ دکھایا گیا ہے:

ڈیک ایکسچینج 5 برآمد برآمد ایکسل ڈیٹا



آؤٹ لک کے لئے Kutools

Outlook 100، 2010، 2013، 2016 اور 2019 کے لئے 365 اعلی درجے کی افعال سے زیادہ

بینر 201812 کے لئے آؤٹ لک چھوٹے کے لئے سکرین شاٹ kutools

زیادہ خصوصیات | مفت ڈاؤنلوڈ | سینکڑوں افعال کیلئے صرف $ 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.