「Excel VBA」指定セルの値をテキストに値を追記するサンプル

2021年3月16日

書式
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

Excel VBA

Posted by arkgame

関連記事: