アクセステーブルのデータをエクセルシートへ

質問

お世話になります。
下記のようにベタ書きで、データを取得していますが、
コード行数を少なくしたいと思っており、
ＦＯＲ　ＮＥＸＴで対応出来ないかと考えてやって見ましたが
うまく行きません。アクセステーブルのフィールドは順番に並んで
います。コードの書き方をご教示頂きたくお願い致します。

　　　　記
myrng.Cells(n, 1) = rs!住所
myrng.Cells(n, 2) = rs!氏名
myrng.Cells(n, 3) = rs!年齢
myrng.Cells(n, 4) = rs!性別
myrng.Cells(n, 5) = rs!職業

↓↓（下記の書き方で、「実行時エラー３２６５
　　　　　このコレクションには項目がありません」と
　　　　　出てしまいす。）

For h = 1 To 5
　myrng.Cells(n, h) = rs!Fields(h).Value
Next h

回答No.3

redfox63 · ベストアンサー

DebugPrintではなく Debug.Print ですよ

お礼

何度もありがとうございました。
うまくいきました。

回答No.2

redfox63

どちらがエラーになっているのかをチェックしましょう

for h=1 to 5
debug.print "Rng:" & myRng.Cells(n,h).Address,
debug.print "rs(" & h & "):" & rs.Fields(h-1).value
next
などとして確認してみましょう

お礼

何度もすみません。
今度は　debugprint　のところが青く塗られ、
「コンパイルエラー　Sub　または　Functionが定義
されてません」と出てしまいます。
ホントに初心者ですみません。

回答No.1

redfox63

Fieldsって 0ベースのインデックスでは
プロパティの参照には『.』を使ったほうがいいでしょう

for h = 1 to 5
　　myrng.Cells(n,h).Value = rs.FIelds(h-1).value
next
といった具合でしょう

お礼

早速のご回答ありがとうございます。
今度は、「実行時エラー４２４　オブジェクトが必要です。」
と出てしまうのですが、まだ何か不足なのでしょうか。