VBAからテキスト出力はこうしてましたが
Dim TestStr As String
TestStr = “テキスト文字”
Dim Num As Long
Num = FreeFile
Open “c:\TESTopen.txt” For Output As Num
Print #Num, TestStr
Close Num
こういう方法もあります
Dim Stream As ADODB.Stream
Set Stream = New ADODB.Stream
Stream.Mode = adModeReadWrite
Stream.Type = adTypeText
Stream.Charset = “Shift_JIS”
Stream.LineSeparator = adCRLF
Stream.Open
Stream.WriteText TestStr, adWriteLine
Stream.SaveToFile “C:\TESTstream.txt”, adSaveCreateOverWrite
Stream.Close
openメソッドで出力できるのはshift_jisだけかな
adodb.streamは上のオプションshift_jisをUTF-8にすればUTF-8出力もできます。
ただオプションで出力テキストが微妙に違ってきます。
うちの環境では上と同じテキストを出力するにはこのオプションでした。