2015年09月28日12:00 カテゴリ Outlook の予定表を Excel に出力するマクロ Outlook の予定表を Excel に出力するマクロを作ってみました。 Attribute VB_Name = "週間予定Excel" Sub Excel週間予定() '期間指定 Dim dateFrom As Date Dim dateTo As Date '初期値 dateFrom = Date '入力ダイアログを表示 dateFrom = InputBox("開始日を入力してください。", "週間予定", dateFrom) '7日間 dateTo = DateAdd("d", 6, dateFrom) 'MsgBox dateFrom 'MsgBox dateTo '予定表モジュールを取得 Dim calmod As CalendarModule Set calmod = Ap