ExcelVBA： 5行ごとにテキストデータをINPUTしたい。。

Excel　VBAで、
氏名データのみのデータファイルをOpenして、シートにInputで読み込もうとしますが、この読み込むときに、シートのA列に5行ごとに次々に読み込んでいきたいのですが、お教え下さい。
つまりA5に1番目のデータを、A10に2番目のデータをといった感じです。
だれか分かる方、お教え下さい。

No.1 回答者： qualheart 回答日時： 2009/03/25 14:48

A.xls：データファイル　B.xls：入力ファイル　として

For n = 1 To 100
Workbooks("B.xls").Worksheets("Sheet2").Cells(n * 5, 1).Value = Workbooks("A.xls").Worksheets("Sheet1").Cells(n, 1)
Next

で良いんじゃないでしょうか？
Forの最終値「100」は実際にデータファイルにある行数を指定すれば良いと思います。
試してみてください。

No.2 回答者： qualheart 回答日時： 2009/03/25 14:50

No1補足です。

各シート名も実際のシート名にしてください。
例では
B.xlsのシート名が「Sheet2」に、A.xlsのシート名が「Sheet1」になってますが、別に意図はありません＾＾；

No.3 ベストアンサー 回答者： n-jun 回答日時： 2009/03/25 14:59

テキストデータの読み込み

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
【中核となる記述はこれだけです。】を参照。
＞GYO = GYO + 1
＞Cells(GYO, 1).Value = strREC
が１行ずつ書き出している所なので、増分を＋５とすれば５行ごとになります。

ご参考になれば。

この回答へのお礼

さっき出来ました。
当方も増分を＋５にすればいいだけだと思い行っていましたが、なぜか出来なかったんです。。。
おそらくOpen ステートメントで、FreeFileのクローズでエラーがあった為、でしょうか。。
ありがとうございました。

お礼日時：2009/03/25 17:02