AccessのデータをExcelを使って抜き出す方法について

ExcelのマクロからAccessのデータを指定の箇所だけ抜き出す方法を教えていただきたいです。

名前都道府県出身地
稲垣千葉埼玉
稲垣千葉埼玉
斎藤東京東京
斎藤東京東京
田中千葉群馬
田中新潟群馬

↑のような表で都道府県のところを千葉で固定にして
名前のところをユーザーフォームに記載したらそこの列を引っ張ってくるようにしたいです。

ExcelやAccessに詳しい方いらっしゃいましたらご教示お願いいたします。

条件しては
ExcelとAccessは同じフォルダ内にある。
Accessの名前は「資料」
カラム名は「閲覧」
Excelのユーザーフォームに田中と入れたら下記のようにExcelに貼り付けたいです。

名前都道府県出身地
田中千葉群馬

行動規範の内容に同意します

回答1件

ベストアンサー

質問の条件に不足、矛盾があるので、そこは勝手に推測して回答します。

下記のような条件とします。

マクロのあるExcelブックとAccessデータベースファイルは同じフォルダ内にある。
Accessデータベースファイル名は「資料.ACCDB」
その中のデータの入っているテーブル名は「閲覧」
Excelのユーザーフォームにテキストボックス「TextBox1」とコマンドボタン「CommandButton1」が配置してある
テキストボックスに名前を入力してコマンドボタンをクリックしたら、「閲覧」テーブルから「名前」が一致して、かつ都道府県が「千葉」のレコード（行）を抽出して、アクティブシートのA2セル以降に出力する。

vba
1Private Sub CommandButton1_Click()
2 
3    Dim DBFile As String
4    DBFile = ThisWorkbook.Path & "\資料.ACCDB"
5  
6    '資料.ACCDBファイルに接続
7    Dim cn As ADODB.Connection
8    Set cn = New ADODB.Connection
9    cn.Open _
10        "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile
11    
12    '対象データを抽出するSQL
13    Dim strSQL As String
14    strSQL = "SELECT * FROM 閲覧 where 都道府県='千葉' AND 名前='" & Me.TextBox1.Value & "';"
15      
16    '対象データをレコードセットとして開く
17    Dim rs As ADODB.Recordset
18    Set rs = New ADODB.Recordset
19    rs.Open strSQL, cn, adOpenStatic
20    
21    'レコードセットをA2セル以降に出力
22    Range("A2").CopyFromRecordset rs
23
24    'レコードセットを閉じる
25    rs.Close: Set rs = Nothing
26    'ACCDBファイルへの接続を閉じる
27    cn.Close: Set cn = Nothing
28End Sub