lunark https://blog.hatena.ne.jp/lunark/ Lunarfactory https://lunark.hatenablog.jp/ VBAマクロを用いてテキストファイルをString型変数に入れるケースにおいて、UTF-8の場合のみADODB.Streamを使うように指示しているリファレンスサイトが多いのですが、実は文字コードを指定すればなんでも読めます。 よって、Shift-JISだからといって、FSOを用いたテキスト読み込みなどを用いる必要は特にありません。 Dim pstrFN As String ’ファイル名フルパスを指定する Dim pMojiCode As String ’文字コードを指定する Dim buf As String ’ここに読み込んだテキストが格納される With CreateObject("AD… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Flunark.hatenablog.jp%2Fentry%2F2020%2F06%2F08%2F121345" title="VBAマクロを用いてテキストファイルを読み込むとき - Lunarfactory" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2020-06-08 12:13:45 rich https://lunark.hatenablog.jp/entry/2020/06/08/121345 1.0 100%