{"id":938,"date":"2020-01-03T13:13:22","date_gmt":"2020-01-03T13:13:22","guid":{"rendered":"https:\/\/2024061822014211719572.onamaeweb.jp\/rs2042980\/?p=938"},"modified":"2025-01-25T17:08:08","modified_gmt":"2025-01-25T08:08:08","slug":"access-%e3%83%95%e3%82%a9%e3%83%ab%e3%83%80%e5%86%85%e3%81%aecsv%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92%e3%83%86%e3%83%bc%e3%83%96%e3%83%ab%e3%81%ab%e3%82%a4%e3%83%b3%e3%83%9d%e3%83%bc","status":"publish","type":"post","link":"https:\/\/www.lucky-pegasus.com\/?p=938","title":{"rendered":"\u3010AccessVBA\u3011\u8907\u6570csv\u30d5\u30a1\u30a4\u30eb\u306e\u30a4\u30f3\u30dd\u30fc\u30c8\uff08\u30b5\u30f3\u30d7\u30eb\u3042\u308a\uff09"},"content":{"rendered":"\n<p>\u3010\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u74b0\u5883\u3011<br>Windows10\uff0864bit\uff09<br>Office365<\/p>\n\n\n\n<p><strong>AccessVBA<\/strong>\u3067\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306b\u3042\u308b<span class=\"swl-marker mark_orange\">CSV\u30d5\u30a1\u30a4\u30eb<\/span>\u3092\u30c6\u30fc\u30d6\u30eb\u306b\u30a4\u30f3\u30dd\u30fc\u30c8\u3059\u308b\u65b9\u6cd5\u3067\u3059\u3002\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306f\u3054\u81ea\u8eab\u306e\u8cac\u4efb\u3067\u3054\u5229\u7528\u304f\u3060\u3055\u3044\u3002\u306a\u304a\u3001\u53d6\u308a\u8fbc\u3080CSV\u30d5\u30a1\u30a4\u30eb\u306f\u8907\u6570\uff08\u6570\u767e\u3067\u3082\u6570\u5343\u3067\u3082\u3002\u3002\uff09\u3067\u3082OK\u3067\u3059\u3002\u6570\u304c\u591a\u3044\u307b\u3069\u4f5c\u696d\u30b3\u30b9\u30c8\u524a\u6e1b\u52b9\u679c\u306f\u5927\u304d\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u30a4\u30f3\u30dd\u30fc\u30c8\u307e\u3067\u306e\u6d41\u308c<\/h2>\n\n\n\n<p>1.\u3000\uff088\u884c\u76ee\uff09CSV\u304c\u4fdd\u5b58\u3055\u308c\u3066\u3044\u308b\u5bfe\u8c61\u30d5\u30a9\u30eb\u30c0\u3092\u6307\u5b9a\uff08\u4f8b\u3067\u306f&#8221;C:\\test\\&#8221;)<br>\u6ce8\u610f\uff1a\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9\u306e\u6700\u5f8c\u306b\\\u306f\u5fd8\u308c\u305a\u30bb\u30c3\u30c8\u3059\u308b\u3053\u3068<\/p>\n\n\n\n<p>2.dir\u95a2\u3059\u308b\u3067\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306eCSV\u30d5\u30a1\u30a4\u30eb\u540d\u3092\uff11\u30d5\u30a1\u30a4\u30eb\u3065\u3064\u53d6\u5f97\uff08\u5909\u6570buf\u306b\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u30bb\u30c3\u30c8<\/p>\n\n\n\n<p>3.\u3000\uff0814\u884c\u76ee\uff09CSV\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3057\u305f\u30c6\u30fc\u30d6\u30eb\uff08\u4f8b\u3067\u306fT_\u4f4f\u6240\u9332\uff09\u306b\u30a4\u30f3\u30dd\u30fc\u30c8\u3059\u308b<\/p>\n\n\n\n<p>4.\u3000\uff0816\u884c\u76ee\uff09\u30a4\u30f3\u30dd\u30fc\u30c8\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u524a\u9664\u3059\u308b14~16\u884c\u76ee\u306e\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3059<\/p>\n\n\n\n<p>5.buf\u304cNULL\u306b\u306a\u308b\u307e\u3067\uff08csv\u30d5\u30a1\u30a4\u30eb\u304c\u306a\u304f\u306a\u308b\u307e\u3067\uff09<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub csv_import()\n\n'----\n  'Dir\u95a2\u6570\u3092\u4f7f\u3063\u3066\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306eCSV\u30d5\u30a1\u30a4\u30eb\u3092\u30c6\u30fc\u30d6\u30eb\u306b\u30a4\u30f3\u30dd\u30fc\u30c8\u3059\u308b\n'----\n  \n    If MsgBox(\"\u30d5\u30a1\u30a4\u30eb\u3092\u53d6\u308a\u8fbc\u307f\u3057\u307e\u3059\u304b\uff1f\", vbOKCancel) = vbCancel Then\n      MsgBox \"\u51e6\u7406\u3092\u505c\u6b62\u3057\u307e\u3059\"\n    Else\n      \n      Dim file_path As String\n      Dim buf As String\n      \n      file_path = \"C:\\test\\\"\n      \n      buf = Dir(file_path &amp; \"*.csv\")\n      \n      Do While buf &lt;&gt; \"\"\n        'T_\u4f4f\u6240\u306bCSV\u30d5\u30a1\u30a4\u30eb\u3092\u30a4\u30f3\u30dd\u30fc\u30c8\n        DoCmd.TransferText acImportDelim, , \"T_\u4f4f\u6240\u9332\", file_path &amp; buf, True, \"\"\n        '\u53d6\u308a\u8fbc\u307f\u7d42\u308f\u3063\u305fCSV\u30d5\u30a1\u30a4\u30eb\u3092\u524a\u9664\n        Kill file_path &amp; buf\n        buf = Dir()\n      Loop\n      \n        MsgBox \"\u51e6\u7406\u5b8c\u4e86\"\n        \n    End If\n  \nEnd Sub<\/code><\/pre>\n\n\n\n<div class=\"wp-block-buttons is-layout-flex wp-block-buttons-is-layout-flex\"><\/div>\n\n\n\n<figure class=\"wp-block-image size-large is-style-default\"><img decoding=\"async\" src=\"http:\/\/2024061822014211719572.onamaeweb.jp\/rs2042980\/wp-content\/uploads\/img_access_import_01.png\" alt=\"\" class=\"wp-image-985\"\/><figcaption class=\"wp-element-caption\">\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/figcaption><\/figure>\n\n\n\n<div class=\"wp-block-file\"><a id=\"wp-block-file--media-059ea9a5-381c-4e87-9e39-450edc236aff\" href=\"http:\/\/www.lucky-pegasus.com\/wp-content\/uploads\/2025\/01\/csv_sample.zip\">csv_sample<\/a><a href=\"http:\/\/www.lucky-pegasus.com\/wp-content\/uploads\/2025\/01\/csv_sample.zip\" class=\"wp-block-file__button wp-element-button\" download aria-describedby=\"wp-block-file--media-059ea9a5-381c-4e87-9e39-450edc236aff\">\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/a><\/div>\n\n\n\n<p>\u3010\u4f7f\u3044\u65b9\u3011<\/p>\n\n\n\n<ol class=\"wp-block-list\">\n<li> C:\\test\\\u30d5\u30a9\u30eb\u30c0\u3092\u4f5c\u6210\u3057\u3066\u3001\u30b5\u30f3\u30d7\u30eb\u306ecsv\u30d5\u30a1\u30a4\u30eb\u3092\u4fdd\u5b58\u3059\u308b <\/li>\n\n\n\n<li> \u30e2\u30b8\u30e5\u30fc\u30eb\u5185\u306e\u300cbas_csv_import\u300d\u3092\u5b9f\u884c\u3059\u308b<\/li>\n<\/ol>\n","protected":false},"excerpt":{"rendered":"<p>\u3010\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u74b0\u5883\u3011Windows10\uff0864bit\uff09Office365 AccessVBA\u3067\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306b\u3042\u308bCSV\u30d5\u30a1\u30a4\u30eb\u3092\u30c6\u30fc\u30d6\u30eb\u306b\u30a4\u30f3\u30dd\u30fc\u30c8\u3059\u308b\u65b9\u6cd5\u3067\u3059\u3002\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306f\u3054\u81ea\u8eab\u306e\u8cac\u4efb\u3067\u3054\u5229\u7528\u304f\u3060\u3055\u3044\u3002 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":939,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","footnotes":""},"categories":[11,13],"tags":[],"class_list":["post-938","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-access","category-office"],"_links":{"self":[{"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=\/wp\/v2\/posts\/938","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=938"}],"version-history":[{"count":5,"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=\/wp\/v2\/posts\/938\/revisions"}],"predecessor-version":[{"id":1828,"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=\/wp\/v2\/posts\/938\/revisions\/1828"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=\/"}],"wp:attachment":[{"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=938"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=938"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.lucky-pegasus.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=938"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}