「Excel VBA」指定セルの値をテキストに値を追記するサンプル
書式
Open ファイル名変数 For Append As 番号
使用例
Sub excelToTxtAppendDemo() '出力ファイルの定義 Dim txtName As String 'ブックと同じフォルダ txtName = ActiveWorkbook.Path & "\\test2021.txt" 'ファイルを開く For Output As #2 Open txtName For Append As #2 'セルB3の値を指定 Print #2, Sheets("sheetC").Range("B3").Value '行4 列4のセルの値を指定 Print #2, Sheets("sheetC").Cells(4, 4).Value '行5 列Eのセルの値を指定 Print #2, Sheets("sheetC").Cells(5, "E").Value 'ファイルを閉じる Close #2 End Sub
実行結果
test2021.txtの実行前
AA
BB
CC
test2021.txtの実行後
AA
BB
CC
study
skill
in arkgame