エディタの メニュー - ツール - 参照設定 - 「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 "…