Outlookの予定表をVBAで簡単にExcelにエクスポートする方法

「Outlookの予定表をExcelにまとめたいけれど、難しそう…」と感じていませんか？
そんな方に向けて、VBA（Visual Basic for Applications）を使って、Outlookの予定表を簡単にExcelにエクスポートする方法をご紹介します。

この方法を使えば、毎日の予定を手動で入力する手間が省け、業務の効率化にもつながります。

では、早速見ていきましょう！

VBAでOutlookの予定表をExcelにエクスポートする手順
注意点とアドバイス
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAでOutlookの予定表をExcelにエクスポートする手順

Outlookのイメージ

Excelでマクロ有効ブックを作成する

まずは、Excelを開きます。

新しいブックを作成し、「名前を付けて保存」で保存します。
* 保存する際、「Excel マクロ有効ブック（\*.xlsm）」形式で保存してください。

VBAエディタを開く

次に、VBAエディタを開きます。

* Excelのメニューから「開発」タブを選択し、「Visual Basic」をクリックします。
* もし「開発」タブが表示されていない場合は、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。

新しいモジュールを挿入する

VBAエディタが開いたら、新しいモジュールを挿入します。

* 「挿入」メニューから「標準モジュール」を選択します。

コードを入力する

新しく挿入されたモジュールに、以下のコードをコピー＆ペーストします。

vba

Sub ExportOutlookCalendar()

    Dim olApp As Object

    Dim olNamespace As Object

    Dim olFolder As Object

    Dim olItems As Object

    Dim olItem As Object

    Dim i As Integer
    ' Outlookアプリケーションを取得

    Set olApp = CreateObject("Outlook.Application")

    Set olNamespace = olApp.GetNamespace("MAPI")

    Set olFolder = olNamespace.GetDefaultFolder(9) ' 9は予定表のフォルダ番号

    Set olItems = olFolder.Items
    ' アイテムを開始日時でソート

    olItems.Sort ""
    ' Excelのシートにヘッダーを設定

    With ThisWorkbook.Sheets(1)

        .Cells(1, 1).Value = "件名"

        .Cells(1, 2).Value = "開始日時"

        .Cells(1, 3).Value = "終了日時"

        .Cells(1, 4).Value = "場所"

        .Cells(1, 5).Value = "詳細"

    End With
    ' 予定表のアイテムをExcelに書き込む

    i = 2

    For Each olItem In olItems

        If olItem.Class = 26 Then ' 26は予定アイテムのクラス番号

            With ThisWorkbook.Sheets(1)

                .Cells(i, 1).Value = olItem.Subject

                .Cells(i, 2).Value = olItem.Start

                .Cells(i, 3).Value = olItem.End

                .Cells(i, 4).Value = olItem.Location

                .Cells(i, 5).Value = olItem.Body

            End With

            i = i + 1

        End If

    Next olItem

MsgBox "予定表のエクスポートが完了しました！" End Sub

コードを実行する

コードを入力したら、実行してみましょう。

* VBAエディタの「実行」ボタンをクリックするか、F5キーを押します。

すると、Outlookの予定表から情報が取得され、Excelのシートに予定が一覧として表示されます。

注意点とアドバイス

OutlookとExcelの連携: VBAを使用するためには、OutlookとExcelが連携できる環境が必要です。両方のアプリケーションがインストールされていることを確認してください。
セキュリティの設定: VBAを実行する際、セキュリティの警告が表示されることがあります。信頼できるソースからのコードであることを確認し、実行を許可してください。
Outlookの設定: 複数のカレンダーを使用している場合、コード内の`GetDefaultFolder(9)`の部分を適切なフォルダ番号に変更する必要があります。

よくある質問や疑問

Q1: 定期的な予定（繰り返し予定）もエクスポートできますか？

はい、できます。上記のコードでは、予定アイテムを取得する際に`olItem.Class = 26`でフィルタリングしていますが、定期的な予定もこのクラスに該当します。ただし、繰り返し予定の詳細情報を正確に取得するには、追加の処理が必要となる場合があります。

Q2: 他の人の予定もエクスポートできますか？

はい、可能です。Outlookで他の人の予定表を共有している場合、その予定も取得できます。ただし、共有設定やアクセス権限によっては、情報の取得に制限がある場合があります。

Q3: エクスポートする期間を指定できますか？

はい、可能です。コード内で`olItems`を取得する際に、`Restrict`メソッドを使用して特定の期間の予定のみを取得するように変更できます。例えば、以下のように設定します。

vba

olItems = olFolder.Items

olItems.Sort ""

olItems.IncludeRecurrences = True

olItems = olItems.Restrict(" >= '2025/08/01' AND  <= '2025/08/31'")

これにより、2025年8月1日から8月31日までの予定のみが取得されます。