Recordsetオブジェクトの結果をQueryTableオブジェクトで受け取る

参照するRecordsetオブジェクトを変更する

Sub 参照するRecordsetを変更()
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim myFile As String

myFile = ThisWorkbook.Path & "\mdb\4-sampleDB.mdb"

'接続
With myCon
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Open myFile
End With

'「アルバイト」テーブルの内容を読み込む
myRS.Open "アルバイト", myCon

'既存のクエリテーブルの参照先を変更
With Sheets("クエリテーブルVBA2").QueryTables("VBA_QT")
  Set .Recordset = myRS
  .Refresh
End With

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

End Sub

参照するRecordsetオブジェクトを変更するには、既存のQueryTableオブジェクトのRecordsetプロパティに、新規Recordsetオブジェクトをセットし直してから、Refreshメソッドを実行する。

実行結果