{"id":238,"date":"2011-09-27T17:00:01","date_gmt":"2011-09-27T08:00:01","guid":{"rendered":"http:\/\/www.whoocus.com\/blog\/wordpress\/?p=238"},"modified":"2011-09-27T17:00:01","modified_gmt":"2011-09-27T08:00:01","slug":"excel-vba%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e5%87%ba%e5%8a%9b","status":"publish","type":"post","link":"https:\/\/www.blowfish.co.jp\/?p=238","title":{"rendered":"Excel VBA\u30d5\u30a1\u30a4\u30eb\u51fa\u529b"},"content":{"rendered":"<p>[vb]<br \/>\nOption Explicit<\/p>\n<p>Sub CreateFile()<\/p>\n<p>Dim StrFileName As String<br \/>\nDim intFileNo As Integer<\/p>\n<p>StrFileName = ActiveWorkbook.Path &amp; &quot;out.txt&quot;<br \/>\nintFileNo = FreeFile<\/p>\n<p>Open StrFileName For Output As #intFileNo<\/p>\n<p>Write #intFileNo, &quot;\u3053\u308c\u306fWrite\u30c6\u30b9\u30c8\u3067\u3059\u3002&quot;<br \/>\nPrint #intFileNo, &quot;\u3053\u308c\u306fPrint\u30c6\u30b9\u30c8\u3067\u3059\u3002&quot;<\/p>\n<p>Close #intFileNo<\/p>\n<p>End Sub<br \/>\n[\/vb] <\/p>\n","protected":false},"excerpt":{"rendered":"<p>[vb] Option Explicit Sub CreateFile() Dim StrFileName As String Dim intFileNo As Integer StrFileName = ActiveW [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"saved_in_kubio":false,"footnotes":""},"categories":[7,4],"tags":[],"class_list":["post-238","post","type-post","status-publish","format-standard","hentry","category-excel","category-tech"],"_links":{"self":[{"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=\/wp\/v2\/posts\/238","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=238"}],"version-history":[{"count":0,"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=\/wp\/v2\/posts\/238\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=238"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=238"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.blowfish.co.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=238"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}