Excel VBAでテキストファイルをカンタンに出力する方法

Excel VBAでテキストファイルを出力したい時は、下記のように記述すればOKです。

サンプルコード

Public Sub main()

  '変数の宣言
  Dim txt1 As Integer
  Dim Path As String

  'ファイル番号の取得とディレクトリ指定
  txt1 = FreeFile
  Path = "C:\test.txt"

  'ファイルを開く
  Open Path For Output As #txt1

  'データ出力
  Print #txt1, "テキストデータに出力する文字列です。１";
  Print #txt1, "テキストデータに出力する文字列です。２";

  'ファイルを閉じる
  Close #txt1

End Sub

もちろん、上記はvba内部のことですので、ifやforなどの制御文を用いたり、文字列に限らず、ワークブック（ワークシート）のセル情報をそのままテキストファイルへ書き込むルールを指定することも可能です。