テキストの書き出し・・・FSO(FileSystemObject) の参照設定とサンプル

vba

エディタの メニュー - ツール - 参照設定 - 「Microsoft Scripting Runtime」

サンプル

Dim FSO As New FileSystemObject
Dim TS As TextStream
Set TS = FSO.CreateTextFile(Filename:=ThisWorkbook.Path & "\test.txt", Overwrite:=True)
TS.WriteLine "ぬこ" & vbCrLf & "カワユス" 
TS.Close
Set TS = Nothing: Set FSO = Nothing