{"id":2256,"date":"2018-03-23T18:21:03","date_gmt":"2018-03-23T09:21:03","guid":{"rendered":"http:\/\/okamurax.com\/?p=2256"},"modified":"2020-01-15T11:25:51","modified_gmt":"2020-01-15T02:25:51","slug":"vba-%e3%83%95%e3%82%a9%e3%83%ab%e3%83%80%e4%bb%a5%e4%b8%8b%e3%81%ae%e3%82%bb%e3%83%ab%e3%81%ae%e5%80%a4%e3%82%92%e3%82%b3%e3%83%94%e3%83%bc","status":"publish","type":"post","link":"https:\/\/appbay.org\/?p=2256","title":{"rendered":"VBA \u30d5\u30a9\u30eb\u30c0\u306e\u4e2d\u306b\u3042\u308b\u5168\u3066\u306eExcel\u3092\u958b\u304f"},"content":{"rendered":"<p>\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306b\u3042\u308b\u5168\u3066\u306e\u30a8\u30af\u30bb\u30eb\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u5024\u3092\u6301\u3063\u3066\u304f\u308b\u3002\u610f\u5916\u306b\u3053\u308c\u306b\u8fd1\u3044\u52d5\u4f5c\u3092\u8981\u671b\u3055\u308c\u308b\u3053\u3068\u306f\u591a\u3044\u3002<\/p>\n<p>\u305f\u3060\u3053\u306e\u65b9\u6cd5\u3001\u30d5\u30a1\u30a4\u30eb\u304c\u4e0a\u624b\u304f\u958b\u3051\u306a\u304b\u3063\u305f\u308a\u3068\u304b\u6c17\u3092\u3064\u3051\u306a\u3051\u308c\u3070\u3044\u3051\u306a\u3044\u3053\u3068\u304c\u591a\u3044\u306e\u3067\u3001\u306a\u308b\u3079\u304f\u63a1\u7528\u3057\u306a\u3044\u3088\u3046\u306b\u3057\u3066\u3044\u308b\u3002<\/p>\n<pre class=\"lang:vb decode:true \">Sub FileList()\r\n\r\nDim fs As Object\r\nSet fs = CreateObject(\"Scripting.FileSystemObject\")\r\n\r\np = \"C:\\test\"\r\n\r\nc = 1\r\nFor Each f In fs.GetFolder(p).Files\r\n  Call MainProc(f.Path, c)\r\n  c = c + 1\r\nNext\r\n\r\nEnd Sub\r\n\r\nFunction MainProc(p, c)\r\n\r\nWorkbooks.Open (p)\r\nSet w = ActiveWorkbook\r\n\r\nThisWorkbook.Sheets(\"Sheet1\").Cells(1, c).Value = w.Sheets(\"Sheet1\").Cells(1, 1).Value\r\n\r\nw.Close\r\n\r\nEnd Function<\/pre>\n<p><iframe loading=\"lazy\" width=\"560\" height=\"315\" src=\"https:\/\/www.youtube.com\/embed\/T-u2vwKLnro\" frameborder=\"0\" allow=\"accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture\" allowfullscreen=\"allowfullscreen\"><\/iframe><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306b\u3042\u308b\u5168\u3066\u306e\u30a8\u30af\u30bb\u30eb\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u5024\u3092\u6301\u3063\u3066\u304f\u308b\u3002\u610f\u5916\u306b\u3053\u308c\u306b\u8fd1\u3044\u52d5\u4f5c\u3092\u8981\u671b\u3055\u308c\u308b\u3053\u3068\u306f\u591a\u3044\u3002 \u305f\u3060\u3053\u306e\u65b9\u6cd5\u3001\u30d5\u30a1\u30a4\u30eb\u304c\u4e0a\u624b\u304f\u958b\u3051\u306a\u304b\u3063\u305f\u308a\u3068\u304b\u6c17\u3092\u3064\u3051\u306a\u3051\u308c\u3070\u3044\u3051\u306a\u3044\u3053\u3068\u304c\u591a\u3044\u306e\u3067\u3001\u306a\u308b\u3079\u304f\u63a1\u7528\u3057\u306a &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/appbay.org\/?p=2256\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;VBA \u30d5\u30a9\u30eb\u30c0\u306e\u4e2d\u306b\u3042\u308b\u5168\u3066\u306eExcel\u3092\u958b\u304f&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[5],"class_list":["post-2256","post","type-post","status-publish","format-standard","hentry","category-1","tag-vba"],"_links":{"self":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/2256","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2256"}],"version-history":[{"count":6,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/2256\/revisions"}],"predecessor-version":[{"id":5080,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/2256\/revisions\/5080"}],"wp:attachment":[{"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2256"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2256"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2256"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}