Excel VBA質問箱 IV

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

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


71183 / 76732 ←次へ | 前へ→

【10045】Re:データベースクエリー
発言  ichinose  - 04/1/5(月) 10:57 -

引用なし
パスワード
   ▼まえだ さん:
こんにちは。
>次のようなデータベースクエリーを新規で作成し、「dbAitem」の値を変化させてデータを抽出したいのですが、最終行の「Refresh BackgroundQuery:=False」でエラーが出ます。
>対処方法をご教授ください。

マクロの記録から組み立てていますよね?
次回は、エラーの内容も教えてくださいね!!
たぶん、SQLの記述ミスかと思います。
気が付いたところは、


>
>Dim dbAitem As String
>
>dbAitem = "岡山工業株式会社"
>db1 = "ODBC;DSN=Excel Files;DBQ=C:\損益データ.xls;DefaultDir=C:\Data;DriverId=790;MaxBufferSize=2048;PageTime"
>db2 = "SELECT `DB$`.コード, `DB$`.得意先名, `DB$`.年月日, `DB$`.売上対策"
>db3 = "FROM `C:\損益データ`.`DB$` `DB$`"
db4 = "WHERE (`DB$`.得意先名='" & dbAitem & "') AND (`DB$`.売上対策<>'"
'                ↑のシングルコーテーション
'ですが、確認してみて下さい。
'他にもあるかもしれませんが、SQLを再度見直してみたらどうでしょうか?


>
>  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, " ')")
>    .Name = "Excel Files からのクエリ"
>    .FieldNames = True
>    .RowNumbers = False
>    .FillAdjacentFormulas = False
>    .PreserveFormatting = True
>    .RefreshOnFileOpen = False
>    .BackgroundQuery = True
>    .RefreshStyle = xlInsertDeleteCells
>    .SavePassword = True
>    .SaveData = True
>    .AdjustColumnWidth = True
>    .RefreshPeriod = 0
>    .PreserveColumnInfo = True
>    .Refresh BackgroundQuery:=False
>  End With
1 hits

【10041】データベースクエリー まえだ 04/1/4(日) 22:43 質問
【10045】Re:データベースクエリー ichinose 04/1/5(月) 10:57 発言
【10066】Re:データベースクエリー まえだ 04/1/5(月) 22:34 質問
【10071】Re:データベースクエリー こうちゃん 04/1/6(火) 8:50 回答
【10073】Re:データベースクエリー ichinose 04/1/6(火) 10:02 発言
【10111】Re:データベースクエリー まえだ 04/1/7(水) 23:55 お礼

71183 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free