|
▼ichinose さん:
>こうちゃん、まえださん、おはようございます。
>
>>ichinoseさんもおっしゃってますが、SQLを一度見直してみてはいかがでしょう。
>db3 = " FROM `C:\損益データ`.`DB$` `DB$`"
>db4 = " WHERE (`DB$`.得意先名='" & dbAitem & "') AND (`DB$`.売上対策 Is Not Null)"
>この辺ですが・・・。
>確認してみて下さい。
出来ました!!
db4 = "WHERE (`DB$`.得意先名='" & dbAitem & "') AND (`DB$`.売上対策 Is Not Null)"
With ActiveSheet.QueryTables.Add(Connection:=Array(Array(db1), Array("out=5;")), Destination:=Range("A1"))
.CommandText = Array( _
db2 & Chr(13) & "" & Chr(10) & db3 & Chr(13) & "" & Chr(10) & db4)
よくよく確認。トライ&エラーの繰返しでした。
「Is Not」の記述と、最後の記述に余分な「,)」がありました。
年始廻りでPC使用が遅くなり、返事が遅れました。
ありがとうございます。
|
|