Oracleからexcelへの抽出条件

質問

office2010 oracle11g

Oracleデータベースから、excelマクロで条件を満たすデータを抽出したいです。

macroシートのI1に
=TEXT(NOW(),"yyyymmddhhmm")
が設定されています。

oracleのUSERというテーブルで、V_HELP_END_DTの列に日付としてのデータが入っています。
20170327
20160609
の様に西暦月日、8桁のデータです。

今日の日付　<　V_HELP_END_DT
のデータを抽出する条件で下記の様に設定しました。

Dim t As String
t = Sheets("macro").Range("I1").Value
rs.Open "select * from USER where V_HELP_END_DT >" & t, cn, adOpenDynamic, adLockOptimistic, adCmdText

上記のマクロで、エラーは発生しないのですが、何も抽出されません。
何が悪いのか、訂正いただきたく、よろしくお願いします。

なお、下記の場合は、2017から始まるデータが抽出されます。
rs.Open "select * from USER where V_HELP_END_DT > '2017%' ", cn, adOpenDynamic, adLockOptimistic, adCmdText

回答No.1

tsubu-yuki · ベストアンサー

オラクルはあまり得意ではないのですが・・（汗）

> macroシートのI1に
> =TEXT(NOW(),"yyyymmddhhmm")
> が設定されています。
ここを
　　式：=TEXT(NOW(),"yyyymmdd")
の８ケタにしてみては？

あるいは
> Dim t As String
> t = Sheets("macro").Range("I1").Value
ここを
　　t = Mid(Sheets("macro").Range("I1").Value, 1, 2)
にしてみるか。

検索キーは８ケタですよね？