エクセルのデータを大量のテキストファイルに書き込みたい。

質問

エクセルの縦のセルのデータ(下のCells( 4 * j + i, 4))を繰り返しで、400個のテキストファイルに書き込みたいのですが、
下の""内のjは繰り返しせずに、j.txtとなって入力されてしまいます。なにかいい方法がありませんでしょうか。
ご協力お願いします。（ちなみにvbaは初心者です。）

Private Sub CommandButton2_Click()
Dim n As Long
n = FreeFile
Dim j As Integer

For j = 0 To 399
For i = 1 To 4
a = Cells( 4 * j + i, 4)
f2 = ActiveWorkbook.Path & "\j.txt"
Open f2 For Append As #n
Print #n, a
Close #n
Next i
Next j
End Sub

例.
1
2
3
4
5
6
7
8
9
10
12
13

1,2,3,4→1.txt
5,6,7,8→2.txt
9,10,11,12→3.txt

回答No.1

himajin100000 · ベストアンサー

実験はしていません
【修正前】
f2 = ActiveWorkbook.Path & "\j.txt"
【修正後】
f2 = ActiveWorkbook.Path &"\" & CStr(j) & ".txt"

お礼

できました。すばやい回答ありがとうございます。
これができてほんと助かりました。