{"published":"2015-12-13 23:01:51","url":"https://blog.systemjp.net/entry/2015/12/13/230151","title":"excelvba\u3067\u30d5\u30a1\u30a4\u30eb\u8aad\u307f\u8fbc\u307f","author_url":"https://blog.hatena.ne.jp/shikaku/","blog_title":"shikaku's blog","author_name":"shikaku","image_url":null,"provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2015%2F12%2F13%2F230151\" title=\"excelvba\u3067\u30d5\u30a1\u30a4\u30eb\u8aad\u307f\u8fbc\u307f - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","version":"1.0","categories":["excelvba"],"description":"Sub Sample2() Dim buf As String Open \"C:\\Sample\\Data.txt\" For Input As #1 Do Until EOF(1) Line Input #1, buf \u30bb\u30eb = buf Loop Close #1 End Sub \u30cd\u30bf\u5143 http://officetanaka.net/excel/vba/file/file08b.htm","provider_name":"Hatena Blog","type":"rich","blog_url":"https://blog.systemjp.net/","height":"190"}