ADODB.Streamを使って、テキストファイルに文字列を追加する方法をご紹介します。

基本的な使い方はこちら。
ADODB.Streamを使ったテキストファイルの読み書き – 2014-01-23
オプション等の説明は上記にて掲載していますので、今回は割愛します。

まずは変数を宣言

Dim sr          As Object
Dim strData     As String

オブジェクトを作成

Set sr = CreateObject("ADODB.Stream")

オプションの設定

sr.Mode = 3 '読み取り/書き込みモード
sr.Type = 2 'テキストデータ
sr.Charset = "Shift_jis" '文字コードを指定

Streamオブジェクトを開いて、ファイルの内容を読み込みます。 続きを読む…»

通常のテキストファイルの読み込みや書き込みだと文字コードがShift_jisでしか扱えません。
他の文字コードを使いたい場合はADODB.Streamを使います。

テキストファイルの読み込み

Dim sr      As Object
Dim strData As String

Set sr = CreateObject("ADODB.Stream")

sr.Mode = 3 '読み取り/書き込みモード
sr.Type = 2 'テキストデータ
sr.Charset = "UTF-8" '文字コードを指定

sr.Open 'Streamオブジェクトを開く
sr.LoadFromFile ("ファイルのフルパス") 'ファイルの内容を読み込む
sr.Position = 0 'ポインタを先頭へ

strData = sr.ReadText() 'データ読み込み

sr.Close 'Streamを閉じる

Set sr = Nothing 'オブジェクトの解放

続きを読む…»