ExcelでAccessのテーブルの操作2

質問

Excelで期間選択すると、Accessのテーブルから選択した期間のデータを抜き出す事は可能でしょうか？

操作したいAccessのテーブルはこのような形になっています。
名称.tblというテーブルをビューすると

日付 　　　　名前　　値
20130101 大田　　10000
20130201 鈴木　　13000
20130211 加藤　　52000
20130301 石黒　　40000　
20130314 田中　　9500
20130401 石井　　1000

日付と名前と値が入っています。
Excelで指定した期間と名前を変数に保持するか、Excelのシートに保存したいのです。

現状はExcel側で
期間を選択して、実行ボタンを押す。

実行ボタンをクリックするとAccessのmdbファイルに接続。

Option Explicit

Dim strAccess As String

Private Sub cmb実行_Click()

strAccess　= \\接続先\接続.mdb
dbCon.Open cnsADO_CONNECT1 & strAccess

strsql = "SELECT * FROM 接続先 WHERE 日付 "
dbRes.Open strsql, dbCon, adOpenKeyset, adLockReadOnly

Gyo = 1
Rows("2:65536").ClearContents
dbRes.MoveFirst
Do Until dbRes.EOF
Gyo = Gyo + 1
Set dbCols = dbRes.Fields
Cells(Gyo, 1).Value = dbCols("日付").Value
Cells(Gyo, 2).Value = dbCols("名前").Value
Cells(Gyo, 3).Value = dbCols("値").Value

dbRes.MoveNext
Loop
dbRes.Close
Set dbRes = Nothing
dbCon.Close
Set dbCon = Nothing

End Sub

しかし、これだと期間の指定が出来ていません。

dim strSData as string
dim strEData as string

strSData = Worksheets("設定").Range("C2")'201301
strEData = Worksheets("設定").Range("C3")'201304

この状態で

strsql = "SELECT * FROM 接続先 WHERE 日付 BETWEEN strStartData AND strEndData ORDER BY 日付"

と、追加して上記構文を動かしてみたのですがエラーが出て動きません。
「1つ以上の必要なパラメーターの値が設定されていません。」
と、出てここの部分で止まってしまいます
dbRes.Open strsql, dbCon, adOpenKeyset, adLockReadOnly

変数の宣言の仕方が悪いのでしょうか？？

回答No.2

mitarashi · ベストアンサー

#1です。
Wクォーテーションと&でつなぐのも煩雑なので、下記もありかなと思いつきました。
ご参考まで。

strsql = "SELECT * FROM 接続先 WHERE 日付 BETWEEN strStartData AND strEndData ORDER BY 日付"
strsql = Replace(strsql, "strEndData", strEndData)
strsql = Replace(strsql, "strStartData", strStartData)

回答No.1

mitarashi

strsql = "SELECT * FROM 接続先 WHERE 日付 BETWEEN strStartData AND strEndData ORDER BY 日付"

は変ですね。とかくやりがちなので、
debug.print strsql などとして、所期ののSQL文になっているかご確認下さい。
某言語の様に、文字列中の変数を値と置き換えてくれる様な機能はありませんので、
strStartDataという文字、strEndDataという文字と日付を比較する事になっていると思います。

前略　BETWEEN " & strStartData & " AND " & strEndData & " ORDER 後略とする必要があります。

また、日付フィールドが数値では無くて、文字列型の場合は、さらにシングルクォーテーションで囲う必要があります。
"'" & strStartData & "'" とか、 chr(39) & strStartData & chr(39) とか．．．
ご参考まで。