ADOを使ってデータを取得する

ADOを使ってデータを取得する

Sub レコード取得1()
Dim myCon As ADODB.Connection, myRS As ADODB.Recordset, FileName As String

'New キーワードを使用して新規ConnectionオブジェクトとRecordsetオブジェクトを生成
Set myCon = New ADODB.Connection
Set myRS = New ADODB.Recordset

'接続先のデータベース
FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"

'接続
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName

'接続先から「社員」テーブルの内容を読み込む
myRS.Open "社員", myCon

'A1番地を基点に転記
Range("A1").CopyFromRecordset myRS

'Recordsetオブジェクトへの接続を閉じ、オブジェクトを破棄
myRS.Close: Set myRS = Nothing
'データベースへの接続を切断し、オブジェクトを破棄
myCon.Close: Set myCon = Nothing

End Sub

Recordset オブジェクト.Open テーブル名(クエリ名) , 接続先

実行結果