Kelly는 지역 전화 번호부에 광고를 게재하기위한 마감일로 사용되는 날짜 표가있는 워크 시트를 가지고 있습니다. 그녀는 이러한 날짜를 Outlook Calendar

로 가져 오려고합니다. 72 시간 알림이 있지만 일부 날짜는 계속 숫자로 변경됩니다.

Kelly는 필요에 따라 Excel 날짜를 Outlook으로 가져 오는 방법을 궁금해합니다.

Outlook 작업은 평범한 Excel 매크로보다 약간 “높은 수준”입니다. 매크로에서 Excel 데이터에 액세스하는 방법뿐 아니라 Outlook 데이터를 조작하는 방법도 이해해야하기 때문입니다. 워크 시트에서 Outlook 약속으로 전송해야하는 데이터를 정확히 알지 못한 상태에서 간단한 시나리오를 살펴 보겠습니다.

일련의 행이 포함 된 워크 시트가 있다고 가정합니다. 각 행은 만들려는 단일 약속을 나타냅니다. 각 약속은 다음과 같이 왼쪽에서 오른쪽으로 7 개 열에 정보를 포함합니다.

제목. * 이벤트 / 약속을 설명하는 텍스트 (예 : “Yellow Pages Reminder”)

위치. * 회의실 또는 전화 회의 번호 (선택 사항)와 같이 이벤트 위치를 설명하는 텍스트

시작 날짜 / 시간. * 표준 Excel 날짜 형식을 사용하여 이벤트를 시작할 날짜와 시간을 입력합니다 (원하는 방식으로 표시 할 수 있음)

지속. 약속 바쁨 상태에 대한 분 수를 나타내는 정수입니다. 시간이 Free (0), Tentative (1), Busy (2) 또는 Out of Office (3)로 표시되어야하는지 여부를 나타내는 선택적 값을 나타내는 정수

알림 시간. * 알림이 팝업되어야하는 약속 전 시간 (분)을 나타내는 정수 (3 일의 분 수인 4320에서와 같이)

Body. * 약속 본문에 배치 할 세부 정보를 설명하는 텍스트

이 데이터를 사용하면 매크로를 사용하여 모든 행을 반복 할 수 있습니다 (첫 번째 행에 머리글이 있다고 가정하고 두 번째 행부터 시작)

각 행에 대한 약속을 만듭니다.

Sub AddAppointments()

' Create the Outlook session     Set myOutlook = CreateObject("Outlook.Application")



' Start at row 2     r = 2

Do Until Trim(Cells(r, 1).Value) = ""

' Create the AppointmentItem          Set myApt = myOutlook.createitem(1)

' Set the appointment properties         myApt.Subject = Cells(r, 1).Value         myApt.Location = Cells(r, 2).Value         myApt.Start = Cells(r, 3).Value         myApt.Duration = Cells(r, 4).Value         ' If Busy Status is not specified, default to 2 (Busy)

If Trim(Cells(r, 5).Value) = "" Then             myApt.BusyStatus = 2         Else             myApt.BusyStatus = Cells(r, 5).Value         End If         If Cells(r, 6).Value > 0 Then             myApt.ReminderSet = True             myApt.ReminderMinutesBeforeStart = Cells(r, 6).Value         Else             myApt.ReminderSet = False         End If         myApt.Body = Cells(r, 7).Value         myApt.Save         r = r + 1     Loop End Sub

매크로는 Subject 열이 비워 질 때까지 행을 계속 반복합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (7349)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.