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

Source プロパティを使用してデータを取り込む

Sub レコード取得2()
'Source プロパティを使用してデータを取り込む
Dim myCon As ADODB.Connection, myRS As ADODB.Recordset, FileName As String

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

With myRS
  .ActiveConnection = myCon '使用する接続を指定
  .Source = "社員"          '取り込みテーブルを指定
  .Open
End With

Range("A1").CopyFromRecordset myRS

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

End Sub