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

SQL文を使ってデータを取得する

Sub クエリデータ取得2()
'SQL文を使ってデータ取得
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 = "select * from 社員 where 所属='営業１課';"   'SQL文
  .Open
End With

Range("A1").CopyFromRecordset myRS

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

End Sub

取込先のテーブルデータ

実行結果