【Excel】【VBA】VBAでファイル出力するサンプル

VBAでファイル出力するサンプルを作ってみた。

早速ですが、ソースは下記。

'*****************************************************************
'ファイル出力
'*****************************************************************
Sub outputTextFile()

  Const text1 As String = "定型文1"
  Const text2 As String = "定型文2"

  Dim filePath As String
  filePath = ActiveWorkbook.Path & "\" & "outputtest.txt" 'ファイルパス
 
  Dim WB As Workbook
  Set WB = ActiveWorkbook
    
  Dim WS As Worksheet
  'Set WS = WB.Worksheets(1)
  Set WS = WB.Worksheets("Sheet1")
 
  Open filePath For Output As #1
     Print #1, WS.Cells(1, 1).Value
     Print #1, text1 & WS.Cells(1, 1).Value & text2
  Close #1

  MsgBox "ファイルの作成が完了しました。"

End Sub

ファイル出力は作り込めば色々楽できそう。