VBA実行時エラー'1004':SQL構文エラーの修正方法
- ExcelVBAにて、SQLの記述部分で出るエラー'1004'がでるので修正したい。
前提
・社内データベースのテーブルをExcelに書き出すためのVBAを作成しています。
・SQLはA5:SQL Mk-2というソフトで問題なく動くことを確認してからVBAに組み込んでいます。
・デバッグしたところ
.Refresh BackgroundQuery:=False
の部分で引っ掛かって止まります。
・ExcelのA1セルには
"ExternalData_1 : データの取り出し中..."
の表示のみで、テーブルの作成が止まります、なぜ取り出し中まで進んでくれるのに止まるのでしょうか。
発生している問題・エラーメッセージ
実行時エラー'1004' SQL構文エラー
該当のソースコード
Sub Access_工数() ' Dim Sql As String Sql = "select b.INDNO" Sql = Sql & "from テーブルA a" Sql = Sql & "left join テーブルB b on b.LISTNO = a.LISTNO" Sql = Sql & "where b.INDNO like '%IN230300000%'" With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "ODBC;DSN=データベース名;UID=ユーザー名;pwd=パスワード;SERVER=サーバー名;", Destination:=Range("$A$1")). _ QueryTable .CommandText = Sql .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = "テーブル_***_からのクエリ1" .Refresh BackgroundQuery:=False End With End Sub
試したこと

回答1件
あなたの回答
tips
プレビュー
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
また依頼した内容が修正された場合は、修正依頼を取り消すようにしましょう。
2023/06/02 04:08
2023/06/02 09:37