ExcelVBAでコピーをしたい

質問

データベースの内容をExcelのセルへ移すマクロを作成しています。

1行目にはタイトルが入るので、2行目以降に内容をコピーするマクロを組みました。

lngGyo = 1

dbRes.MoveFirst
Do Until dbRes.EOF
lngGyo = lngGyo + 1
lngCol = 0
For Each dbCol In dbRes.Fields
lngCol = lngCol + 1
Cells(lngGyo, lngCol) = dbCol.Value
Next dbCol

これだと、1件目はちゃんと2行目にコピーされるのですが、2件目以降も2行目にコピーされて上書きされてしまいます。
2件目以降は3行目にコピーする場合どうすればいいのでしょうか？

回答No.2

Sayakonomimoto

注意点が何点かあります。
　・IngGyo？　がカウントアップされていない。
　・シートを設定していないから
　　上手く行かない可能性がある。　（Sheet1からSheet2とかなら、不具合が出る可能性あり）

んー、とりあえず、
http://www.moug.net/tech/exvba/0040062.html
これを参考にしてみては？

回答No.1

bin-chan

全文ではありませんね？
Do Until dbRes.EOFに対応するLoopが見当たらない。

CopyFromRecordsetじゃダメなんですか？