The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBA【Application.Unionメソッド】複数のセルを参照する - 2018年11月8日
- Excel関数【CONCAT関数】文字列を結合する - 2018年11月5日
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
どうも、takaです(^^♪
今回は「ExcelとOutlookの連携」のパート5です！
前回ご紹介してきたのは「予定表」のお話でしたが、今回は「タスク」のお話です！
タスク管理というのは仕事の作業の進捗表というようなもののようです(*_*;
私のような中小企業の一般事務の平社員では使わないもの？かもしれません・・・単に私が必要ないだけ？
というわけで、前回に引き続きExcelの表からタスクに登録するプログラムをご紹介していきます！
前回の記事：ExcelとOutlook連携パート4 【Excelの表から予定表へ自動入力】
予定表の元となるExcelの表を準備
前回同様表を簡単に用意してしまいましょう！
今回用意した項目は
- タスク名
- タスク内容
- 開始日
- 終了日
- 進捗
の５つです。
【Excelの表からタスクへ自動入力】サンプルコード
ではサンプルコードをご紹介します。
コードの説明はコメント欄にて書いてあります！ちなみに動作後はこんな感じです(*_*;
私人使用していないのでこれでいいのか疑問なのですが、もしよろしければ参考までに・・・
参考サイト：MSDN:TaskItem プロパティ (Microsoft)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | 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(13) '規定のフォルダーの指定：9 は予定表・６は受信トレイなので今回は9を指定 myFolder.Display 'Outlookを表示 oApp.ActiveWindow.WindowState = 2 'ウィンドウサイズの指定 Dim title As String 'タスクのタイトル Dim Contents As String 'タスクの内容 Dim Start As String 'タスクの開始日 Dim ed As String 'タスクの終了日 Dim proses As String 'タスクの進捗状況 i = 2 Do Until Cells(i, 1).Value = "" '表が終わるまでループ 'Excelの表のデータを取得 title = Cells(i, 1) Contents = Cells(i, 2) Start = Cells(i, 3).Text ed = Cells(i, 4).Text proses = Cells(i, 5).Text priority = Cells(i, 6).Text '予定表の処理 Dim TsItem As Outlook.TaskItem Set TsItem = oApp.CreateItem(3) 'タスク作成 TsItem.Display '編集画面表示 TsItem.Subject = title TsItem.Body = place TsItem.StartDate = Start TsItem.DueDate = ed Select Case priority Case "延期" TsItem.Status = olTaskDeferred Case "進捗中" TsItem.Status = olTaskInProgress Case "完了" TsItem.Status = olTaskComplete Case "待機中" TsItem.Status = olTaskWaiting Case "未開始" TsItem.Status = olTaskNotStarted End Select 'Subject＝タスクの名前 'Body＝タスクの内容 'StartDate＝タスクの開始の日時 'DueDate＝予定終了の日時 'Status＝進捗状況、進捗状況は以下の定数で指定↓ 'olTaskComplete 仕事は完了しています｡ 'olTaskDeferred 仕事は延期されています｡ 'olTaskInProgress 仕事は作業中です｡ 'olTaskNotStarted 仕事はまだ開始していません｡ 'olTaskWaiting 仕事は待機中です｡ '---------------------------------------- TsItem.Close 0 i = i + 1 Loop '表の予定がなくなるまで繰り返し Set myFolder = Nothing 'プロシージャー終了時に開放されるのは知っているよ！でも一応（笑） Set myNameSpace = Nothing Set oApp = Nothing End Sub |
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す