ブックマークを利用する

ブックマークを利用してフィルタをかける

Sub ブックマーク3()
'ブックマークを利用してフィルタをかける
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.Filter = myBookmark

'シートへ転記
Range("A1").CopyFromRecordset myRS

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

End Sub

「伝票一覧」テーブル

実行結果

CopyFromRecordset メソッドを使用しているので、データはそれぞれのデータ型で貼り付けられている。