{"id":2802,"date":"2022-06-14T23:23:42","date_gmt":"2022-06-14T14:23:42","guid":{"rendered":"https:\/\/extan.jp\/?p=2802"},"modified":"2022-06-15T00:26:38","modified_gmt":"2022-06-14T15:26:38","slug":"%e3%80%90excel-vba%e3%80%91%e4%b8%80%e7%9e%ac%e3%81%a7%e8%a4%87%e6%95%b0%e3%83%a6%e3%83%bc%e3%82%b6%e3%81%aeoutlook%e4%ba%88%e5%ae%9a%e8%a1%a8%e3%82%92excel%e3%81%b8%e5%8f%96%e3%82%8a%e8%be%bc","status":"publish","type":"post","link":"https:\/\/extan.jp\/?p=2802","title":{"rendered":"\u3010VBA\u3011\u4e00\u77ac\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\uff01"},"content":{"rendered":"<p>\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u306e\u4e88\u5b9a\u8868\u306b\u767b\u9332\u3055\u308c\u3066\u3044\u308b\u4e88\u5b9a\u3092Excel\u30b7\u30fc\u30c8\u3078\u53d6\u308a\u8fbc\u3093\u3067\u4e00\u89a7\u8868\u306b\u3057\u305f\u3044\u3053\u3068\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b\u3002<\/p>\n<p>\u305d\u3093\u306a\u4e2d\u3067\u60a9\u3080\u3053\u3068\u306f\u3001<\/p>\n<div class=\"kininarukoto1\">\u30fb\u30ab\u30f3\u30bf\u30f3\u306b\u8907\u6570\u306e\u30e1\u30f3\u30d0\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u89a7\u5316\u3059\u308b\u65b9\u6cd5\u306f\u3069\u308c\uff1f<br \/>\n\u30fbExcel\u306b\u30e1\u30f3\u30d0\u306e\u4e88\u5b9a\u3092\u307e\u3068\u3081\u305f\u3044\u306e\u3060\u3051\u3069\u3001Outlook\u304b\u3089\u306e\u4e00\u62ec\u53d6\u5f97\u306e\u65b9\u6cd5\u306f\u306a\u306b\uff1f<\/div>\n<p>\u3067\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b\uff1f<\/p>\n<p>\u4eca\u56de\u306f\u3001<\/p>\n<div class=\"rdinfo\">\u30fbVBA\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5<br \/>\n\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u671f\u9593\u6307\u5b9a\u3084\u62bd\u51fa\u6587\u5b57\u6761\u4ef6\u3092\u8a2d\u5b9a\u3092\u3059\u308b\u65b9\u6cd5<\/div>\n<p>\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\uff01<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u696d\u52d9\u306e\u898b\u3048\u308b\u5316\u306b\u3082\u3064\u306a\u3052\u3089\u308c\u307e\u3059\u306d\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<div id=\"ez-toc-container\" class=\"ez-toc-v2_0_66_1 counter-hierarchy ez-toc-counter ez-toc-light-blue ez-toc-container-direction\">\n<div class=\"ez-toc-title-container\"><p class=\"ez-toc-title\">\u3082\u304f\u3058<\/p>\n<\/div><nav><ul class='ez-toc-list ez-toc-list-level-1 ' ><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-1\" href=\"https:\/\/extan.jp\/?p=2802\/#%E8%A4%87%E6%95%B0%E3%83%A6%E3%83%BC%E3%82%B6%E3%81%AEOutlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%82%92%E4%B8%80%E7%9E%AC%E3%81%A7Excel%E3%81%B8%E5%8F%96%E3%82%8A%E8%BE%BC%E3%82%80%E6%96%B9%E6%B3%95%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6\" title=\"\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u306b\u3064\u3044\u3066\">\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u306b\u3064\u3044\u3066<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-2\" href=\"https:\/\/extan.jp\/?p=2802\/#Excel_VBA%E3%81%8B%E3%82%89Outlook%E3%82%92%E6%93%8D%E4%BD%9C%E3%81%99%E3%82%8B%E3%81%9F%E3%82%81%E3%81%AE%E4%B8%8B%E6%BA%96%E5%82%99\" title=\"Excel VBA\u304b\u3089Outlook\u3092\u64cd\u4f5c\u3059\u308b\u305f\u3081\u306e\u4e0b\u6e96\u5099\">Excel VBA\u304b\u3089Outlook\u3092\u64cd\u4f5c\u3059\u308b\u305f\u3081\u306e\u4e0b\u6e96\u5099<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-3\" href=\"https:\/\/extan.jp\/?p=2802\/#VBA%E3%82%92%E5%AE%9F%E8%A3%85%E3%81%99%E3%82%8B\" title=\"VBA\u3092\u5b9f\u88c5\u3059\u308b\">VBA\u3092\u5b9f\u88c5\u3059\u308b<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-4\" href=\"https:\/\/extan.jp\/?p=2802\/#%E3%83%86%E3%82%B9%E3%83%88%E3%83%87%E3%83%BC%E3%82%BF%E3%82%92%E6%BA%96%E5%82%99%E3%81%99%E3%82%8B\" title=\"\u30c6\u30b9\u30c8\u30c7\u30fc\u30bf\u3092\u6e96\u5099\u3059\u308b\">\u30c6\u30b9\u30c8\u30c7\u30fc\u30bf\u3092\u6e96\u5099\u3059\u308b<\/a><ul class='ez-toc-list-level-3' ><li class='ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-5\" href=\"https:\/\/extan.jp\/?p=2802\/#%E4%BA%88%E5%AE%9A%E8%A1%A8%E5%8F%96%E5%BE%97%E5%AF%BE%E8%B1%A1%E8%80%85%E3%81%AE%E3%83%A1%E3%83%BC%E3%83%AB%E3%82%A2%E3%83%89%E3%83%AC%E3%82%B9%E3%82%92Excel%E3%81%B8%E3%81%BE%E3%81%A8%E3%82%81%E3%82%8B\" title=\"\u4e88\u5b9a\u8868\u53d6\u5f97\u5bfe\u8c61\u8005\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3092Excel\u3078\u307e\u3068\u3081\u308b\">\u4e88\u5b9a\u8868\u53d6\u5f97\u5bfe\u8c61\u8005\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3092Excel\u3078\u307e\u3068\u3081\u308b<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-6\" href=\"https:\/\/extan.jp\/?p=2802\/#%E5%8F%96%E5%BE%97%E3%81%97%E3%81%9F%E3%81%84%E4%BA%88%E5%AE%9A%E3%81%AE%E6%9C%9F%E9%96%93%E3%82%92%E6%8C%87%E5%AE%9A%E3%81%99%E3%82%8B\" title=\"\u53d6\u5f97\u3057\u305f\u3044\u4e88\u5b9a\u306e\u671f\u9593\u3092\u6307\u5b9a\u3059\u308b\">\u53d6\u5f97\u3057\u305f\u3044\u4e88\u5b9a\u306e\u671f\u9593\u3092\u6307\u5b9a\u3059\u308b<\/a><\/li><\/ul><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-7\" href=\"https:\/\/extan.jp\/?p=2802\/#VBA%E3%82%92%E5%AE%9F%E8%A1%8C%E3%81%99%E3%82%8B\" title=\"VBA\u3092\u5b9f\u884c\u3059\u308b\">VBA\u3092\u5b9f\u884c\u3059\u308b<\/a><ul class='ez-toc-list-level-3' ><li class='ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-8\" href=\"https:\/\/extan.jp\/?p=2802\/#Excel%E3%81%8B%E3%82%89Outlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%81%AE%E5%8D%98%E4%BD%93%E3%81%AE%E4%BA%88%E5%AE%9A%E3%82%92%E5%A4%89%E6%9B%B4%E3%81%99%E3%82%8B\" title=\"Excel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u5358\u4f53\u306e\u4e88\u5b9a\u3092\u5909\u66f4\u3059\u308b\">Excel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u5358\u4f53\u306e\u4e88\u5b9a\u3092\u5909\u66f4\u3059\u308b<\/a><\/li><\/ul><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-9\" href=\"https:\/\/extan.jp\/?p=2802\/#%EF%BC%9C%E8%BF%BD%E8%A8%98%EF%BC%9E%E8%A4%87%E6%95%B0%E3%81%AE%E4%BB%96%E4%BA%BA%E3%81%AEOutlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%82%92Excel%E3%81%B8%E5%8F%96%E3%82%8A%E8%BE%BC%E3%82%80VBA%E2%80%93%E6%99%82%E9%96%93%E6%8C%87%E5%AE%9A%E3%83%90%E3%83%BC%E3%82%B8%E3%83%A7%E3%83%B3\" title=\"\uff1c\u8ffd\u8a18\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080VBA&#8211;\u6642\u9593\u6307\u5b9a\u30d0\u30fc\u30b8\u30e7\u30f3\">\uff1c\u8ffd\u8a18\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080VBA&#8211;\u6642\u9593\u6307\u5b9a\u30d0\u30fc\u30b8\u30e7\u30f3<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-10\" href=\"https:\/\/extan.jp\/?p=2802\/#%EF%BC%9C%E8%BF%BD%E5%8A%A0%EF%BC%9E%E8%A4%87%E6%95%B0%E3%81%AE%E4%BB%96%E4%BA%BA%E3%81%AEOutlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%82%92%E5%8F%96%E3%82%8A%E8%BE%BC%E3%82%80%E9%9A%9B%E3%81%AB%E3%80%81%E7%89%B9%E5%AE%9A%E3%81%AE%E6%96%87%E5%AD%97%E3%82%92%E5%90%AB%E3%82%80%E4%BB%B6%E5%90%8D%E3%81%AE%E3%81%BF%E3%81%AB%E7%B5%9E%E3%82%8A%E8%BE%BC%E3%82%80%E6%96%B9%E6%B3%95\" title=\"\uff1c\u8ffd\u52a0\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092\u53d6\u308a\u8fbc\u3080\u969b\u306b\u3001\u7279\u5b9a\u306e\u6587\u5b57\u3092\u542b\u3080\u4ef6\u540d\u306e\u307f\u306b\u7d5e\u308a\u8fbc\u3080\u65b9\u6cd5\">\uff1c\u8ffd\u52a0\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092\u53d6\u308a\u8fbc\u3080\u969b\u306b\u3001\u7279\u5b9a\u306e\u6587\u5b57\u3092\u542b\u3080\u4ef6\u540d\u306e\u307f\u306b\u7d5e\u308a\u8fbc\u3080\u65b9\u6cd5<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-11\" href=\"https:\/\/extan.jp\/?p=2802\/#%EF%BC%9C%E8%BF%BD%E5%8A%A0%EF%BC%9E%E8%A4%87%E6%95%B0%E3%81%AE%E4%BB%96%E4%BA%BA%E3%81%AEOutlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%82%92%E5%A4%A7%E9%87%8F%E3%81%AB%E5%8F%96%E3%82%8A%E8%BE%BC%E3%82%80%E9%9A%9B%E3%81%AB%E3%80%81%E9%AB%98%E9%80%9F%E3%81%AB%E5%87%A6%E7%90%86%E3%81%99%E3%82%8B%E6%96%B9%E6%B3%95\" title=\"\uff1c\u8ffd\u52a0\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092\u5927\u91cf\u306b\u53d6\u308a\u8fbc\u3080\u969b\u306b\u3001\u9ad8\u901f\u306b\u51e6\u7406\u3059\u308b\u65b9\u6cd5\">\uff1c\u8ffd\u52a0\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092\u5927\u91cf\u306b\u53d6\u308a\u8fbc\u3080\u969b\u306b\u3001\u9ad8\u901f\u306b\u51e6\u7406\u3059\u308b\u65b9\u6cd5<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-12\" href=\"https:\/\/extan.jp\/?p=2802\/#%E3%81%95%E3%81%84%E3%81%94%E3%81%AB\" title=\"\u3055\u3044\u3054\u306b\">\u3055\u3044\u3054\u306b<\/a><\/li><\/ul><\/nav><\/div>\n<h2><span class=\"ez-toc-section\" id=\"%E8%A4%87%E6%95%B0%E3%83%A6%E3%83%BC%E3%82%B6%E3%81%AEOutlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%82%92%E4%B8%80%E7%9E%AC%E3%81%A7Excel%E3%81%B8%E5%8F%96%E3%82%8A%E8%BE%BC%E3%82%80%E6%96%B9%E6%B3%95%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6\"><\/span>\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u306b\u3064\u3044\u3066<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u524d\u56de\u3001\u300c<a href=\"https:\/\/extan.jp\/?p=1663\">\u3010Excel VBA\u3011\u4e00\u77ac\u3067Excel\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3078Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u308a\u8fbc\u3080<\/a>\u300d\u3092\u3054\u7d39\u4ecb\u3057\u307e\u3057\u305f\u304c\u3001<\/p>\n<p>\u8aad\u8005\u306e\u65b9\u304b\u3089<strong>\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u60c5\u5831\u3092\u307e\u3068\u3081\u3066\u53d6\u5f97\u3067\u304d\u306a\u3044\u304b<\/strong>\u3068<\/p>\n<p>\u3054\u8981\u671b\u304c\u3042\u308a\u307e\u3057\u305f\u306e\u3067\u3001\u305d\u306e\u64cd\u4f5c\u304c\u3067\u304d\u308b\u3088\u3046\u306b\u6a5f\u80fd\u3092\u5909\u66f4\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<p>\u5229\u7528\u30b1\u30fc\u30b9\u3068\u3057\u3066\u306f\u3001<\/p>\n<p><strong>\u4e2d\u9593\u7ba1\u7406\u8077\u5c64\u306e\u65b9\u3084\u30c1\u30fc\u30e0\u30ea\u30fc\u30c0\u304c\u6240\u5c5e\u30e1\u30f3\u30d0\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u78ba\u8a8d\u3059\u308b\u3053\u3068<\/strong><\/p>\n<p>\u304c\u60f3\u5b9a\u3055\u308c\u307e\u3059\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u6570\u540d\u306e\u30e1\u30f3\u30d0\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306a\u3089\u3069\u3046\u306b\u304b\u628a\u63e1\u306f\u3067\u304d\u305d\u3046\u3067\u3059\u304c\u3001\u6570\u5341\u540d\u3068\u306a\u308b\u3068\u306a\u304b\u306a\u304b\u53b3\u3057\u3044\u3082\u306e\u304c\u3042\u308a\u307e\u3059\u3088\u306d\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p>\u3053\u306e\u30c4\u30fc\u30eb\u3092\u4f7f\u3048\u3070\u3001\u30e1\u30f3\u30d0\u304c\u6570\u5341\u540d\u3060\u308d\u3046\u304c<strong>\u30ef\u30f3\u30af\u30ea\u30c3\u30af\u3067\u5bfe\u8c61\u8005\u306e\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u304c\u4e00\u89a7\u5316<\/strong>\u3067\u304d\u307e\u3059\u3057\u3001<\/p>\n<p>\u3044\u308f\u3086\u308b<strong>\u696d\u52d9\u306e\u898b\u3048\u308b\u5316\u3084\u53ef\u8996\u5316<\/strong>\u3068\u3044\u308f\u308c\u308b\u3082\u306e\u306b\u8ca2\u732e\u3067\u304d\u308b\u304b\u306a\u3068\u601d\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u3067\u306f\u6a5f\u80fd\u306e\u8aac\u660e\u3092\u3057\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u4eca\u56de\u306eVBA\u306e\u5b9f\u88c5\u5148\u306f\u3001\u3053\u308c\u307e\u3067\u3068\u540c\u69d8<strong>Excel\u30d6\u30c3\u30af\u5074<\/strong>\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>Excel\u5074\u306b<strong>\u53d6\u5f97\u3057\u305f\u3044\u30e1\u30f3\u30d0\u30ea\u30b9\u30c8\uff08\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\uff09\u30b7\u30fc\u30c8<\/strong>\u3068<strong>\u4e88\u5b9a\u8868\u304c\u5165\u308b\u7a7a\u306e\u30b7\u30fc\u30c8<\/strong>\u3092\u7528\u610f\u3057\u3001<\/p>\n<p>\u30e1\u30f3\u30d0\u30ea\u30b9\u30c8\u306b\u8a18\u8f09\u3055\u308c\u3066\u3044\u308b<strong>\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3092\u30ad\u30fc<\/strong>\u306b\u3057\u3066<strong>Outlook\u5074\u306e\u4e88\u5b9a\u8868\u3092\u691c\u7d22\u3001\u53d6\u5f97<\/strong>\u3057\u3001Excel\u306e\u7a7a\u30b7\u30fc\u30c8\u3078\u4e88\u5b9a\u8868\u304c\u5165\u529b\u3055\u308c\u308b\u3068\u3044\u3063\u305f\u6d41\u308c\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<div class=\"info\">\u2460<strong>Excel\u30d6\u30c3\u30af(VBA)\u306e\u30e1\u30f3\u30d0\u30ea\u30b9\u30c8\u304b\u3089\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3092\u53d6\u5f97<\/strong><br \/>\n\u2461<strong>Excel\u30d6\u30c3\u30af(VBA)<\/strong> \u2192\u3000<strong>\u3053\u306e\u30e1\u30a2\u30c9\u306e\u4eba\u306e\u4e88\u5b9a\u4e00\u89a7\u3061\u3087\u3046\u3060\u3044<\/strong>\u3000\u2192 <strong>Outlook<\/strong><br \/>\n\u2462<strong>Excel\u30d6\u30c3\u30af<\/strong> \u2190\u3000<strong>\u30e1\u30a2\u30c9\u306e\u4e88\u5b9a\u4e00\u89a7\u3092\u51fa\u3059\u3088<\/strong>\u3000\u2190 <strong>Outlook<\/strong><br \/>\n\u2463<strong>\u2460\u306b\u623b\u308a\u30e1\u30f3\u30d0\u30ea\u30b9\u30c8\u4ef6\u6570\u5206\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3059<\/strong><\/div>\n<p>\u3067\u306f\u65e9\u901f\u5b9f\u88c5\u3092\u3057\u3066\u52d5\u304b\u3057\u3066\u307f\u307e\u3057\u3087\u3046\uff01<\/p>\n<h2><span class=\"ez-toc-section\" id=\"Excel_VBA%E3%81%8B%E3%82%89Outlook%E3%82%92%E6%93%8D%E4%BD%9C%E3%81%99%E3%82%8B%E3%81%9F%E3%82%81%E3%81%AE%E4%B8%8B%E6%BA%96%E5%82%99\"><\/span>Excel VBA\u304b\u3089Outlook\u3092\u64cd\u4f5c\u3059\u308b\u305f\u3081\u306e\u4e0b\u6e96\u5099<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u2460\u307e\u305aExcel\u3092\u8d77\u52d5\u3057\u3001\u300c\u958b\u767a\u300d\u30bf\u30d6\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1670\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092219_1157_temp25.png\" alt=\"\" width=\"1051\" height=\"456\" \/><\/p>\n<p>\u2461VBE\u306e\u753b\u9762\u304c\u958b\u3044\u305f\u3089\u3001\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u300c\u30c4\u30fc\u30eb\u300d&gt;\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/p>\n<p>\u2462\u300cMicrosoft Outlook XX.X Object Library\u300d\u3092\u63a2\u3057\u3066\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306b\u30c1\u30a7\u30c3\u30af\u3057\u300cOK\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1536\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/091219_1002_temp3.png\" alt=\"\" width=\"650\" height=\"465\" \/><\/p>\n<p>\u4ee5\u4e0a\u3067\u3059\u3002<\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"VBA%E3%82%92%E5%AE%9F%E8%A3%85%E3%81%99%E3%82%8B\"><\/span>VBA\u3092\u5b9f\u88c5\u3059\u308b<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u7d9a\u3044\u3066VBA\u3092\u5b9f\u88c5\u3057\u307e\u3059\u3002<\/p>\n<p>\u4eca\u56deVBA\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>VBA\u306f\u524d\u56de\u306e\u300c<a href=\"https:\/\/extan.jp\/?p=1663\">\u3010Excel VBA\u3011\u4e00\u77ac\u3067Excel\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3078Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u308a\u8fbc\u3080<\/a>\u300d\u3092\u30d9\u30fc\u30b9\u306b\u3001<\/p>\n<p><strong>\u8907\u6570\u30e6\u30fc\u30b6\u5206\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3059\u3088\u3046\u6a5f\u80fd\u3092\u8ffd\u52a0\u30fb\u5909\u66f4<\/strong>\u3057\u305f\u3082\u306e\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<pre style=\"padding: 0;\"><code class=\"language-visual-basic line-numbers\">Sub \u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080() \n  \n    Dim strAddress As String \n    Dim strStart As String \n    Dim strEnd As String \n    Dim n As Integer \n  \n    &#039;Excel\u306e\u30d6\u30c3\u30af\u3068\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002 \n    Set wbBook = ThisWorkbook \n    Set wsSheet1 = wbBook.Worksheets(1) \n    Set wsSheet2 = wbBook.Worksheets(2) \n     \n  \n    &#039;\u5bfe\u8c61\u4e88\u5b9a\u8868\u306e\u62bd\u51fa\u671f\u9593\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u203b\u5909\u66f4\u3059\u308b\u5834\u5408\u306f\u4ee5\u4e0b\u306e\u65e5\u4ed8\u3092\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002 \n    strStart = Format(&quot;2020\/09\/1&quot;, &quot;yyyy\/mm\/dd&quot;) &#039;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u958b\u59cb\u65e5\u3092\u6307\u5b9a \n    strEnd = Format(&quot;2020\/09\/1&quot;, &quot;yyyy\/mm\/dd&quot;) &#039;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u7d42\u4e86\u65e5\u3092\u6307\u5b9a \n     \n  \n    &#039;1\u756a\u76ee\u306e\u30b7\u30fc\u30c8\u306e1\u884c\u76ee\u306b\u30bf\u30a4\u30c8\u30eb\u3092\u8a18\u8ff0\u3057\u307e\u3059\u3002 \n    With wsSheet1 \n        .Range(&quot;A1&quot;).CurrentRegion.Clear \n        .Cells(1, 1).Value = &quot;\u4ef6\u540d&quot; \n        .Cells(1, 2).Value = &quot;\u5834\u6240&quot; \n        .Cells(1, 3).Value = &quot;\u958b\u59cb\u65e5\u6642&quot; \n        .Cells(1, 4).Value = &quot;\u7d42\u4e86\u65e5\u6642&quot; \n        .Cells(1, 5).Value = &quot;\u4e88\u5b9a\u306e\u672c\u6587&quot; \n        .Cells(1, 6).Value = &quot;\u4e88\u7d04\u8005&quot; \n        .Cells(1, 7).Value = &quot;\u5fc5\u9808\u51fa\u5e2d\u8005&quot; \n        .Cells(1, 8).Value = &quot;\u4efb\u610f\u51fa\u5e2d\u8005&quot; \n        .Cells(1, 9).Value = &quot;EntryID&quot; &#039;\u4e88\u5b9a\u306eID\u203b\u7de8\u96c6\u6642\u306b\u30ad\u30fc\u3068\u3057\u3066\u4f7f\u7528\u3057\u307e\u3059\u3002 \n        .Cells(1, 10).Value = &quot;\u5b9a\u671f\u7684\u306a\u4e88\u5b9a&quot; &#039;\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u3067\u3042\u308b\u304b\u306e\u30d5\u30e9\u30b0\u3002\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u306fTrue\u3002 \n        .Cells(1, 11).Value = &quot;\u5bfe\u8c61\u8005\uff08\u30e1\u30a2\u30c9\uff09&quot; \n         \n        With .Range(&quot;A1:Z1&quot;) \n            .Font.Bold = True \n            .Font.ColorIndex = 10 \n            .Font.Size = 11 \n        End With \n    End With \n\n    strEnd = DateAdd(&quot;d&quot;, 1, strEnd)   &#039; 1\u65e5\u8ffd\u52a0 \n     \n    &#039;\u5bfe\u8c61\u30e6\u30fc\u30b6\u304c\u8a18\u8f09\u3055\u308c\u3066\u3044\u308b\u30e1\u30a2\u30c9\u5206\u4e88\u5b9a\u8868\u53d6\u308a\u8fbc\u307f\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002 \n    For n = 2 To wsSheet2.Cells(1048576, 1).End(xlUp).Row \n     \n        With wsSheet2 \n           Call \u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u4e88\u5b9a\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080(.Cells(n, 1).Value, strStart, strEnd) \n        End With \n     \n    Next \n     \n    MsgBox &quot;Outlook\u4e88\u5b9a\u8868\u306e\u53d6\u308a\u8fbc\u307f\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01&quot;, vbInformation \n     \n    &#039;Null out the variables. \n    Set wbBook = Nothing \n    Set wsSheet1 = Nothing \n    Set wsSheet2 = Nothing \n     \nEnd Sub \n  \n  \n  \nSub \u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u4e88\u5b9a\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080(strAddress As String, strStart As String, strEnd As String) \n  \n    &#039;Outlook\u7528\u306e\u5b9a\u7fa9 \n    Dim olApp As Outlook.Application \n    Dim olNamespace As Outlook.Namespace \n    Dim olFolder As Folder \n    Dim olConItems As Outlook.Items \n    Dim olItem  As AppointmentItem \n  \n    &#039;Excel\u7528\u306e\u5b9a\u7fa9 \n    Dim wbBook As Workbook \n    Dim wsSheet As Worksheet \n    Dim lnContactCount As Long \n     \n    &#039;\u4ed6\u4eba\u4e88\u5b9a\u8868\u306e\u5b9a\u7fa9 \n    Dim recOther As Recipient \n    Dim objAppt As AppointmentItem \n  \n    \n    Dim strDummy As String \n     \n    &#039;\u51e6\u7406\u901f\u5ea6\u512a\u5148\u306e\u305f\u3081\u30b9\u30af\u30ea\u30fc\u30f3\u306e\u66f4\u65b0\u306f\u884c\u308f\u308c\u307e\u305b\u3093\u3002 \n    Application.ScreenUpdating = False \n     \n  \n     \n    &#039;Outlook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u3001MAPI\u540d\u524d\u7a7a\u9593\u3092\u4ecb\u3057\u3066Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002 \n    Set olApp = New Outlook.Application \n    Set olNamespace = olApp.GetNamespace(&quot;MAPI&quot;) \n    &#039;\u4ed6\u4eba\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u6307\u5b9a\u3057\u53d6\u5f97\u3057\u307e\u3059\u3002 \n    Set recOther = olNamespace.CreateRecipient(strAddress) \n    &#039;\u53d6\u5f97\u3057\u305f\u4ed6\u4eba\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u5185\u3001\u4e88\u5b9a\u8868\u306e\u307f\u7d5e\u308a\u8fbc\u307f\u518d\u53d6\u5f97\u3057\u307e\u3059\u3002 \n    Set olFolder = olNamespace.GetSharedDefaultFolder(recOther, olFolderCalendar) \n    Set olConItems = olFolder.Items \n  \n  \n    &#039;\u30d6\u30c3\u30af\u304a\u3088\u3073\u30011\u756a\u76ee\u306e\u30b7\u30fc\u30c8\u60c5\u5831\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002 \n    Set wbBook = ThisWorkbook \n    Set wsSheet1 = wbBook.Worksheets(1) \n     \n    &#039;\u53d6\u5f97\u7d50\u679c\u3092\u8a18\u8ff0\u3059\u308b\u884c\u756a\u53f7\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002 \n    lnContactCount = wsSheet1.Cells(1048576, 1).End(xlUp).Row + 1 \n     \n  \n   &#039;\u958b\u59cb\u65e5\u3067\u30bd\u30fc\u30c8\u3057\u307e\u3059\u3002 \n   olConItems.Sort &quot;[Start]&quot; \n    \n   &#039;True\u3067\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u3092\u542b\u3080\u3088\u3046\u306b\u3057\u307e\u3059\u3002\u203bFalse\u3067\u3042\u308b\u3068\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u306f\u542b\u307e\u308c\u307e\u305b\u3093\u3002 \n   olConItems.IncludeRecurrences = True \n     \n    &#039;Find\u30e1\u30bd\u30c3\u30c9\u3067\u671f\u9593\u6307\u5b9a\u3057\u3066\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u7d5e\u308a\u8fbc\u307f\u307e\u3059\u3002 \n    Set olItem = olConItems.Find(&quot;[End] &lt; &quot;&quot;&quot; &amp; strEnd &amp; &quot;&quot;&quot; AND [Start] &gt;= &quot;&quot;&quot; &amp; strStart &amp; &quot;&quot;&quot;&quot;) \n     \n     \n     \n    While TypeName(olItem) = &quot;AppointmentItem&quot; \n        &#039;Find\u3067\u691c\u7d22\u3059\u308b\u3068\u671f\u9593\u7bc4\u56f2\u5916\u306e\u4f59\u8a08\u306a\u3082\u306e\u307e\u3067\u30d2\u30c3\u30c8\u3057\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u518d\u5ea6\u30d5\u30a3\u30eb\u30bf\u30ea\u30f3\u30b0\u3057\u307e\u3059\u3002 \n        If olItem.Start &gt;= strStart And olItem.End &lt; strEnd Then \n            With olItem \n                wsSheet1.Cells(lnContactCount, 1).Value = .Subject \n                wsSheet1.Cells(lnContactCount, 2).Value = .Location \n                wsSheet1.Cells(lnContactCount, 3).Value = .Start \n                wsSheet1.Cells(lnContactCount, 4).Value = .End \n                wsSheet1.Cells(lnContactCount, 5).Value = .Body \n                wsSheet1.Cells(lnContactCount, 6).Value = .Organizer \n                wsSheet1.Cells(lnContactCount, 7).Value = .RequiredAttendees \n                wsSheet1.Cells(lnContactCount, 8).Value = .OptionalAttendees \n                wsSheet1.Cells(lnContactCount, 9).Value = .EntryID \n                wsSheet1.Cells(lnContactCount, 10).Value = .IsRecurring \n                wsSheet1.Cells(lnContactCount, 11).Value = strAddress \n            End With \n            lnContactCount = lnContactCount + 1 \n        End If \n        Set olItem = olConItems.FindNext \n    Wend \n     \n    &#039;Null out the variables. \n    Set olItem = Nothing \n    Set olConItems = Nothing \n    Set olFolder = Nothing \n    Set olNamespace = Nothing \n    Set olApp = Nothing \n    Set wbBook = Nothing \n    Set wsSheet1 = Nothing \n     \n    &#039;Turn screen updating back on. \n    Application.ScreenUpdating = True \n     \n  \n     \nEnd Sub \n<\/code><\/pre>\n<p>\u5b9f\u88c5\u624b\u9806\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002<\/p>\n<p>\u4eca\u56de\u306fExcel\u5074\u306b\u3053\u306eVBA\u3092\u5b9f\u88c5\u3057\u307e\u3059\u3002<\/p>\n<p>\u2460Excel\u3092\u65b0\u898f\u306b\u958b\u304d\u3001\u300c\u958b\u767a\u300d\u30bf\u30d6\u3092\u30af\u30ea\u30c3\u30af\u3057\u3001\u300cVisualBasic\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<br \/>\n\u3082\u3057\u304f\u306f\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u300cAlt\u300d\uff0b\u300cF11\u300d\u3067\u3082OK\u3067\u3059\u3002<\/p>\n<p>\u2461\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<br \/>\n\u5de6\u30da\u30a4\u30f3\u306eVBAProject\u3092\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3001\u300c\u633f\u5165\u300d\u3001\u300c\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u300d\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/p>\n<img decoding=\"async\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/05\/050919_1542_VBAFunctio2.png\" alt=\"\" \/>\n<p>\u2462\u53f3\u30da\u30a4\u30f3\u306e\u30a6\u30a4\u30f3\u30c9\u30a6\u306b\u4e0a\u8a18\u306eVBA\u3092\u5165\u529b\u3057\u307e\u3059\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-1680\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2019\/09\/092219_1211_temp22.png\" alt=\"\" width=\"1395\" height=\"879\" \/><\/p>\n<p>\u3053\u3061\u3089\u3067\u5b8c\u4e86\u3067\u3059\u3002<\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"%E3%83%86%E3%82%B9%E3%83%88%E3%83%87%E3%83%BC%E3%82%BF%E3%82%92%E6%BA%96%E5%82%99%E3%81%99%E3%82%8B\"><\/span>\u30c6\u30b9\u30c8\u30c7\u30fc\u30bf\u3092\u6e96\u5099\u3059\u308b<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<h3><span class=\"ez-toc-section\" id=\"%E4%BA%88%E5%AE%9A%E8%A1%A8%E5%8F%96%E5%BE%97%E5%AF%BE%E8%B1%A1%E8%80%85%E3%81%AE%E3%83%A1%E3%83%BC%E3%83%AB%E3%82%A2%E3%83%89%E3%83%AC%E3%82%B9%E3%82%92Excel%E3%81%B8%E3%81%BE%E3%81%A8%E3%82%81%E3%82%8B\"><\/span>\u4e88\u5b9a\u8868\u53d6\u5f97\u5bfe\u8c61\u8005\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3092Excel\u3078\u307e\u3068\u3081\u308b<span class=\"ez-toc-section-end\"><\/span><\/h3>\n<p>\u4eca\u56de\u306e\u30de\u30af\u30ed\u306fExcel\u5074\u306b\u307e\u3068\u3081\u305f\u4e88\u5b9a\u8868\u53d6\u5f97\u5bfe\u8c61\u8005\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3092\u8aad\u307f\u8fbc\u307f\u3001\u4e88\u5b9a\u8868\u3092\u53d6\u5f97\u3059\u308b\u51e6\u7406\u3068\u306a\u308b\u305f\u3081\u3001<\/p>\n<p><strong>Excel\u5074\u306b\u4e88\u5b9a\u8868\u53d6\u5f97\u5bfe\u8c61\u8005\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3092\u307e\u3068\u3081\u308b<\/strong>\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u307e\u305a\u3001<strong>Excel\u306b2\u3064\u306e\u30b7\u30fc\u30c8\u3092\u7528\u610f<\/strong>\u3057\u307e\u3059\u3002<\/p>\n<p>\u30b7\u30fc\u30c8\u540d\u306f\u4f55\u3067\u3082\u3088\u3044\u3067\u3059\u304c\u3001<span style=\"color: #ff0000;\"><strong>\u5fc5\u305a2\u3064\u76ee\u306e\u30b7\u30fc\u30c8\u306b\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3092\u5165\u529b<\/strong><\/span>\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-2815\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2020\/11\/110620_1410_3.png\" alt=\"\" width=\"280\" height=\"198\" \/>\n<p>\u5165\u529b\u958b\u59cb\u4f4d\u7f6e\u306fA2\u30bb\u30eb\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u5927\u91cf\u306b\u6295\u5165\u3059\u308b\u3068\u30de\u30af\u30ed\u306e\u51e6\u7406\u6642\u9593\u304c\u9577\u304f\u306a\u308a\u307e\u3059\u306e\u3067\u3001\u306f\u3058\u3081\u306f2\uff5e3\u540d\u7a0b\u5ea6\u3067\u30c6\u30b9\u30c8\u3057\u3001\u5f90\u3005\u306b\u5897\u3084\u3059\u307b\u3046\u304c\u3088\u3044\u3067\u3057\u3087\u3046\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p>\u306a\u304a\u3001\u4e88\u5b9a\u8868\u53d6\u5f97\u5bfe\u8c61\u8005\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3067\u3059\u304c\u3001<strong>\u540c\u3058\u30c9\u30e1\u30a4\u30f3\u306b\u53c2\u52a0\u3057\u3066\u3044\u308b\u30e6\u30fc\u30b6\u306e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9<\/strong>\u3067<br \/>\n\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3059\u308b\u4eba\u306f<strong>\u5bfe\u8c61\u8005\u306e\u4e88\u5b9a\u304c\u53c2\u7167\u3067\u304d\u308b\u6a29\u9650\u3092\u4fdd\u6301\u3057\u3066\u3044\u308b\u5fc5\u8981<\/strong>\u304c\u3042\u308a\u307e\u3059\u306e\u3067\u3001\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n<h3><span class=\"ez-toc-section\" id=\"%E5%8F%96%E5%BE%97%E3%81%97%E3%81%9F%E3%81%84%E4%BA%88%E5%AE%9A%E3%81%AE%E6%9C%9F%E9%96%93%E3%82%92%E6%8C%87%E5%AE%9A%E3%81%99%E3%82%8B\"><\/span>\u53d6\u5f97\u3057\u305f\u3044\u4e88\u5b9a\u306e\u671f\u9593\u3092\u6307\u5b9a\u3059\u308b<span class=\"ez-toc-section-end\"><\/span><\/h3>\n<p>\u6b21\u306b\u53d6\u5f97\u3057\u305f\u3044\u4e88\u5b9a\u306e\u671f\u9593\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<br \/>\n\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u958b\u59cb\u65e5\u3001\u7d42\u4e86\u65e5\u3068\u3082\u306b<strong>2020\/09\/1<\/strong>\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u306e\u3067\u3001<br \/>\n\u3053\u3061\u3089\u3092\u5909\u66f4\u3059\u308b\u3088\u3046\u306b\u304a\u9858\u3044\u3057\u307e\u3059\u3002<\/p>\n<blockquote><p><strong>strStart = Format(&#8220;<span style=\"color: #ff0000;\">2020\/09\/1<\/span>&#8220;, &#8220;yyyy\/mm\/dd&#8221;)<\/strong> &#8216;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u958b\u59cb\u65e5\u3092\u6307\u5b9a<br \/>\n<strong>strEnd = Format(&#8220;<span style=\"color: #ff0000;\">2020\/09\/1<\/span>&#8220;, &#8220;yyyy\/mm\/dd&#8221;) <\/strong>&#8216;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u7d42\u4e86\u65e5\u3092\u6307\u5b9a<\/p><\/blockquote>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u5bfe\u8c61\u671f\u9593\u306f1\uff5e3\u65e5\u304c\u9069\u6b63\u3067\u3059\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<p>\u3053\u3061\u3089\u3067\u3001\u30c6\u30b9\u30c8\u30c7\u30fc\u30bf\u306e\u6e96\u5099\u306f\u5b8c\u4e86\u3067\u3059\u3002<\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"VBA%E3%82%92%E5%AE%9F%E8%A1%8C%E3%81%99%E3%82%8B\"><\/span>VBA\u3092\u5b9f\u884c\u3059\u308b<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<h3><span class=\"ez-toc-section\" id=\"Excel%E3%81%8B%E3%82%89Outlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%81%AE%E5%8D%98%E4%BD%93%E3%81%AE%E4%BA%88%E5%AE%9A%E3%82%92%E5%A4%89%E6%9B%B4%E3%81%99%E3%82%8B\"><\/span>Excel\u304b\u3089Outlook\u4e88\u5b9a\u8868\u306e\u5358\u4f53\u306e\u4e88\u5b9a\u3092\u5909\u66f4\u3059\u308b<span class=\"ez-toc-section-end\"><\/span><\/h3>\n<p>\u3067\u306f\u65e9\u901fVBA\u306e\u5b9f\u884c\u3092\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002<\/p>\n<p>\u2460\u300c\u958b\u767a\u300d\u30bf\u30d6\u306e\u300cVBA\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u300c<strong>\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080<\/strong>\u300d\u3092\u9078\u629e\u3057\u3001\u300c<strong>\u5b9f\u884c<\/strong>\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/p>\n<p>\u2461\u300cOutlook\u4e88\u5b9a\u8868\u306e\u53d6\u308a\u8fbc\u307f\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01\u300d\u304c\u8868\u793a\u3055\u308c\u305f\u3089\u5b8c\u4e86\u3067\u3059\u3002<\/p>\n<p>Outlook\u4e88\u5b9a\u8868\u304cExcel\u3078\u53d6\u308a\u8fbc\u307e\u308c\u3066\u3044\u308b\u3053\u3068\u304c\u78ba\u8a8d\u3067\u304d\u307e\u3057\u305f\u306d\uff01<\/p>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-2816\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2020\/11\/110620_1410_4.png\" alt=\"\" width=\"798\" height=\"88\" \/>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"%EF%BC%9C%E8%BF%BD%E8%A8%98%EF%BC%9E%E8%A4%87%E6%95%B0%E3%81%AE%E4%BB%96%E4%BA%BA%E3%81%AEOutlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%82%92Excel%E3%81%B8%E5%8F%96%E3%82%8A%E8%BE%BC%E3%82%80VBA%E2%80%93%E6%99%82%E9%96%93%E6%8C%87%E5%AE%9A%E3%83%90%E3%83%BC%E3%82%B8%E3%83%A7%E3%83%B3\"><\/span>\uff1c\u8ffd\u8a18\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080VBA&#8211;\u6642\u9593\u6307\u5b9a\u30d0\u30fc\u30b8\u30e7\u30f3<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u4e0a\u8a18\u306eVBA\u3067\u306f\u3001\u671f\u9593\u6307\u5b9a\u306e\u969b\u3001\u65e5\u4ed8\u307e\u3067\u306e\u6307\u5b9a\u3057\u304b\u3067\u304d\u306a\u3044\u4ed5\u69d8\u3067\u3042\u308b\u306e\u3067\u3001<br \/>\n\uff10\u6642\u958b\u59cb\u306e\u201c\u7d42\u65e5\u30a4\u30d9\u30f3\u30c8\u201d\u304c\u629c\u3051\u843d\u3061\u3066\u3057\u307e\u3046\u5834\u5408\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u4e88\u5b9a\u8868\u306e\u4e0a\u90e8\u306b\u3067\u308b\u30a2\u30a4\u30c6\u30e0\u304c\u7d42\u65e5\u30a4\u30d9\u30f3\u30c8\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-3123\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2021\/02\/020421_1636_1.png\" alt=\"\" width=\"162\" height=\"195\" \/>\n<p>\u305d\u3053\u3067\u3001\u671f\u9593\u6307\u5b9a\u306e\u65e5\u4ed8\u306b\u6642\u9593\u3092\u52a0\u3048\u3066\u3001\u7d42\u65e5\u30a4\u30d9\u30f3\u30c8\u306e\u629c\u3051\u843d\u3061\u3092\u9632\u304e\u3001\u3088\u308a\u8a73\u7d30\u306a\u671f\u9593\u6307\u5b9a\u304c\u3067\u304d\u308b\u3088\u3046\u6539\u826f\u3057\u305f\u3082\u306e\u3092\u516c\u958b\u3057\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u8aad\u8005\u69d8\u3088\u308a\u4e0d\u5177\u5408\u3068\u305d\u306e\u5bfe\u5fdc\u307e\u3067\u3054\u6559\u793a\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u3002<br \/>\n\u3042\u308a\u304c\u3068\u3046\u3054\u3056\u3044\u307e\u3059\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<pre style=\"padding: 0;\"><code class=\"language-visual-basic line-numbers\">Sub \u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080_\u6642\u9593\u6307\u5b9a\u8ffd\u52a0\u7248()\n  \n    Dim strAddress As String\n    Dim strStart As String\n    Dim strEnd As String\n    Dim n As Integer\n  \n    &#039;Excel\u306e\u30d6\u30c3\u30af\u3068\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n    Set wbBook = ThisWorkbook\n    Set wsSheet1 = wbBook.Worksheets(1)\n    Set wsSheet2 = wbBook.Worksheets(2)\n     \n  \n    &#039;\u5bfe\u8c61\u4e88\u5b9a\u8868\u306e\u62bd\u51fa\u671f\u9593\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u203b\u5909\u66f4\u3059\u308b\u5834\u5408\u306f\u4ee5\u4e0b\u306e\u65e5\u4ed8\u3092\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002\n    strStart = Format(&quot;2021\/1\/1 00:00&quot;, &quot;yyyy\/mm\/dd hh:nn&quot;) &#039;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u958b\u59cb\u65e5+\u6642\u523b\u3092\u6307\u5b9a\n    strEnd = Format(&quot;2021\/1\/25 10:30&quot;, &quot;yyyy\/mm\/dd hh:nn&quot;)   &#039;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u7d42\u4e86\u65e5+\u6642\u523b\u3092\u6307\u5b9a\n    \n  \n    &#039;1\u756a\u76ee\u306e\u30b7\u30fc\u30c8\u306e1\u884c\u76ee\u306b\u30bf\u30a4\u30c8\u30eb\u3092\u8a18\u8ff0\u3057\u307e\u3059\u3002\n    With wsSheet1\n        .Range(&quot;A1&quot;).CurrentRegion.Clear\n        .Cells(1, 1).Value = &quot;\u4ef6\u540d&quot;\n        .Cells(1, 2).Value = &quot;\u5834\u6240&quot;\n        .Cells(1, 3).Value = &quot;\u958b\u59cb\u65e5\u6642&quot;\n        .Cells(1, 4).Value = &quot;\u7d42\u4e86\u65e5\u6642&quot;\n        .Cells(1, 5).Value = &quot;\u4e88\u5b9a\u306e\u672c\u6587&quot;\n        .Cells(1, 6).Value = &quot;\u4e88\u7d04\u8005&quot;\n        .Cells(1, 7).Value = &quot;\u5fc5\u9808\u51fa\u5e2d\u8005&quot;\n        .Cells(1, 8).Value = &quot;\u4efb\u610f\u51fa\u5e2d\u8005&quot;\n        .Cells(1, 9).Value = &quot;EntryID&quot; &#039;\u4e88\u5b9a\u306eID\u203b\u7de8\u96c6\u6642\u306b\u30ad\u30fc\u3068\u3057\u3066\u4f7f\u7528\u3057\u307e\u3059\u3002\n        .Cells(1, 10).Value = &quot;\u5b9a\u671f\u7684\u306a\u4e88\u5b9a&quot; &#039;\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u3067\u3042\u308b\u304b\u306e\u30d5\u30e9\u30b0\u3002\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u306fTrue\u3002\n        .Cells(1, 11).Value = &quot;\u5bfe\u8c61\u8005\uff08\u30e1\u30a2\u30c9\uff09&quot;\n        .Cells(1, 12).Value = &quot;\u7d42\u65e5\u30a4\u30d9\u30f3\u30c8&quot;\n         \n        With .Range(&quot;A1:Z1&quot;)\n            .Font.Bold = True\n            .Font.ColorIndex = 10\n            .Font.Size = 11\n        End With\n    End With\n    \n     \n    &#039;\u5bfe\u8c61\u30e6\u30fc\u30b6\u304c\u8a18\u8f09\u3055\u308c\u3066\u3044\u308b\u30e1\u30a2\u30c9\u5206\u4e88\u5b9a\u8868\u53d6\u308a\u8fbc\u307f\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002\n    For n = 2 To wsSheet2.Cells(1048576, 1).End(xlUp).Row\n    \n        With wsSheet2\n           Call \u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u4e88\u5b9a\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080(.Cells(n, 1).Value, strStart, strEnd)\n        End With\n     \n    Next\n     \n    MsgBox &quot;Outlook\u4e88\u5b9a\u8868\u306e\u53d6\u308a\u8fbc\u307f\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01&quot;, vbInformation\n     \n    &#039;Null out the variables.\n    Set wbBook = Nothing\n    Set wsSheet1 = Nothing\n    Set wsSheet2 = Nothing\n     \nEnd Sub\n  \n  \n  \nSub \u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u4e88\u5b9a\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080(strAddress As String, strStart As String, strEnd As String)\n  \n    &#039;Outlook\u7528\u306e\u5b9a\u7fa9\n    Dim olApp As Outlook.Application\n    Dim olNamespace As Outlook.Namespace\n    Dim olFolder As Folder\n    Dim olConItems As Outlook.Items\n    Dim olItem  As AppointmentItem\n  \n    &#039;Excel\u7528\u306e\u5b9a\u7fa9\n    Dim wbBook As Workbook\n    Dim wsSheet As Worksheet\n    Dim lnContactCount As Long\n     \n    &#039;\u4ed6\u4eba\u4e88\u5b9a\u8868\u306e\u5b9a\u7fa9\n    Dim recOther As Recipient\n    Dim objAppt As AppointmentItem\n  \n\n    Dim strDummy As String\n     \n    &#039;\u51e6\u7406\u901f\u5ea6\u512a\u5148\u306e\u305f\u3081\u30b9\u30af\u30ea\u30fc\u30f3\u306e\u66f4\u65b0\u306f\u884c\u308f\u308c\u307e\u305b\u3093\u3002\n    Application.ScreenUpdating = False\n     \n  \n     \n    &#039;Outlook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u3001MAPI\u540d\u524d\u7a7a\u9593\u3092\u4ecb\u3057\u3066Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set olApp = New Outlook.Application\n    Set olNamespace = olApp.GetNamespace(&quot;MAPI&quot;)\n    &#039;\u4ed6\u4eba\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u6307\u5b9a\u3057\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set recOther = olNamespace.CreateRecipient(strAddress)\n\n    &#039;\u53d6\u5f97\u3057\u305f\u4ed6\u4eba\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u5185\u3001\u4e88\u5b9a\u8868\u306e\u307f\u7d5e\u308a\u8fbc\u307f\u518d\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set olFolder = olNamespace.GetSharedDefaultFolder(recOther, olFolderCalendar)\n\n    Set olConItems = olFolder.Items\n  \n  \n    &#039;\u30d6\u30c3\u30af\u304a\u3088\u3073\u30011\u756a\u76ee\u306e\u30b7\u30fc\u30c8\u60c5\u5831\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set wbBook = ThisWorkbook\n    Set wsSheet1 = wbBook.Worksheets(1)\n     \n    &#039;\u53d6\u5f97\u7d50\u679c\u3092\u8a18\u8ff0\u3059\u308b\u884c\u756a\u53f7\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\n    lnContactCount = wsSheet1.Cells(1048576, 1).End(xlUp).Row + 1\n     \n  \n    &#039;\u958b\u59cb\u65e5\u3067\u30bd\u30fc\u30c8\u3057\u307e\u3059\u3002\n    olConItems.Sort &quot;[Start]&quot;\n    \n    &#039;True\u3067\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u3092\u542b\u3080\u3088\u3046\u306b\u3057\u307e\u3059\u3002\u203bFalse\u3067\u3042\u308b\u3068\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u306f\u542b\u307e\u308c\u307e\u305b\u3093\u3002\n    olConItems.IncludeRecurrences = True\n     \n     \n    &#039;Find\u30e1\u30bd\u30c3\u30c9\u3067\u671f\u9593\u6307\u5b9a\u3057\u3066\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u7d5e\u308a\u8fbc\u307f\u307e\u3059\u3002\n    Set olItem = olConItems.Find(&quot;[End] &lt;= &quot;&quot;&quot; &amp; strEnd &amp; &quot;&quot;&quot; AND [Start] &gt;= &quot;&quot;&quot; &amp; strStart &amp; &quot;&quot;&quot;&quot;)\n     \n     \n    While TypeName(olItem) = &quot;AppointmentItem&quot;\n    \n        &#039;Find\u3067\u691c\u7d22\u3059\u308b\u3068\u671f\u9593\u7bc4\u56f2\u5916\u306e\u4f59\u8a08\u306a\u3082\u306e\u307e\u3067\u30d2\u30c3\u30c8\u3057\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u518d\u5ea6\u30d5\u30a3\u30eb\u30bf\u30ea\u30f3\u30b0\u3057\u307e\u3059\u3002\n        If olItem.Start &gt;= strStart And olItem.End &lt;= strEnd Then\n            With olItem\n                wsSheet1.Cells(lnContactCount, 1).Value = .Subject\n                wsSheet1.Cells(lnContactCount, 2).Value = .Location\n                wsSheet1.Cells(lnContactCount, 3).Value = .Start\n                wsSheet1.Cells(lnContactCount, 4).Value = .End\n                wsSheet1.Cells(lnContactCount, 5).Value = .Body\n                wsSheet1.Cells(lnContactCount, 6).Value = .Organizer\n                wsSheet1.Cells(lnContactCount, 7).Value = .RequiredAttendees\n                wsSheet1.Cells(lnContactCount, 8).Value = .OptionalAttendees\n                wsSheet1.Cells(lnContactCount, 9).Value = .EntryID\n                wsSheet1.Cells(lnContactCount, 10).Value = .IsRecurring\n                wsSheet1.Cells(lnContactCount, 11).Value = strAddress\n                wsSheet1.Cells(lnContactCount, 12).Value = .AllDayEvent\n\n            End With\n            lnContactCount = lnContactCount + 1\n        End If\n\n        Set olItem = olConItems.FindNext\n        \n    Wend\n    \n     \n    &#039;Null out the variables.\n    Set olItem = Nothing\n    Set olConItems = Nothing\n    Set olFolder = Nothing\n    Set olNamespace = Nothing\n    Set olApp = Nothing\n    Set wbBook = Nothing\n    Set wsSheet1 = Nothing\n     \n    &#039;Turn screen updating back on.\n    Application.ScreenUpdating = True\n     \nEnd Sub\n<\/code><\/pre>\n<p>\u5909\u66f4\u3057\u305f\u7b87\u6240\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002<\/p>\n<p>\u5bfe\u8c61\u4e88\u5b9a\u8868\u306e\u62bd\u51fa\u671f\u9593\u306e\u6307\u5b9a\u3092\u65e5\u306b\u3061\u306e\u307f\u304b\u3089\u65e5\u6642\u3078\u5909\u66f4\u3059\u308b\u305f\u3081\u3001&#8221;yyyy\/mm\/dd <strong>hh:nn<\/strong>&#8220;\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u3068\u3057\u307e\u3057\u305f\u3002<\/p>\n<p>\u3067\u3059\u306e\u3067\u3001\u671f\u9593\u6307\u5b9a\u306e\u969b\u306f&#8221;2021\/1\/1 00:00&#8243;\u306e\u3088\u3046\u306b\u6642\u9593\u3092\u542b\u3080\u3088\u3046\u306b\u304a\u9858\u3044\u3057\u307e\u3059\u3002<\/p>\n<p>strStart = Format(&#8220;2021\/1\/1 00:00&#8221;, &#8220;yyyy\/mm\/dd <strong>hh:nn<\/strong>&#8220;) &#8216;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u958b\u59cb\u65e5+\u6642\u523b\u3092\u6307\u5b9a<br \/>\nstrEnd = Format(&#8220;2021\/1\/25 10:30&#8221;, &#8220;yyyy\/mm\/dd <strong>hh:nn<\/strong>&#8220;) &#8216;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u7d42\u4e86\u65e5+\u6642\u523b\u3092\u6307\u5b9a<\/p>\n<p>\u307e\u305f\u3001\u7d42\u65e5\u30a4\u30d9\u30f3\u30c8\u306f0\u6642\u59cb\u307e\u308a\u3067\u3059\u306e\u3067\u3001\u62bd\u51fa\u958b\u59cb\u65e5\u306b\u7d42\u65e5\u306e\u30a4\u30d9\u30f3\u30c8\u304c\u3042\u308b\u5834\u5408\u306f\u300cstrStart\u300d\u30920\u6642\u304b\u3089\u6307\u5b9a\u3059\u308b\u3088\u3046\u304a\u9858\u3044\u3057\u307e\u3059\u3002<\/p>\n<p>\u30b5\u30f3\u30d7\u30eb\u306f\u3001Outlook\u306e\u4e88\u5b9a\u8868\u30782021\/1\/1\u306b\u7d42\u65e5\u306e\u30a4\u30d9\u30f3\u30c8\u3092\u3044\u308c\u3066\u304a\u308a\u3001<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-3123\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2021\/02\/020421_1636_1.png\" alt=\"\" width=\"162\" height=\"195\" \/><\/p>\n<p>\u524d\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u3059\u3068\u7d42\u65e5\u306e\u30a4\u30d9\u30f3\u30c8\u306f\u629c\u3051\u843d\u3061\u307e\u3059\u304c\u3001<\/p>\n<p>\u3053\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u7d42\u65e5\u30a4\u30d9\u30f3\u30c8\u304c\u542b\u307e\u308c\u3066\u3044\u308b\u3053\u3068\u304c\u78ba\u8a8d\u3067\u304d\u307e\u3057\u305f\u3002<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-3125\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2021\/02\/020421_1658_1.png\" alt=\"\" width=\"446\" height=\"104\" \/><\/p>\n<p>\u306a\u304a\u3001\u7d42\u65e5\u306e\u30a4\u30d9\u30f3\u30c8\u3067\u3042\u308b\u304b\u3069\u3046\u304b\u3092\u5224\u65ad\u3059\u308b\u305f\u3081\u306b\u3001<\/p>\n<p>AllDayEvent\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u53d6\u5f97\u3059\u308b\u3088\u3046\u306b\u8ffd\u52a0\u3092\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p><strong>wsSheet1.Cells(lnContactCount, 12).Value = .AllDayEvent<\/strong><\/p>\n<p>AllDayEvent\u30d7\u30ed\u30d1\u30c6\u30a3\u304c\u300c<strong>True<\/strong>\u300d\u306e\u5834\u5408\u3001\u7d42\u65e5\u30a4\u30d9\u30f3\u30c8\u3067\u3042\u308b\u3068\u3044\u3046\u5224\u5b9a\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u53d6\u5f97\u3057\u305f\u5024\u3092\u78ba\u8a8d\u3057\u3066\u307f\u308b\u3068\u3001<br \/>\n<img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-3126\" src=\"https:\/\/extan.jp\/wp-content\/uploads\/2021\/02\/020421_1658_2.png\" alt=\"\" width=\"490\" height=\"158\" \/><\/p>\n<p>\u300c<strong>True<\/strong>\u300d\u306b\u306a\u3063\u3066\u3044\u308b\u3053\u3068\u304c\u78ba\u8a8d\u3067\u304d\u307e\u3057\u305f\u306d\uff01<\/p>\n<p><script><\/p>\n<p><\/script><\/p>\n<h2><span class=\"ez-toc-section\" id=\"%EF%BC%9C%E8%BF%BD%E5%8A%A0%EF%BC%9E%E8%A4%87%E6%95%B0%E3%81%AE%E4%BB%96%E4%BA%BA%E3%81%AEOutlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%82%92%E5%8F%96%E3%82%8A%E8%BE%BC%E3%82%80%E9%9A%9B%E3%81%AB%E3%80%81%E7%89%B9%E5%AE%9A%E3%81%AE%E6%96%87%E5%AD%97%E3%82%92%E5%90%AB%E3%82%80%E4%BB%B6%E5%90%8D%E3%81%AE%E3%81%BF%E3%81%AB%E7%B5%9E%E3%82%8A%E8%BE%BC%E3%82%80%E6%96%B9%E6%B3%95\"><\/span>\uff1c\u8ffd\u52a0\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092\u53d6\u308a\u8fbc\u3080\u969b\u306b\u3001\u7279\u5b9a\u306e\u6587\u5b57\u3092\u542b\u3080\u4ef6\u540d\u306e\u307f\u306b\u7d5e\u308a\u8fbc\u3080\u65b9\u6cd5<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u8aad\u8005\u306e\u65b9\u3088\u308aOutlook\u4e88\u5b9a\u8868\u3092\u53d6\u308a\u8fbc\u3080\u969b\u306b\u7279\u5b9a\u306e\u6587\u5b57\u3092\u542b\u3080\u4ef6\u540d\u306b\u7d5e\u308a\u8fbc\u3080\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8cea\u554f\u304c\u3042\u308a\u307e\u3057\u305f\u306e\u3067\u3001<\/p>\n<p>\u5bfe\u5fdc\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8ffd\u8a18\u3044\u305f\u3057\u307e\u3059\u3002<\/p>\n<p>\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u306e\u4ee5\u4e0b\u7b87\u6240\u3092\u5909\u66f4\u3057\u307e\u3059\u3002<\/p>\n<p><strong>\u5909\u66f4\u524d<\/strong><\/p>\n<div class=\"info\">If olItem.Start &gt;= strStart And olItem.End &lt;= strEnd Then<\/div>\n<p><strong>\u5909\u66f4\u5f8c<\/strong><\/p>\n<div class=\"info\">If olItem.Start &gt;= strStart And olItem.End &lt; strEnd And olItem.Subject Like &#8220;*\uff1c\u3053\u3053\u306b\u62bd\u51fa\u3057\u305f\u3044\u6587\u5b57\u3092\u5165\u529b\uff1e*&#8221; Then<\/div>\n<p>Like\u6f14\u7b97\u5b50\u3068\u534a\u89d2\u30ef\u30a4\u30eb\u30c9\u30ab\u30fc\u30c9\u300c*\u300d\u3092\u4f7f\u3046\u65b9\u6cd5\u3067\u3059\u3002<\/p>\n<p>\u4f8b\u3048\u3070\u300c\u3010\u91cd\u8981\u3011\u3007\u3007\u3007\u691c\u8a0e\u306e\u3053\u3068\u300d\u306a\u3069\u300c<strong>\u91cd\u8981<\/strong>\u300d\u3092\u542b\u3080\u4ef6\u540d\u306e\u307f\u62bd\u51fa\u3057\u305f\u3044\u5834\u5408\u306f\u3001<\/p>\n<div class=\"info\">If olItem.Start &gt;= strStart And olItem.End &lt; strEnd And olItem.Subject Like &#8220;*<strong>\u91cd\u8981<\/strong>*&#8221; Then<\/div>\n<p>\u306e\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n<p><!--\u5439\u304d\u51fa\u3057\u306f\u3058\u307e\u308a--><\/p>\n<div class=\"balloon5\">\n<div class=\"faceicon\">\n<img loading=\"lazy\" decoding=\"async\" src=\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\" alt=\"\u30bf\u30ab\u30d2\u30ed\" width=\"110\" height=\"110\" \/>\n<div class=\"faceiconfont\">\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n<div class=\"chatting\">\n<div class=\"says\">\u30ef\u30a4\u30eb\u30c9\u30ab\u30fc\u30c9\u306f\u5168\u89d2\u3067\u306f\u52b9\u304b\u306a\u3044\u306e\u3067\u3001\u304b\u306a\u3089\u305a\u534a\u89d2\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/div>\n<\/div>\n<\/div>\n<p><!--\u5439\u304d\u51fa\u3057\u7d42\u308f\u308a--><\/p>\n<h2><span class=\"ez-toc-section\" id=\"%EF%BC%9C%E8%BF%BD%E5%8A%A0%EF%BC%9E%E8%A4%87%E6%95%B0%E3%81%AE%E4%BB%96%E4%BA%BA%E3%81%AEOutlook%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%82%92%E5%A4%A7%E9%87%8F%E3%81%AB%E5%8F%96%E3%82%8A%E8%BE%BC%E3%82%80%E9%9A%9B%E3%81%AB%E3%80%81%E9%AB%98%E9%80%9F%E3%81%AB%E5%87%A6%E7%90%86%E3%81%99%E3%82%8B%E6%96%B9%E6%B3%95\"><\/span>\uff1c\u8ffd\u52a0\uff1e\u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092\u5927\u91cf\u306b\u53d6\u308a\u8fbc\u3080\u969b\u306b\u3001\u9ad8\u901f\u306b\u51e6\u7406\u3059\u308b\u65b9\u6cd5<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>Outlook\u4e88\u5b9a\u8868\u3092\u5927\u91cf\u306b\u53d6\u308a\u8fbc\u3080\u969b\u306bFind\u30e1\u30bd\u30c3\u30c9\u3067\u5931\u6557\u3059\u308b\u4f8b\u304c\u3042\u308a\u307e\u3059\u306e\u3067\u3001\u305d\u306e\u5bfe\u51e6\u6cd5\u306b\u3064\u3044\u3066\u8aac\u660e\u3092\u3057\u307e\u3059\u3002<\/p>\n<p>MS\u306e\u30ea\u30d5\u30a1\u30ec\u30f3\u30b9\u3067\u306f\u3001Find\u30e1\u30bd\u30c3\u30c9\u306f\u30a2\u30a4\u30c6\u30e0\u6570\u304c\u5c11\u306a\u3044\u5834\u5408\u51e6\u7406\u306f\u65e9\u3044\u304c\u3001<br \/>\n\u30a2\u30a4\u30c6\u30e0\u6570\u304c\u591a\u3044\u5834\u5408\u306fRestrict\u30e1\u30bd\u30c3\u30c9\u306e\u307b\u3046\u304c\u65e9\u304f\u306a\u308b\u3068\u8a18\u8f09\u304c\u3042\u308a\u307e\u3059\u3002<br \/>\nhttps:\/\/docs.microsoft.com\/ja-jp\/office\/vba\/api\/outlook.items.restrict<\/p>\n<p>\u3067\u3059\u306e\u3067\u3001Find\u30e1\u30bd\u30c3\u30c9\u3067\u51e6\u7406\u843d\u3061\u3059\u308b\u4e8b\u8c61\u3092\u89e3\u6c7a\u3059\u308b\u65b9\u6cd5\u306fRestrict\u30e1\u30bd\u30c3\u30c9\u306b\u7f6e\u304d\u63db\u3048\u308b\u3053\u3068\u3067\u89e3\u6d88\u3055\u308c\u308b\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u4ee5\u4e0b\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n<pre style=\"padding: 0;\"><code class=\"language-visual-basic line-numbers\">Sub \u8907\u6570\u306e\u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080_\u6642\u9593\u6307\u5b9a\u8ffd\u52a0\u7248_\u5927\u91cf\u30a2\u30a4\u30c6\u30e0\u51e6\u7406\u9ad8\u901f\u7248()\n  \n    Dim strAddress As String\n    Dim strStart As String\n    Dim strEnd As String\n    Dim n As Integer\n  \n    &#039;Excel\u306e\u30d6\u30c3\u30af\u3068\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n    Set wbBook = ThisWorkbook\n    Set wsSheet1 = wbBook.Worksheets(1)\n    Set wsSheet2 = wbBook.Worksheets(2)\n     \n  \n    &#039;\u5bfe\u8c61\u4e88\u5b9a\u8868\u306e\u62bd\u51fa\u671f\u9593\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u203b\u5909\u66f4\u3059\u308b\u5834\u5408\u306f\u4ee5\u4e0b\u306e\u65e5\u4ed8\u3092\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002\n    strStart = Format(&quot;2021\/1\/1 00:00&quot;, &quot;yyyy\/mm\/dd hh:nn&quot;) &#039;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u958b\u59cb\u65e5+\u6642\u523b\u3092\u6307\u5b9a\n    strEnd = Format(&quot;2022\/6\/25 10:30&quot;, &quot;yyyy\/mm\/dd hh:nn&quot;)   &#039;\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u306e\u7d42\u4e86\u65e5+\u6642\u523b\u3092\u6307\u5b9a\n    \n  \n    &#039;1\u756a\u76ee\u306e\u30b7\u30fc\u30c8\u306e1\u884c\u76ee\u306b\u30bf\u30a4\u30c8\u30eb\u3092\u8a18\u8ff0\u3057\u307e\u3059\u3002\n    With wsSheet1\n        .Range(&quot;A1&quot;).CurrentRegion.Clear\n        .Cells(1, 1).Value = &quot;\u4ef6\u540d&quot;\n        .Cells(1, 2).Value = &quot;\u5834\u6240&quot;\n        .Cells(1, 3).Value = &quot;\u958b\u59cb\u65e5\u6642&quot;\n        .Cells(1, 4).Value = &quot;\u7d42\u4e86\u65e5\u6642&quot;\n        .Cells(1, 5).Value = &quot;\u4e88\u5b9a\u306e\u672c\u6587&quot;\n        .Cells(1, 6).Value = &quot;\u4e88\u7d04\u8005&quot;\n        .Cells(1, 7).Value = &quot;\u5fc5\u9808\u51fa\u5e2d\u8005&quot;\n        .Cells(1, 8).Value = &quot;\u4efb\u610f\u51fa\u5e2d\u8005&quot;\n        .Cells(1, 9).Value = &quot;EntryID&quot; &#039;\u4e88\u5b9a\u306eID\u203b\u7de8\u96c6\u6642\u306b\u30ad\u30fc\u3068\u3057\u3066\u4f7f\u7528\u3057\u307e\u3059\u3002\n        .Cells(1, 10).Value = &quot;\u5b9a\u671f\u7684\u306a\u4e88\u5b9a&quot; &#039;\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u3067\u3042\u308b\u304b\u306e\u30d5\u30e9\u30b0\u3002\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u306fTrue\u3002\n        .Cells(1, 11).Value = &quot;\u5bfe\u8c61\u8005\uff08\u30e1\u30a2\u30c9\uff09&quot;\n        .Cells(1, 12).Value = &quot;\u7d42\u65e5\u30a4\u30d9\u30f3\u30c8&quot;\n         \n        With .Range(&quot;A1:Z1&quot;)\n            .Font.Bold = True\n            .Font.ColorIndex = 10\n            .Font.Size = 11\n        End With\n    End With\n    \n     \n    &#039;\u5bfe\u8c61\u30e6\u30fc\u30b6\u304c\u8a18\u8f09\u3055\u308c\u3066\u3044\u308b\u30e1\u30a2\u30c9\u5206\u4e88\u5b9a\u8868\u53d6\u308a\u8fbc\u307f\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002\n    For n = 2 To wsSheet2.Cells(1048576, 1).End(xlUp).Row\n    \n        With wsSheet2\n           Call \u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u4e88\u5b9a\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080(.Cells(n, 1).Value, strStart, strEnd)\n        End With\n     \n    Next\n     \n    MsgBox &quot;Outlook\u4e88\u5b9a\u8868\u306e\u53d6\u308a\u8fbc\u307f\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01&quot;, vbInformation\n     \n    &#039;Null out the variables.\n    Set wbBook = Nothing\n    Set wsSheet1 = Nothing\n    Set wsSheet2 = Nothing\n     \nEnd Sub\n  \n  \n  \nSub \u4ed6\u4eba\u306eOutlook\u4e88\u5b9a\u8868\u4e88\u5b9a\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080(strAddress As String, strStart As String, strEnd As String)\n  \n    &#039;Outlook\u7528\u306e\u5b9a\u7fa9\n    Dim olApp As Outlook.Application\n    Dim olNamespace As Outlook.Namespace\n    Dim olFolder As Folder\n    Dim olConItems As Outlook.Items\n    Dim olItem  As AppointmentItem\n  \n    &#039;Excel\u7528\u306e\u5b9a\u7fa9\n    Dim wbBook As Workbook\n    Dim wsSheet As Worksheet\n    Dim lnContactCount As Long\n     \n    &#039;\u4ed6\u4eba\u4e88\u5b9a\u8868\u306e\u5b9a\u7fa9\n    Dim recOther As Recipient\n    Dim objAppt As AppointmentItem\n  \n     \n    &#039;\u51e6\u7406\u901f\u5ea6\u512a\u5148\u306e\u305f\u3081\u30b9\u30af\u30ea\u30fc\u30f3\u306e\u66f4\u65b0\u306f\u884c\u308f\u308c\u307e\u305b\u3093\u3002\n    Application.ScreenUpdating = False\n     \n  \n     \n    &#039;Outlook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8a2d\u5b9a\u3057\u3001MAPI\u540d\u524d\u7a7a\u9593\u3092\u4ecb\u3057\u3066Outlook\u306e\u4e88\u5b9a\u8868\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set olApp = New Outlook.Application\n    Set olNamespace = olApp.GetNamespace(&quot;MAPI&quot;)\n    &#039;\u4ed6\u4eba\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u6307\u5b9a\u3057\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set recOther = olNamespace.CreateRecipient(strAddress)\n\n    &#039;\u53d6\u5f97\u3057\u305f\u4ed6\u4eba\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u5185\u3001\u4e88\u5b9a\u8868\u306e\u307f\u7d5e\u308a\u8fbc\u307f\u518d\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set olFolder = olNamespace.GetSharedDefaultFolder(recOther, olFolderCalendar)\n\n    Set olConItems = olFolder.Items\n  \n  \n    &#039;\u30d6\u30c3\u30af\u304a\u3088\u3073\u30011\u756a\u76ee\u306e\u30b7\u30fc\u30c8\u60c5\u5831\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n    Set wbBook = ThisWorkbook\n    Set wsSheet1 = wbBook.Worksheets(1)\n     \n    &#039;\u53d6\u5f97\u7d50\u679c\u3092\u8a18\u8ff0\u3059\u308b\u884c\u756a\u53f7\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\n    lnContactCount = wsSheet1.Cells(1048576, 1).End(xlUp).Row + 1\n     \n  \n    &#039;\u958b\u59cb\u65e5\u3067\u30bd\u30fc\u30c8\u3057\u307e\u3059\u3002\n    olConItems.Sort &quot;[Start]&quot;\n    \n    &#039;True\u3067\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u3092\u542b\u3080\u3088\u3046\u306b\u3057\u307e\u3059\u3002\u203bFalse\u3067\u3042\u308b\u3068\u5b9a\u671f\u7684\u306a\u4e88\u5b9a\u306f\u542b\u307e\u308c\u307e\u305b\u3093\u3002\n    olConItems.IncludeRecurrences = True\n     \n     \n    &#039;Restrict\u30bd\u30c3\u30c9\u3067\u671f\u9593\u6307\u5b9a\u3057\u3066\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u7d5e\u308a\u8fbc\u307f\u307e\u3059\u3002\n    Set olConItems = olConItems.Restrict(&quot;[End] &lt;= &quot;&quot;&quot; &amp; strEnd &amp; &quot;&quot;&quot; AND [Start] &gt;= &quot;&quot;&quot; &amp; strStart &amp; &quot;&quot;&quot;&quot;)\n     \n     \n    For Each olItem In olConItems\n    \n        &#039;Find\u3067\u691c\u7d22\u3059\u308b\u3068\u671f\u9593\u7bc4\u56f2\u5916\u306e\u4f59\u8a08\u306a\u3082\u306e\u307e\u3067\u30d2\u30c3\u30c8\u3057\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u518d\u5ea6\u30d5\u30a3\u30eb\u30bf\u30ea\u30f3\u30b0\u3057\u307e\u3059\u3002\n        If TypeName(olItem) = &quot;AppointmentItem&quot; Then\n            With olItem\n                wsSheet1.Cells(lnContactCount, 1).Value = .Subject\n                wsSheet1.Cells(lnContactCount, 2).Value = .Location\n                wsSheet1.Cells(lnContactCount, 3).Value = .Start\n                wsSheet1.Cells(lnContactCount, 4).Value = .End\n                wsSheet1.Cells(lnContactCount, 5).Value = .Body\n                wsSheet1.Cells(lnContactCount, 6).Value = .Organizer\n                wsSheet1.Cells(lnContactCount, 7).Value = .RequiredAttendees\n                wsSheet1.Cells(lnContactCount, 8).Value = .OptionalAttendees\n                wsSheet1.Cells(lnContactCount, 9).Value = .EntryID\n                wsSheet1.Cells(lnContactCount, 10).Value = .IsRecurring\n                wsSheet1.Cells(lnContactCount, 11).Value = strAddress\n                wsSheet1.Cells(lnContactCount, 12).Value = .AllDayEvent\n\n            End With\n            lnContactCount = lnContactCount + 1\n        End If\n\n        Set olItem = olConItems.FindNext\n        \n    Next\n    \n     \n    &#039;Null out the variables.\n    Set olItem = Nothing\n    Set olConItems = Nothing\n    Set olFolder = Nothing\n    Set olNamespace = Nothing\n    Set olApp = Nothing\n    Set wbBook = Nothing\n    Set wsSheet1 = Nothing\n     \n    &#039;Turn screen updating back on.\n    Application.ScreenUpdating = True\n     \nEnd Sub<\/code><\/pre>\n<p>\u5909\u66f4\u7b87\u6240\u306f\u4ee5\u4e0b\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<div class=\"info\"><code>&#039;Restrict\u30bd\u30c3\u30c9\u3067\u671f\u9593\u6307\u5b9a\u3057\u3066\u62bd\u51fa\u3059\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3092\u7d5e\u308a\u8fbc\u307f\u307e\u3059\u3002<br \/>\n    Set olConItems = olConItems.Restrict(&quot;[End] &lt;= &quot;&quot;&quot; &amp; strEnd &amp; &quot;&quot;&quot; AND [Start] &gt;= &quot;&quot;&quot; &amp; strStart &amp; &quot;&quot;&quot;&quot;)<br \/>\nFor Each olItem In olConItems<br \/>\n\u30fb\u30fb\u30fb<br \/>\nNext<br \/>\n<\/code><\/div>\n<p>Find\u30e1\u30bd\u30c3\u30c9\u3068While\u51e6\u7406\u306e\u3068\u3053\u308d\u3092\u3092Restrict\u30bd\u30c3\u30c9\u3068For Each\u51e6\u7406\u3078\u7f6e\u304d\u63db\u3048\u3066\u3044\u307e\u3059\u3002<\/p>\n<h2><span class=\"ez-toc-section\" id=\"%E3%81%95%E3%81%84%E3%81%94%E3%81%AB\"><\/span>\u3055\u3044\u3054\u306b<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u3044\u304b\u304c\u3067\u3057\u3087\u3046\u304b\u3002<\/p>\n<p>\u4eca\u56de\u306f<\/p>\n<div class=\"endinfo\">\u30fbVBA\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5<br \/>\n\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u671f\u9593\u6307\u5b9a\u3084\u62bd\u51fa\u6587\u5b57\u6761\u4ef6\u3092\u8a2d\u5b9a\u3092\u3059\u308b\u65b9\u6cd5<\/div>\n<p>\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3057\u305f\u3002<\/p>\n<p>\u307e\u3060\u307e\u3060\u4fbf\u5229\u306a\u65b9\u6cd5\u304c\u308a\u307e\u3059\u306e\u3067\u3001\u3088\u308d\u3057\u3051\u308c\u3070\u3054\u53c2\u7167\u9802\u3051\u308c\u3070\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u306e\u4e88\u5b9a\u8868\u306b\u767b\u9332\u3055\u308c\u3066\u3044\u308b\u4e88\u5b9a\u3092Excel\u30b7\u30fc\u30c8\u3078\u53d6\u308a\u8fbc\u3093\u3067\u4e00\u89a7\u8868\u306b\u3057\u305f\u3044\u3053\u3068\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b\u3002 \u305d\u3093\u306a\u4e2d\u3067\u60a9\u3080\u3053\u3068\u306f\u3001 \u30fb\u30ab\u30f3\u30bf\u30f3\u306b\u8907\u6570\u306e\u30e1\u30f3\u30d0\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u89a7\u5316\u3059\u308b\u65b9\u6cd5\u306f\u3069\u308c\uff1f \u30fb&#8230;<\/p>\n","protected":false},"author":1,"featured_media":2813,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6,7],"tags":[16],"class_list":{"0":"post-2802","1":"post","2":"type-post","3":"status-publish","4":"format-standard","5":"has-post-thumbnail","7":"category-excelvba","8":"category-exceloutlook","9":"tag-16","10":"article cf"},"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v18.1 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<meta name=\"description\" content=\"\u30fbVBA\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u671f\u9593\u6307\u5b9a\u3084\u62bd\u51fa\u6587\u5b57\u6761\u4ef6\u3092\u8a2d\u5b9a\u3092\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/extan.jp\/?p=2802\" \/>\n<meta property=\"og:locale\" content=\"ja_JP\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u3010VBA\u3011\u4e00\u77ac\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\uff01 - \u30a8\u30af\u77ed\uff5cExtan.jp\" \/>\n<meta property=\"og:description\" content=\"\u30fbVBA\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u671f\u9593\u6307\u5b9a\u3084\u62bd\u51fa\u6587\u5b57\u6761\u4ef6\u3092\u8a2d\u5b9a\u3092\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002\" \/>\n<meta property=\"og:url\" content=\"https:\/\/extan.jp\/?p=2802\" \/>\n<meta property=\"og:site_name\" content=\"\u30a8\u30af\u77ed\uff5cExtan.jp\" \/>\n<meta property=\"article:published_time\" content=\"2022-06-14T14:23:42+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2022-06-14T15:26:38+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/extan.jp\/wp-content\/uploads\/2020\/11\/110620_1410_1.png\" \/>\n\t<meta property=\"og:image:width\" content=\"819\" \/>\n\t<meta property=\"og:image:height\" content=\"396\" \/>\n\t<meta property=\"og:image:type\" content=\"image\/png\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"\u57f7\u7b46\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"\u30bf\u30ab\u30d2\u30ed@extan\" \/>\n\t<meta name=\"twitter:label2\" content=\"\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593\" \/>\n\t<meta name=\"twitter:data2\" content=\"7\u5206\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebSite\",\"@id\":\"https:\/\/extan.jp\/#website\",\"url\":\"https:\/\/extan.jp\/\",\"name\":\"\u30a8\u30af\u77ed\uff5cExtan.jp\",\"description\":\"\u50cd\u304f\u4eba\u306e\u81ea\u7531\u6642\u9593\u3092\u3064\u304f\u308b\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/extan.jp\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"ja\"},{\"@type\":\"ImageObject\",\"@id\":\"https:\/\/extan.jp\/?p=2802#primaryimage\",\"inLanguage\":\"ja\",\"url\":\"https:\/\/extan.jp\/wp-content\/uploads\/2020\/11\/110620_1410_1.png\",\"contentUrl\":\"https:\/\/extan.jp\/wp-content\/uploads\/2020\/11\/110620_1410_1.png\",\"width\":819,\"height\":396},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/extan.jp\/?p=2802#webpage\",\"url\":\"https:\/\/extan.jp\/?p=2802\",\"name\":\"\u3010VBA\u3011\u4e00\u77ac\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\uff01 - \u30a8\u30af\u77ed\uff5cExtan.jp\",\"isPartOf\":{\"@id\":\"https:\/\/extan.jp\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/extan.jp\/?p=2802#primaryimage\"},\"datePublished\":\"2022-06-14T14:23:42+00:00\",\"dateModified\":\"2022-06-14T15:26:38+00:00\",\"author\":{\"@id\":\"https:\/\/extan.jp\/#\/schema\/person\/ccb8849fcf749d5f74439b1af7d4df1a\"},\"description\":\"\u30fbVBA\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u671f\u9593\u6307\u5b9a\u3084\u62bd\u51fa\u6587\u5b57\u6761\u4ef6\u3092\u8a2d\u5b9a\u3092\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002\",\"breadcrumb\":{\"@id\":\"https:\/\/extan.jp\/?p=2802#breadcrumb\"},\"inLanguage\":\"ja\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/extan.jp\/?p=2802\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/extan.jp\/?p=2802#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u30db\u30fc\u30e0\",\"item\":\"https:\/\/extan.jp\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"\u3010VBA\u3011\u4e00\u77ac\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\uff01\"}]},{\"@type\":\"Person\",\"@id\":\"https:\/\/extan.jp\/#\/schema\/person\/ccb8849fcf749d5f74439b1af7d4df1a\",\"name\":\"\u30bf\u30ab\u30d2\u30ed@extan\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"https:\/\/extan.jp\/#personlogo\",\"inLanguage\":\"ja\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/24a74fef504a714c468411d23f2d1fd451892ffebbba0d84f70d4ce0d489aefb?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/24a74fef504a714c468411d23f2d1fd451892ffebbba0d84f70d4ce0d489aefb?s=96&d=mm&r=g\",\"caption\":\"\u30bf\u30ab\u30d2\u30ed@extan\"},\"url\":\"https:\/\/extan.jp\/?author=1\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"description":"\u30fbVBA\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u671f\u9593\u6307\u5b9a\u3084\u62bd\u51fa\u6587\u5b57\u6761\u4ef6\u3092\u8a2d\u5b9a\u3092\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/extan.jp\/?p=2802","og_locale":"ja_JP","og_type":"article","og_title":"\u3010VBA\u3011\u4e00\u77ac\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\uff01 - \u30a8\u30af\u77ed\uff5cExtan.jp","og_description":"\u30fbVBA\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u671f\u9593\u6307\u5b9a\u3084\u62bd\u51fa\u6587\u5b57\u6761\u4ef6\u3092\u8a2d\u5b9a\u3092\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002","og_url":"https:\/\/extan.jp\/?p=2802","og_site_name":"\u30a8\u30af\u77ed\uff5cExtan.jp","article_published_time":"2022-06-14T14:23:42+00:00","article_modified_time":"2022-06-14T15:26:38+00:00","og_image":[{"width":819,"height":396,"url":"https:\/\/extan.jp\/wp-content\/uploads\/2020\/11\/110620_1410_1.png","type":"image\/png"}],"twitter_card":"summary_large_image","twitter_misc":{"\u57f7\u7b46\u8005":"\u30bf\u30ab\u30d2\u30ed@extan","\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593":"7\u5206"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebSite","@id":"https:\/\/extan.jp\/#website","url":"https:\/\/extan.jp\/","name":"\u30a8\u30af\u77ed\uff5cExtan.jp","description":"\u50cd\u304f\u4eba\u306e\u81ea\u7531\u6642\u9593\u3092\u3064\u304f\u308b","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/extan.jp\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"ja"},{"@type":"ImageObject","@id":"https:\/\/extan.jp\/?p=2802#primaryimage","inLanguage":"ja","url":"https:\/\/extan.jp\/wp-content\/uploads\/2020\/11\/110620_1410_1.png","contentUrl":"https:\/\/extan.jp\/wp-content\/uploads\/2020\/11\/110620_1410_1.png","width":819,"height":396},{"@type":"WebPage","@id":"https:\/\/extan.jp\/?p=2802#webpage","url":"https:\/\/extan.jp\/?p=2802","name":"\u3010VBA\u3011\u4e00\u77ac\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\uff01 - \u30a8\u30af\u77ed\uff5cExtan.jp","isPartOf":{"@id":"https:\/\/extan.jp\/#website"},"primaryImageOfPage":{"@id":"https:\/\/extan.jp\/?p=2802#primaryimage"},"datePublished":"2022-06-14T14:23:42+00:00","dateModified":"2022-06-14T15:26:38+00:00","author":{"@id":"https:\/\/extan.jp\/#\/schema\/person\/ccb8849fcf749d5f74439b1af7d4df1a"},"description":"\u30fbVBA\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092\u4e00\u77ac\u3067Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u671f\u9593\u6307\u5b9a\u3084\u62bd\u51fa\u6587\u5b57\u6761\u4ef6\u3092\u8a2d\u5b9a\u3092\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u307e\u3068\u3081\u307e\u3059\u3002","breadcrumb":{"@id":"https:\/\/extan.jp\/?p=2802#breadcrumb"},"inLanguage":"ja","potentialAction":[{"@type":"ReadAction","target":["https:\/\/extan.jp\/?p=2802"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/extan.jp\/?p=2802#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u30db\u30fc\u30e0","item":"https:\/\/extan.jp\/"},{"@type":"ListItem","position":2,"name":"\u3010VBA\u3011\u4e00\u77ac\u3067\u8907\u6570\u30e6\u30fc\u30b6\u306eOutlook\u4e88\u5b9a\u8868\u3092Excel\u3078\u53d6\u308a\u8fbc\u3080\u65b9\u6cd5\uff01"}]},{"@type":"Person","@id":"https:\/\/extan.jp\/#\/schema\/person\/ccb8849fcf749d5f74439b1af7d4df1a","name":"\u30bf\u30ab\u30d2\u30ed@extan","image":{"@type":"ImageObject","@id":"https:\/\/extan.jp\/#personlogo","inLanguage":"ja","url":"https:\/\/secure.gravatar.com\/avatar\/24a74fef504a714c468411d23f2d1fd451892ffebbba0d84f70d4ce0d489aefb?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/24a74fef504a714c468411d23f2d1fd451892ffebbba0d84f70d4ce0d489aefb?s=96&d=mm&r=g","caption":"\u30bf\u30ab\u30d2\u30ed@extan"},"url":"https:\/\/extan.jp\/?author=1"}]}},"_links":{"self":[{"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/posts\/2802","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2802"}],"version-history":[{"count":30,"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/posts\/2802\/revisions"}],"predecessor-version":[{"id":8457,"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/posts\/2802\/revisions\/8457"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=\/wp\/v2\/media\/2813"}],"wp:attachment":[{"href":"https:\/\/extan.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2802"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2802"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/extan.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2802"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}