Cookies membantu kami memberikan layanan kami. Dengan menggunakan layanan kami, Anda setuju untuk kami menggunakan cookies.
Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

Bagaimana cara membuat janji dari data Excel?

Misalkan, Anda memiliki tabel data janji di lembar kerja Excel sebagai berikut screenshot yang ditampilkan, sekarang, Anda ingin mengimpor data ini ke dalam kalender Outlook. Bagaimana Anda bisa menangani pekerjaan ini dengan cepat?

dokumen mengekspor data excel untuk penunjukan 1

Buat janji dari data Excel dengan kode VBA


Buat janji dari data Excel dengan kode VBA

Untuk membuat janji dari data Excel, Anda dapat menerapkan kode VBA berikut, harap lakukan seperti ini:

1. Buka Outlook dan tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan paste kode berikut di Modul Jendela.

Kode VBA: Mengimpor data excel ke janji:

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 di dalam Microsoft Visual Basic untuk Aplikasi window, klik alat > Referensi untuk pergi ke Referensi-Project1 kotak dialog, dan cek Perpustakaan Objek Microsoft Excel pilihan dari Referensi yang Tersedia kotak daftar, lihat tangkapan layar:

dokumen mengekspor data excel untuk penunjukan 2

4. Lalu klik OK tombol, sekarang, tekan F5 kunci untuk menjalankan kode ini, dan a Pilih sebuah file jendela ditampilkan, silakan pilih file excel yang ingin Anda impor ke Outlook, lihat screenshot:

dokumen mengekspor data excel untuk penunjukan 3

5. Dan kemudian klik OK, sebuah kotak prompt muncul sebagai berikut:

dokumen mengekspor data excel untuk penunjukan 4

6. Lalu klik OK, data Excel telah diimpor ke kalender sebagai screenshot berikut yang ditunjukkan:

dokumen mengekspor data excel untuk penunjukan 5



Kutools for Outlook

Lebih dari 100 Fungsi Lanjut untuk Outlook 2010, 2013, 2016, 2019 dan 365

tangkapan layar kutools untuk outlook mungil untuk spanduk 201812

Fitur Lebih | Free download | Hanya $ 39.00 untuk ratusan 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.