[リストへもどる]
一括表示

投稿時間:2002/12/03(Tue) 20:25
投稿者名:アンパンマン
Eメール:
URL :
タイトル:
書き出す方法
何度もスミマセン。

テキストファイル(CSV)があって、内容は、

商品番号,1000
商品名,AAA
商品価格,5000

商品番号,1001
商品名,BBB
商品価格,5500

商品番号,1002
商品名,CCC
商品価格,6500
 ・
 ・
 ・
こんな感じで入っています。
エクセル形式で見ると、A列に商品番号、B列に番号、名前、価格
が入っています。

で、やりたい事として、一枚の紙に印刷したいので、

商品番号,1000 , 商品番号,1010
商品名,AAA     , 商品名,GGG
商品価格,5000  , 商品価格,4500

商品番号,1001  , 商品番号,1011
商品名,BBB     , 商品名,HHH
商品価格,5500  , 商品価格,6200

商品番号,1002  ,商品番号,1012
商品名,CCC     ,商品名, III
商品価格,6500  ,商品価格,3500
 ・         ・
 ・         ・
 ・         ・
こんな感じに印刷範囲が来たら、D列、E列に列を移動させる
様な事をしたいのですが、できるのでしょうか?

何かアイデアがあれば、教えて下さい。よろしくお願いします。

投稿時間:2002/12/03(Tue) 21:07
投稿者名:A221
Eメール:
URL :
タイトル:
Re: 書き出す方法
> こんな感じに印刷範囲が来たら、D列、E列に列を移動させる
> 様な事をしたいのですが、できるのでしょうか?
>
> 何かアイデアがあれば、教えて下さい。よろしくお願いします。

妥当なのが
ページを書くループ
    2列書くループ
      3段書くループ
と、重ねることです。

コードとしてはこんな感じです。
For i=1 To 2
    For j=1 To 3
        xlsSheet.Cells(j,i * 3).value=rs(j)
    Next j
    rs.MoveNext
Next i