エクセル VBA テキストファイル書き出す応用?
以下のページより、
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_040.html
Option Explicit
' テキストファイル書き出すサンプル(2)
Sub WRITE_TextFile2()
Const cnsFILENAME = "\SAMPLE.txt"
Dim intFF As Integer ' FreeFile値
Dim strREC As String ' 書き出すレコード内容
Dim GYO As Long ' 収容するセルの行
Dim GYOMAX As Long ' データが収容された最終行
' 最終行の取得
GYOMAX = Range("A65536").End(xlUp).Row
' FreeFile値の取得(以降この値で入出力する)
intFF = FreeFile
' 指定ファイルをOPEN(出力モード)
Open ThisWorkbook.Path & cnsFILENAME For Output As #intFF
' 2行目から開始
GYO = 2
' 最終行まで繰り返す
Do Until GYO > GYOMAX
' A列内容をレコードにセット(先頭は2行目)
strREC = Cells(GYO, 1).Value
' レコードを出力
Print #intFF, strREC
' 行を加算
GYO = GYO + 1
Loop
' 指定ファイルをCLOSE
Close #intFF
End Sub
-------------------------------------------------------------
これを参考にしてテキストファイル書き出すのは出来たのですが、
今回は、ちょっと応用で以下のようにしたいです。
Sheet1のA2~A20までテキストファイル名が書いてあるとします。
また、Sheet2~Sheet20ぐらいまで、各Sheetに文章が入っているとします。
テキストファイルに書きだしたいのですが、
Sheet2の内容は、Sheet1のA2のファイル名
Sheet3の内容は、Sheet1のA3のファイル名
Sheet4の内容は、Sheet1のA4のファイル名
このようにしたいのですが、どのようにすればいいのか教えてください。
よろしくお願います。
補足
ご回答ありがとうございました。 確かに、説明が不足しておりましたので 改めて、質問したいと思います。 どういうものかというと、 とあるプログラムにテキストへの抽出という 機能がありまして、それを実行すると (1)ファイルの保存先ダイアログが起動します。 (2)そこで、ファイル名を任意に指定し、保存のボタンを押します。 (3)その対象レコードがテキストファイルに書き込んでいく 作業となります。 よって、(2)の時点ではテキストファイルは存在しません。 そのため、(2)のファイル名を指定の部分で、(3)のテキストファイルの 1行目に任意の題名を自動作成した上で2行目からレコードの 書き込みができるようにしたい。 以上、ご回答お願い致します。