Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71193 / 76807

←次へ　｜　前へ→


	【10111】Re:データベースクエリー

まえだ

- 04/1/7(水) 23:55 -


	引用なし

	パスワード

▼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使用が遅くなり、返事が遅れました。　
ありがとうございます。
　　

0 hits

▼

【10041】データベースクエリー まえだ 04/1/4(日) 22:43