CSVのファイルをExcelに読み込むには？

VBA初心者です。
CSVのファイルをExcelのワークシートに読み込むコードを
VBAで書きたいのですが、イマイチやり方が良く分かりません。
読み込むデータはこのような物です。

20120322C9555033044055 0222566547商品名A 888 52
20120323D9536066108125 3265842386商品名B 12547411
…

(年月日8桁+番号5桁+数A3桁+数B3桁+数C3桁 番号10桁+商品名10桁 番号8桁)
これを上のように分割して列に振り分けて、2行目以降は行を加算して
下に続くような形にしたいのですが、どうしたらよいでしょうか？
途中まではスペースで区切られているのですが、最後の"番号8桁"のところで
間にスペースが入っている物と入っていないものがあり苦戦しています。
よろしくお願いします。

No.1 ベストアンサー 回答者： o_chi_chi 回答日時： 2012/05/31 11:11

項目分割以外はできていると仮定します。

商品名は全角5文字
取得データを変数getlineに格納

---
１．最後以外は固定長なのでMidで分割する

a = mid(getline, 1, 22)
b = mid(getline, 24, 15)
c = mid(getline, 40)

２．splitで分割し最後の項目を連結する

ary = split(getline, " ")
a = ary(0)
b = ary(1)
if ubound(ary) = 2 then
c = ary(2)
else
c = ary(2) + ary(3)
endif

この回答へのお礼

ありがとうございます。
分割してからくっつけるのですか！
何とか頑張ってやってみます！

お礼日時：2012/05/31 17:20