{"provider_url":"https://hatena.blog","height":"190","blog_title":"shikaku's blog","blog_url":"https://blog.systemjp.net/","url":"https://blog.systemjp.net/entry/2020/06/30/215721","type":"rich","author_name":"shikaku","image_url":null,"categories":["ExcelVBA"],"title":"ExcelVBA\u3067\u30d5\u30a1\u30a4\u30eb\u8ffd\u8a18","version":"1.0","provider_name":"Hatena Blog","published":"2020-06-30 21:57:21","author_url":"https://blog.hatena.ne.jp/shikaku/","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F06%2F30%2F215721\" title=\"ExcelVBA\u3067\u30d5\u30a1\u30a4\u30eb\u8ffd\u8a18 - 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":"Dim fso As FileSystemObject Set fso = New FileSystemObject Dim ts As TextStream Set ts = fso.OpenTextFile(\"D:\\Tips.txt\", ForAppending, True, TristateTrue) ' \u30d5\u30a1\u30a4\u30eb\u3092 UTF-16 \u3067\u958b\u304f Set ts = fso.OpenTextFile(\"D:\\Tips.txt\", ForAppending, True, TristateFalse) ' \u30d5\u30a1\u30a4\u30eb\u3092 Shift_JIS \u3067\u958b\u304f ts.WriteLine (\"\u8ffd\u8a18\") ' \u66f8\u304d\u8fbc\u307f t\u2026"}