ExcelからAccessのデータを呼び出す
ExcelのVBAの自動記述にて以下のソースを記録しました
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MS Access Database;DBQ=D:\アクセス練習\db1.mdb;DefaultDir=D:\アクセス練 習;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Range("A1"))
.CommandText = Array("SELECT テーブル1.ID, テーブル1.教室名, テーブル1.コース名,
テー ブル1.講師名" & Chr(13) & "" & Chr(10) & _
"FROM `D:\アクセス練習\db1`.テーブル1 テーブル1" & Chr(13) & "" & Chr(10) & _
"WHERE (テーブル1.教室名= '英語')" & Chr(13) & "" & Chr(10) & _
"ORDER BY テーブル1.ID")
.Name = "MS Access Database からのクエリ_1"
.Refresh BackgroundQuery:=False
End With
抽出条件の部分(今回は「英語」)をインプットボックスまたは、フォームのコンボボックスなどで選択した値を変数として代入したいのですが、
KWD=Commbobox1.Text
"WHERE (テーブル1.教室名= 'KWD')"
KWDを変数として見てくれず、うまく走りません
変数として処理するにはどのように記述すればよいでしょう
よろしくお願いいたします。
補足
早々のご回答、大変ありがとうございます。 変換を行なうMDBがかなり複雑かつ多機能となっている為、一筋縄ではいかないようですね。多の方法(つくり直す等)も含めてよく検討したいと思います。