VBAでCSVファイルを分割したい
VBAを利用して、あるCSVファイルを一定のレコード数ごとに新しいファイルにファイル分割したいです。
やりたいことは、以下のようなイメージです。
関連サイトなどを参考に自分なりに取り組んでみましたが、なかなかうまくいきません。
VBAでなくても実現できそうですが、ここまでやったので勉強のためにもVBAでやりたいです。
サンプルコードなど教えていただけるとうれしいです。
ヒントでも結構ですので、よろしくおねがいします。
（2レコードずつ分割する例）
sample.csv
ヘッダ１,ヘッダ2,ヘッダ3,ヘッダ4
aaa@aa.aa,123,あいうえ,111-111
bbb@bb.bb,456,かきくけ,222-222
ccc@cc.cc,789,さしすせ,333-333
ddd@dd.dd,012,たちつて,444-444
eee@ee.ee,345,なにぬね,555-555
fff@ff.ff,678,たちつて,666-666
↓↓↓
☆sample_1.csv
ヘッダ１,ヘッダ2,ヘッダ3,ヘッダ4 →各ファイルにヘッダも入れたいです。
aaa@aa.aa,123,あいうえ,111-111
bbb@bb.bb,456,かきくけ,222-222
☆sample_2.csv
ヘッダ１,ヘッダ2,ヘッダ3,ヘッダ4
ccc@cc.cc,789,さしすせ,333-333
ddd@dd.dd,012,たちつて,444-444
☆sample_3.csv
ヘッダ１,ヘッダ2,ヘッダ3,ヘッダ4
eee@ee.ee,345,なにぬね,555-555
fff@ff.ff,678,たちつて,666-666
お礼
INを使えば良かったのですね。 ＝を使用すると構文エラーになるし、JOINしたりして混乱してしまいました。 実際にお教え頂いたコマンドを試した所、私の望む結果が出力されました。 大変助かりました。ありがとうございました。 今後ともよろしくお願い致します。