Excel VBA質問箱 IV

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

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


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

71193 / 76738

←次へ　｜　前へ→


	【10041】データベースクエリー

まえだ

- 04/1/4(日) 22:43 -


	引用なし

	パスワード

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

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$`.売上対策<>'"

　　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

0 hits

▼

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

≪