{"height":"190","blog_title":"shikaku's blog","categories":["ExcelVBA"],"provider_url":"https://hatena.blog","title":"ExcelVBA\u3067utf-8\u6307\u5b9a\u3067\u30d5\u30a1\u30a4\u30eb\u8aad\u307f\u8fbc\u307f\u3059\u308b","author_name":"shikaku","provider_name":"Hatena Blog","blog_url":"https://blog.systemjp.net/","type":"rich","version":"1.0","published":"2020-06-02 20:45:02","width":"100%","author_url":"https://blog.hatena.ne.jp/shikaku/","url":"https://blog.systemjp.net/entry/2020/06/02/204502","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F06%2F02%2F204502\" title=\"ExcelVBA\u3067utf-8\u6307\u5b9a\u3067\u30d5\u30a1\u30a4\u30eb\u8aad\u307f\u8fbc\u307f\u3059\u308b - 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>","description":"ADO(ActiveX Data Objects) \u4f7f\u3046 Sub Sample1() Dim buf As String, Target As String Target = \"D:\\Work\\UTF-8\u306e\u30c6\u30ad\u30b9\u30c8.txt\" With CreateObject(\"ADODB.Stream\") .Charset = \"UTF-8\" .Open .LoadFromFile Target buf = .ReadText .Close MsgBox buf End With End Sub \u30cd\u30bf\u5143 http://officetanaka.net/excel/vba/file/file10.htm"}