쿠키는 우리의 서비스를 제공 도움이됩니다. 우리의 서비스를 사용하면 쿠키의 우리의 사용에 동의합니다.
팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

Excel 데이터에서 약속을 만드는 방법은 무엇입니까?

다음과 같이 Excel 워크 시트에 약속 데이터 테이블이 표시된 경우 Outlook 달력에 이러한 데이터를 가져 오려고합니다. 이 일을 어떻게 빨리 처리 할 수 ​​있니?

의사 내보내기 약속을 1 데이터를 탁월한

VBA 코드로 Excel 데이터에서 약속 만들기


VBA 코드로 Excel 데이터에서 약속 만들기

Excel 데이터에서 약속을 만들려면 다음 VBA 코드를 적용 할 수 있습니다. 다음과 같이하십시오.

1. Outlook을 실행하고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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. 아직도 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참조 로 이동합니다 참고 문헌-Project1 대화 상자 및 확인 Microsoft Excel 개체 라이브러리 옵션에서 사용 가능한 참조 목록 상자, 스크린 샷보기 :

의사 내보내기 약속을 2 데이터를 탁월한

4. 그런 다음 OK 버튼, 지금, 언론 F5 이 코드를 실행하기위한 키와 파일 선택 창이 표시되면 Outlook으로 가져올 Excel 파일을 선택하십시오. 스크린 샷을 참조하십시오.

의사 내보내기 약속을 3 데이터를 탁월한

5. 그런 다음 OK프롬프트 상자가 다음과 같이 팝업됩니다.

의사 내보내기 약속을 4 데이터를 탁월한

6. 그런 다음 OKExcel 데이터는 다음 스크린 샷과 같이 캘린더로 가져 왔습니다.

의사 내보내기 약속을 5 데이터를 탁월한



Outlook 용 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.