ブックマークを利用する

複数レコードをブックマーク

Sub ブックマーク2()
'複数のレコードにブックマークをつけて移動する
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim FileName As String, myBookmark(4) As Variant, i As Integer
FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
myRS.Open "伝票一覧", myCon, adOpenStatic, adLockReadOnly

'3,5,7,9,11番目のレコードをブックマーク登録
For i = 0 To 4
  myRS.Move 2
  myBookmark(i) = myRS.Bookmark
Next

'最終レコードへ移動
myRS.MoveLast

'ブックマーク登録したレコードへ移動
For i = 0 To 4
  myRS.Bookmark = myBookmark(i)
  'カレントレコードを転記
  Range(Cells(i + 1, 1), Cells(i + 1, 5)) = Split(myRS.GetString(adClipString, 1, ","), ",")
Next

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub

複数レコードをブックマークするには変数を配列で宣言し、情報を登録する。

「伝票一覧」テーブル

実行結果