ADODB.Streamオブジェクトを使うと、文字コードUTF-８のテキストファイルも処理できます。
ADODB.Streamオブジェクト関係記事は、
⇒ こちら（１本目）
⇒ こちらも（２本目）
⇒ さらに、こちらも（３本目）
上記の記事中には、サンプルコードを掲載しているので、いざコードを書こうとするときには、これを開いて参考にする予定です。
とても、コードの細部までは覚えておくことはできませんから。
細かいことは、その都度、上記サンプルコードを参考にします。それでも、大枠は理解して押さえておくべきでしょう。
大枠とは、
【１】テキストインプットには、ReadTextを使用
【２】テキストアウトプットには、WriteTextを使用
ということです。
【１】インプット
テキストファイルのインプットには、ADODB.StreamのReadTextメソッドを使います。
なお、ReadTextメソッド実行前には、LoadFromFile メソッドを実行して、テキストファイルの内容をStreamに読み込んでおきます。
【解説１】LoadFromFile メソッド
既存のテキストファイルの内容を Stream に読み込みます。
構文： myStream.LoadFromFile FileName
パラメーター：FileName
Stream に読み込むファイルの名前を含む文字列型 (String) の値を指定します。指定したファイルが存在しない場合は、実行時エラーが発生します。
【解説２】ReadTextメソッド
テキストファイルの内容を取得するメソッドです。
引数を指定しない場合には、末尾まで一気に読み込みます。
引数に「-2（定数adReadLine）」を指定すると、１行分だけ読み込みます。
取得した内容をいったん変数に格納し、その変数の値をExcelのセルやWord本文に展開するという利用になります。
【２】アウトプット
テキストファイルのアウトプットには、ADODB.StreamのWriteTextメソッドを使います。
その上で、SaveToFileメソッドでテキストファイルに保存します。
【解説３】WriteTextメソッド
構文「myStream.WriteText テキスト文字列 , [改行指定]」
で、ストリームオブジェクトにテキスト文字列を書き込みます。
[改行指定]に、 １（定数adWriteLine） を指定すると、文字列を書き込んだ後ろに改行文字が挿入されます。
改行指定を省略するか、”0″を入力すると改行が入力されません。
【解説４】SaveToFileメソッド
何度かWriteTextメソッドで文字を書き込んでいき、書き込みが終わったら最後に、
構文「myAdost.SaveToFile ファイル名 , [上書き指定]」
で、ストリームオブジェクトの内容をファイルに保存します。
ファイル名にはファイルパス文字列を、
[上書き指定]のパラメータには、
ファイルを上書きしない場合 ”1″を、
上書きする場合 ”2″を指定しましょう。
省略時のデフォルト値は「1」です。
ちょっと専門的な内容の記事になりましたが、VBAコード記述の参考にしていただければ。
 | Pioneer パイオニア Win & Mac対応 BDXL対応 USB3.2 クラムシェル型ポータブルBDドライブ ソフト無モデ... 【バンドルソフトを省略した低価格モデル】既に再生・記録用のソフトをお持ちの方、OS標準機能で使用さ... Pioneer （パイオニア） |
それでは、また次の記事で
■■■■ goosyun ■■■■
