ExcelとOutlook連携パート4　【Excelの表から予定表へ自動入力】

1 予定表の元となるExcelの表を準備
2 【Excelの表から予定表へ自動入力】サンプルコード
- 2.1 共有:

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

予定表の元となるExcelの表を準備

では表を簡単に用意してしまいましょう！

今回用意した項目は7つです。

予定の件名
予定内容
場所
開始日
開始時間
終了日
終了時間

この項目をOutlookの予定表へ転記します(^^♪

【Excelの表から予定表へ自動入力】サンプルコード

ではサンプルコードをご紹介します。

コードの説明はコメント欄にて書いてありますの(^^)/

ちなみに動作後はこんな感じになっております。８月1日の予定です（画像下部）

Sub sample()
Dim i As Long
Dim oApp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myFolder As Outlook.Folder
Set oApp = CreateObject("Outlook.Application")
Set myNameSpace = oApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(9) '規定のフォルダーの指定：9 は予定表・６は受信トレイなので今回は9を指定
myFolder.Display 'Outlookを表示
oApp.ActiveWindow.WindowState = 2 'ウィンドウサイズの指定
Dim task As Outlook.AppointmentItem '予定表
Dim title As String '予定表のタイトル
Dim place As String '予定の場所
Dim Contents As String '予定の内容
Dim Start As String '予定の開始日
Dim Starttime As String '予定の開始時間
Dim ed As String '予定の終了日
Dim edtime As String '予定の終了時間
i = 2
Do Until Cells(i, 1).Value = "" '表が終わるまでループ
'Excelの表のデータを取得
title = Cells(i, 1)
place = Cells(i, 2)
Contents = Cells(i, 3)
Start = Cells(i, 4).Text
Starttime = Cells(i, 5).Text
ed = Cells(i, 6).Text
edtime = Cells(i, 7).Text
'予定表の処理
Set task = oApp.CreateItem(1) 'olAppointmentItem=1 1は予定
task.Display '編集画面表示
'Subject＝予定の名前
'Body＝予定の内容
'Location＝予定の場所
'Start＝予定の開始の日時
'End＝予定終了の日時
task.Subject = title
task.Body = place
task.Location = Contents
task.Start = Start & " " & Starttime
If ed = "" And Start <> "" Then
ed = Start
End If
task.End = ed & " " & edtime
task.Close 0
i = i + 1
Loop '表の予定がなくなるまで繰り返し
'oApp.Quit 'Outlookを終了、使う場合はコメントアウト！
Set myFolder = Nothing  'プロシージャー終了時に開放されるのは知っているよ！でも一応（笑）
Set myNameSpace = Nothing
Set oApp = Nothing
End Sub

Sub sample()

Dim i As Long

Dim oApp As Outlook.Application

Dim myNameSpace As Outlook.Namespace

Dim myFolder As Outlook.Folder

Set oApp = CreateObject("Outlook.Application")

Set myNameSpace = oApp.GetNamespace("MAPI")

Set myFolder = myNameSpace.GetDefaultFolder(9) '規定のフォルダーの指定：9 は予定表・６は受信トレイなので今回は9を指定

myFolder.Display 'Outlookを表示

oApp.ActiveWindow.WindowState = 2 'ウィンドウサイズの指定

Dim task As Outlook.AppointmentItem '予定表

Dim title As String '予定表のタイトル

Dim place As String '予定の場所

Dim Contents As String '予定の内容

Dim Start As String '予定の開始日

Dim Starttime As String '予定の開始時間

Dim ed As String '予定の終了日

Dim edtime As String '予定の終了時間

i = 2

Do Until Cells(i, 1).Value = "" '表が終わるまでループ

'Excelの表のデータを取得

title = Cells(i, 1)

place = Cells(i, 2)

Contents = Cells(i, 3)

Start = Cells(i, 4).Text

Starttime = Cells(i, 5).Text

ed = Cells(i, 6).Text

edtime = Cells(i, 7).Text

'予定表の処理

Set task = oApp.CreateItem(1) 'olAppointmentItem=1 1は予定

task.Display '編集画面表示

'Subject＝予定の名前

'Body＝予定の内容

'Location＝予定の場所

'Start＝予定の開始の日時

'End＝予定終了の日時

task.Subject = title

task.Body = place

task.Location = Contents

task.Start = Start & " " & Starttime

If ed = "" And Start <> "" Then

ed = Start

End If

task.End = ed & " " & edtime

task.Close 0

i = i + 1

Loop '表の予定がなくなるまで繰り返し

'oApp.Quit 'Outlookを終了、使う場合はコメントアウト！

Set myFolder = Nothing 'プロシージャー終了時に開放されるのは知っているよ！でも一応（笑）

Set myNameSpace = Nothing

Set oApp = Nothing

End Sub

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @takabou63

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

ExcelとOutlook連携パート4　【Excelの表から予定表へ自動入力】

taka

最新記事 by taka (全て見る)

予定表の元となるExcelの表を準備

【Excelの表から予定表へ自動入力】サンプルコード

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

コメントを残すコメントをキャンセル

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

予定表の元となるExcelの表を準備

【Excelの表から予定表へ自動入力】サンプルコード

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBA ExcelVBAとOutlookの連携まとめ

Excel VBA高速化テクニック1【画面描写を止める】

VBA セルのコメント操作2(コメントの有無の確認・追加する方法)

ExcelとWord連携パート2【セルの値をWordに転記してみよう】

VBAで連続印刷(PDF出力も可)のサンプルコード

ExcelとOutlook連携パート5 【Excelの表からタスクへ自動…

一貫性のあるBookの値を取得するツールを作ってみた

Excelの文字数カウントツール【便利？ツール】

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル

VBA　セルのコメント操作2(コメントの有無の確認・追加する方法)

ExcelとOutlook連携パート5　【Excelの表からタスクへ自動…