アクセスからエクセルへの転記 アクセスからエクセルにデータを移植するプログラムを作っています。

補足

表は4行で構成されています。下記情報を4行おきの表に入れたいのです。 Do Until rst.EOF intRow = 14 .Cells(intRow, 2).Value = rst!品名コード1 .Cells(intRow, 29).Value = rst!数量 .Cells(intRow, 37).Value = rst!販売価格 .Cells(intRow, 50).Value = rst!出庫予定日 .Cells(intRow + 1, 2).Value = rst!部品名日 .Cells(intRow + 1, 50).Value = rst!入庫予定日 .Cells(intRow + 2, 19).Value = rst!保管先コード .Cells(intRow + 3, 15).Value = rst!保管地域名 intRow = intRow + 4 rst.MoveNext Loop rst.Close

Microsoft Access34閲覧xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

0

ThanksImg質問者からのお礼コメント

動きました。 ありがとうございます。これで他のデーターも入れ込んで試します。

お礼日時:1/14 16:40

その他の回答(1件)

0

>表中の各行にデーターが入れられません。 最終的な表のイメージがつかめません。 コードとしては、 intRow = 14(~16)の初期設定と intRow = intRow + 4 が交互に来たら、固定値のセットがあるので、 intRow = intRow + 4はあまり意味がありません。 intRow = 14が開始行なら、この1行だけで、 intRow = 15 や intRow = 16はいらないのじゃないかと思います。