エクセル操作について

解決

かかし 2003-12-28 22:43:49 No: 111004

色々調べて、お教え頂いた事で、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:

かかし 2003-12-28 22:56:03 No: 111005

すみません・・・解決致しました。。。
お騒がせして済みませんでした。。。