エクセルシートのファイルエクスポートについて

エクセルの住所ファイル（複数行）を編集して、CSVファイル形式で1件単位に出力したいのですが、よいアイデアはありませんか？

エクセルシートが下記の形式であります。CSV形式で単純出力すると行単位で改行されて出力されますが、複数行をまとめて1件のCSVファイルに出力し、アクセスに取り込みたいのですが、よいアイデア、サンプルPGMはありませんか？エクセルシートには特に関数、制御文字等は指定しておりませんが、1件データの終了行（6行目、11行名…）に制御項目を事前セットすること必要であれば、マクロ等でセットします。
1行目　××住所録,
2行目　yyyy/mm/DD,（作成日）　（※1行目と2行目は取り込まない）
3行目 氏名,田中,社員番号,1234567,所属コード,1000,所属名,営業部
4行目 郵便番号,123-4567,住所,東京都千代田区内神田１－１－１
5行目 電話番号,03-1234-5678,FAX番号,03-1234-5678
6行目 任意コメント欄,重要キーマン,

8行目 氏名,山田,社員番号,1234568,所属コード,2000,所属名,法務部
9行目 郵便番号,　以降約50件のデータが続く（※1行飛ばして、1件4行で編集されているシート）

出力方法
　各行のデータ項目（田中,1234567,1000,営業部,123-4567,(住所),…）を出力

VB若葉マークであり、「FileSystemObject」を活用したらとの助言は頂きましたが、検索しましたが類似機能にヒットしませんでした。よろしくお願いします。

No.2 ベストアンサー 回答者： sh_hirose 回答日時： 2009/05/29 13:00

こんなんじゃだめですか？

（すっごい適当に書いてます。）

Open "aaa.txt" For Output As #fileNum

i = 3

Do Until cells(i, 1) = ""

str = cells(i, 1).value & "," & cells(i, 2).value & _
"," & cells(i, 3).value & "," & cells(i, 4).value & _
"," & cells(i, 5).value & "," & cells(i, 6).value & _
"," & cells(i, 7).value & "," & cells(i, 8).value & ","

i = i + 1
str = str & cells(i, 1).value & "," & cells(i, 2).value & _
"," & cells(i, 3).value & "," & cells(i, 4).value & ","

i = i + 1
str = str & cells(i, 1).value & "," & cells(i, 2).value & _
"," & cells(i, 3).value & "," & cells(i, 4).value & ","

i = i + 1
str = str & cells(i, 1).value & "," & cells(i, 2).value

Print fileNum, str

i = i + 2
Loop

Close #fileNum

この回答へのお礼

sh_hirose様
ありがとうございました。
ポイントはつかめましたので、投稿をベースに加筆しました。

お礼日時：2009/06/01 09:58

No.5 回答者： imogasi 回答日時： 2009/05/29 21:12

表の組み換えは簡単なVBAコードで出きる

Sheet1->Sheet2に組み替え
例データ
Sheet1
A列
aa1
bb1
cc1
dd1
eee1
aa2
bb2
cc2
dd2
eee2
aa3
bb3
cc3
dd3
eee3
aa4
bb4
cc4
dd4
eee4
ーー
Sheet2　結果A-E列
aa1bb1cc1dd1eee1
aa2bb2cc2dd2eee2
aa3bb3cc3dd3eee3
aa4bb4cc4dd4eee4
コード
Sub test01()
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
k = 1
For i = 1 To 20 Step 5
For j = 1 To 5
sh2.Cells(k, j) = sh1.Cells(i + j - 1, "A")
Next j
k = k + 1
Next i
End Sub
列数は５としている。
For i = 1 To 20 Step の２０は最下行を捉えるコードにしてください
（意識的手抜き）

No.4 回答者： Sinogi 回答日時： 2009/05/29 20:21

＃３です。

表現を改めます。
「エクセルワークシートで切取移動する」
→４行目～６行目をそれぞれ切取って３行目に移動していき、データを１行にする
をループ処理する。

No.3 回答者： Sinogi 回答日時： 2009/05/29 20:15

３行目から７行目(空白行)までのパターンの繰り返しでその構造は一定ですか？

そうなら「エクセルワークシートで切取移動する」か、「全ての項目を配列にして扱う」ってのはいかがですか？

No.1 回答者： yyr446 回答日時： 2009/05/29 10:41

別に「FileSystemObject」を使わなくてもできます。

「vba ファイル書き出し」をキーワードに検索すれば、例がたくさんみつかるはずです。
基本は、OPEN命令で書き出すファイルを開き、PRINT命令で書き出すだけです。書き出す内容はセルのの値を逐次取り出すわけですから、自分で自在にハンドリングします。

この回答への補足

ご返答ありがとうございます。

vbaファイル書き出し等の検索ワードでは、単純に出力する方法は記載があり、OPEN命令、PRINT命令、及びエクセルの先頭・最終セルを判定してループする機能もあり、その範囲程度であれば理解しているつもりです。しかし、書き出しセル（項目）のコントロールする機能（複数行をまとめて出力、項目を選択して出力等）についてはなかなかヒットしません。なにかよいお知恵・サンプル等のリンクがあれば教えていただけないでか？

補足日時：2009/05/29 11:12