「Excel VBA」セルの値を指定テキストファイルに書き込むサンプル

書式
Open ファイル名変数 For Output As 番号
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub excelToTxt()
'出力ファイルの定義
Dim txtName As String
'ブックと同じフォルダ
txtName = ActiveWorkbook.Path & "\\test2021.txt"
'ファイルを開く For Output As #2
Open txtName For Output 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
Sub excelToTxt() '出力ファイルの定義 Dim txtName As String 'ブックと同じフォルダ txtName = ActiveWorkbook.Path & "\\test2021.txt" 'ファイルを開く For Output As #2 Open txtName For Output 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
Sub excelToTxt()
 
 '出力ファイルの定義
  Dim txtName As String
  'ブックと同じフォルダ
  txtName = ActiveWorkbook.Path & "\\test2021.txt"
  
  'ファイルを開く For Output As #2
  Open txtName For Output 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の内容
123
456
789

Excel VBA

Posted by arkgame