'変数Tの値を、実行しているファイルと同じパスにテキスト形式で保存します。
Sub テキストファイル保存()
Dim T As String
T = "テストです"
Open ThisWorkbook.Path & "\test.txt" For Output As #1
Print #1, T
Close #1
End Sub
'セルに入力してあるデータを、実行しているファイルと同じパスに追記モードでテキスト形式で保存します。
Sub テキストファイル追記保存()
Dim C As Range
For Each C In Range("A1:A5")
Open ThisWorkbook.Path & "\test.txt" For Append As #1
Print #1, C.Value
Close #1
Next C
End Sub
'実行しているファイルと同じパスのテキストファイルを読み込み、ダイアログで表示します。
Sub テキストファイル読み込み()
Dim T As String
Open ThisWorkbook.Path & "\test.txt" For Input As #1
Input #1, T
Close #1
MsgBox T
End Sub