EXCEL VBA 1004 一般ODBCエラー1
クライアントのデータベースが入っているエクセルファイルを参照して請求書を作るマクロなのですが、検索画面に任意の文字を入れて検索をかけると「実行時エラー1004 一般ODBCエラー」とでます。デバックをすると「.Refresh BackgroundQuery:=False」のところでエラーの黄色いハイライトがでてしまいます。ネット上に存在する同じような質問の回答で「IEの一時ファイルと履歴を削除したり、一時ファイルの容量を増やすとなぜか直る場合がある」とありましたが、もちろん直りませんでした。。
長いので2回に分けて貼りたいと思います。
どなたかご教授宜しくお願い致します。
Private Sub CommandButton1_Click()
Worksheets("Temp").Cells.ClearContents
With Worksheets("Temp").QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & Range("データベースファイルパス").Value & ";DefaultDir=" & Range("デフォルトフォルダ").Value & ""), Array(";DriverId=790;MaxBufferSize=2048;PageTimeout=5;")), Destination:= _
Worksheets("Temp").Range("A1"))
.CommandText = Array( _
"SELECT ", _
" プロジェクトデータ.`PSFT ID`,", _
" プロジェクトデータ.プロジェクト概要,", _
" プロジェクトデータ.`担当者名(日本語)`,", _
" プロジェクトデータ.PIC,", _
" 会社マスタ.略称,", _
" 会社マスタ.`会社名(日本語名)`, ", _
" プロジェクトデータ.`アルファベットプロジェクト名` ", _
"FROM `" & Range("データベースファイルパス").Value & "`.`プロジェクトデータ$` プロジェクトデータ, ", _
" `" & Range("データベースファイルパス").Value & "`.`会社マスタ$` 会社マスタ ", _
"WHERE プロジェクトデータ.会社ID = 会社マスタ.会社ID AND ", _
"((会社マスタ.略称 like '%" & UserForm1.TextBox1.Value & "%') OR (会社マスタ.`会社名(フリガナ)` like '%" & UserForm1.TextBox1.Value & "%')", _
" OR (会社マスタ.`会社名(日本語名)` like '%" & UserForm1.TextBox1.Value & "%') ", _
" OR (会社マスタ.`会社名(英語)` like '%" & UserForm1.TextBox1.Value & "%') ", _
" OR (プロジェクトデータ.`PIC` like '%" & UserForm1.TextBox1.Value & "%') ", _
" OR (プロジェクトデータ.`プロジェクト概要` like '%" & UserForm1.TextBox1.Value & "%') ", _
" OR (プロジェクトデータ.`アルファベットプロジェクト名` like '%" & UserForm1.TextBox1.Value & "%') ", _
" ) ", _
" AND プロジェクトデータ.登録ステータス not in ('廃止','登録申請') ")
.Name = "Excel Files からのクエリ"
続きはこちらです。見づらくて本当すみません。
http://okwave.jp/qa/q6559798.html
お礼
ありがとうございます。 参考にさせて頂きます。