エクセル操作について (ID:111004)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 色々調べて、お教え頂いた事で、VB5からエクセルを操作し、 ＭＤＢからのデータをエクセルシートに追加も行えるようになりました。 ですが、エクセルのレコードが終わっているのに、うまく終了してくれません。 rという変数をとり、セル(1,3)の数字を取り、 それと同じ番号をＭＤＢより抽出して、必要なデータを指定のセルに 貼り付ける・・・という内容です。 以下の様にDO-LOOPで行ってループさせようとしたのですが、 エクセルのレコードが終了しても、 プログラムが終了しなくなってしまいました。。。 exitRun:に飛んでくれません。。。 終了させるために何か判定がいるのでしょうか？ お教え願います。 r=1 Do Until xlBook.AtEndOfLine hantei = AnsiMidB(xlSheet.Cells(r, 3).Value, 1, 6) rec.Open "select ACCDATE,VISITDATE FROM テーブル where ACCNO='" & hantei & "'", gconAAA, adOpenKeyset, adLockOptimistic xlSheet.Cells(r, 22).Value = rec.Fields("ACCDATE") xlSheet.Cells(r, 23).Value = rec.Fields("VISITDATE") r = r + 1 nextdo: Set rec = Nothing Loop exitRun: