エクセルVBAにてテキスト出力がうまくいきません

質問

エクセルシートの1列に以下のような文字列を打ち込みました。

-

a
aa
aaa
aaaa
aaaaa

-

b
bb
bbb
bbbb
bbbbb

-

c
cc
ccc
cccc
ccccc

-

「-」の2行後をテキストを出力した際のファイル名とし、ファイル名を含んだ次の「-」までの文字列をそのテキストの中に出力したいです。なお、全体の行数は分かっています。

例えば上の文字列に対して実行すると、
a.txt
b.txt
c.txt
というファイルができ、それぞれの中には
a
aa
aaa
aaaa
aaaaa

などがそれぞれ出力されるようにしたいです。

Sub tepa()

Dim strFilename As String
Dim FileNumber As Integer
Dim strREC As String

j = 1

For i = 1 To 70
If Cells(i, 1) = "-" Then
strFilename = Cells(i + 2, 1) & ".txt"

Do While Cells(i + j, 1) <> "-"

If i > 70 Then
Exit Sub
End If

FileNumber = FreeFile
strREC = Cells(i + j, 1)
Open strFilename For Append As FileNumber
Print #FileNumber, strREC
Close

j = j + 1
Loop
End If
i = i + j

Next

End Sub

さきほど初めてVBAなるものを知り、見よう見まねで書いてみましたが・・・ループに陥ったりテキストファイルが1つめしか出力されなかったりとうまくいきません。

改善点など教えていただけたら嬉しいです。
よろしくお願いします。

回答No.1

bin-chan · ベストアンサー

１回しか回らない理由
> If i > 70 Then
> 　　Exit Sub
> End If
Exit Sub では無くて、Exit Forでしょう。

せっかくForループで廻しているのに、jでDoループ作るのは？？？
Do While Cells(i + j, 1) <> "-"
の外（前）側でファイルオープンしないと、同じファイル上書きしますぞ。

お礼

回答ありがとうございます。
Exit For　ですね。ちゃんと回るようになりました。

＞せっかくForループで廻しているのに、jでDoループ作るのは？？？

１，Cells(i,1)が"-"かどうかを判定
２，もし"-"ならi+2番目をファイル名にする
３，Cells(i+j,1)が"-"じゃない間、２のファイル名のファイルに１行ずつプリントしていく（j++）
４，Cells(i + j,1)が"-"だったらループを抜けて、i = i + j番目からまた１の判定をしていく

というアルゴリズムでやろうと思ったのですが…　的外れなことをやってるんでしょうか…

ファイルのオープンとFileNumberの代入式をループの外に出したら、Print の#FileNumberが不正だと言われました。
がんばってみます。

回答No.2

bin-chan

Option Explicit '' 変数の宣言をチェックしてくれるキーワード

Sub tepa()
　Dim strFilename As String
　Dim FileNumber As Integer
　Dim strREC As String

　Dim i as long

　For i = 1 To 70　　　'' 7行でワンセット×10セットの狙い撃ち
　　If Cells(i, 1) = "-" Then
　　　i = i + 2
　　　strFilename = Cells(i, 1) & ".txt"
　　　FileNumber = FreeFile
　　　Open strFilename For Output　As FileNumber
　　Elseif Cells(i, 1) = "" Then　　　'' スペース行判定がちょっとちがうかも。
　　　close
　　Else
　　　Print #FileNumber, Cells(i, 1)
　　End If
　Next

End Sub