Cookies membantu kami menyampaikan perkhidmatan kami. Dengan menggunakan perkhidmatan kami, anda bersetuju dengan penggunaan cookies.
Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar
x

or

Bagaimana untuk membuat temu janji dari data Excel?

Supaya, anda mempunyai jadual data pelantikan dalam lembaran kerja Excel seperti tangkapan skrin berikut, sekarang, anda ingin mengimport data ini ke kalendar Outlook. Bagaimana anda dapat menangani tugas ini dengan cepat?

doc excel data excel ke pelantikan 1

Buat pelantikan dari data Excel dengan kod VBA


Buat pelantikan dari data Excel dengan kod VBA

Untuk membuat janji temu dari data Excel, anda boleh menggunakan kod VBA berikut, sila lakukan seperti ini:

1. Lancarkan Outlook dan tahankan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Import data excel ke temujanji:

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. Masih dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Alatan > Rujukan untuk pergi ke Rujukan-Project1 kotak dialog, dan semak Perpustakaan Objek Microsoft Excel Pilihan dari Rujukan yang boleh didapati kotak senarai, lihat tangkapan skrin:

doc excel data excel ke pelantikan 2

4. Kemudian klik OK butang, sekarang, tekan F5 kunci untuk menjalankan kod ini, dan a Pilih fail tetingkap dipaparkan, sila pilih fail excel yang anda mahu import ke Outlook, lihat tangkapan skrin:

doc excel data excel ke pelantikan 3

5. Kemudian klik OK, kotak segera muncul seperti berikut:

doc excel data excel ke pelantikan 4

6. Kemudian klik OK, data Excel telah diimport ke dalam kalendar seperti tangkapan skrin berikut:

doc excel data excel ke pelantikan 5



Kutools untuk Outlook

Lebih daripada Fungsi Lanjutan 100 untuk Outlook 2010, 2013, 2016, 2019 dan 365

kutools pukulan skrin untuk outlook kecil untuk sepanduk 201812

Lebih Ciri-ciri | Muat turun percuma | Hanya $ 39.00 untuk beratus-ratus fungsi

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.