VBA実行時エラー'1004':SQL構文エラーの修正方法

Question

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

試したこと

Answer 1

SQLを＆を使って組み立てる部分で、間にspaceがないからでは。
変数Sqlは“select b.INDNOfrom テーブルA…”みたいになってるはず。

Comments

[Orukaya]

気が付きませんでした、ありがとうございます！

[otn]

> 気が付きませんでした
思い込みで「空白無し」に気づかないというのは、誰しもあり得ますが、
普通は、エラー行にブレークポイントを設定するとか、
debug.print Sql してみるとかで気づきます。
デバッグの仕方を覚えましょう。

「間違うことを無くす」は人間には無理なので「間違いを見つける」方法を学んで解決します。