Excel VBA

Excel VBA 全シート(シートの中身全て)をテキストファイルにする

シート名をテキストファイルの名前にして、各シートごとにシートの内容すべてをテキストファイルにする

コンフィグシート（A列にコンフィグをはりつけたもの）に対して、各シートごとにテキスト化できる。

Sub text_export()
  Dim strFilePath As String

'全シート名を取得して、シート名ごとに処理を実行
Dim i As Long
For i = 1 To Worksheets.Count
  sheetname = Worksheets(i).Name
  'テキストファイルのパスを作成
  strFilePath = ThisWorkbook.Path & "\" & sheetname & ".txt" 'ファイルパス
  
  'シート名.txtでシートの中身をテキストファイルに保存する。(シート内の全情報をコピー）
  Worksheets(sheetname).Copy
  ActiveWorkbook.SaveAs Filename:=strFilePath, _
                        FileFormat:=xlText
                        
  '作成したファイルを閉じる
  ActiveWorkbook.Close
  
Next

End Sub

-Excel, VBA