运行时错误 1004 一般 odbc 错误刷新 backgroundquery false

Question

我有一个运行的 VBA 代码：

wsEnd.Select

Range("A:AQ").Delete

        strSQL = "Select *
        strSQL = strSQL & " FROM [XXX].[ABCCustomer] As A"
        strSQL = strSQL & " Left join"
        strSQL = strSQL & " (Select * "
        strSQL = strSQL & " From [XXX]..[ABCCustomer]"
        strSQL = strSQL & " where LineageId = '123' ) B"
        strSQL = strSQL & " on a.product = b.product and a.[StartDate] = b.[StartDate]"
        strSQL = strSQL & " where (a.EndDate <> b.EndDate)"
        strSQL = strSQL & " and a.NewEndDate is NULL AND B.NewEndDate IS NULL"
        strSQL = strSQL & " and a.Id = '456"
        strSQL = strSQL & " order by b.ProductType"

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DRIVER=SQL Server;SERVER=XXX\SQL01;UID=;Trusted_Connection=Yes;APP=2007 Microsoft  Office system;WSID=XXX;DATA" _
        ), Array("BASE=master")), Destination:=Range("$A$1")).QueryTable
        .CommandText = strSQL
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_Query_from_XXX_C"
        .Refresh BackgroundQuery:=False

End with

我还有另外两个脚本在 End With 之后开始，但在同一个 sub 中都使用相同的 VBA 只是不同的 SQL，它们都工作得很好。

然后我有这个非常烦人，这让我非常头疼，如下：

        strSQL = "Select *
        strSQL = strSQL & " FROM [XXX].[ABCCustomer] As A"
        strSQL = strSQL & " Left join"
        strSQL = strSQL & " (Select * "
        strSQL = strSQL & " From [XXX]..[ABCCustomer]"
        strSQL = strSQL & " where Id = '123' ) B"
        strSQL = strSQL & " on a.product = b.product and a.[StartDate] = b.[StartDate]"
        strSQL = strSQL & " where (a.EndDate = b.EndDate)"
        strSQL = strSQL & " and a.NewEndDate is Not NULL AND B.NewEndDate not NULL"
        strSQL = strSQL & " and a.Id = '456"
        strSQL = strSQL & " order by b.Product"

        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DRIVER=SQL Server;SERVER=XXX\SQL01;UID=;Trusted_Connection=Yes;APP=2007 Microsoft Office system;WSID=XXX;DATA" _
        ), Array("BASE=master")), Destination:=Range("$A$1")).QueryTable
        .CommandText = strSQL
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_Query_from_XXX_D"
        .Refresh BackgroundQuery:=False
    End With
End Sub

运行代码时，前三个恢复正常，但第四个说

运行时错误 1004 一般 odbc 错误

并在backgroundquery=false处停止代码。

我已将 SQL 代码提升到 SQL 中，它在那里工作得非常好，甚至尝试在单独的 excel 文档上运行它，但这并没有带来任何乐趣。

复制和粘贴 VBA，仅更改列表对象表名，即从 C 更改为 D

我尝试将backgroundquery:=false 更改为background:=refresh，这可行，但我收到一条消息说

运行时错误 1004 由于后台正在刷新数据，因此无法执行此操作。

Answer 1

计算机重置后错误消失。真的很抱歉，但感谢所有回复的人。

谢谢 马特

Answer 2

这不是问题的答案。但它是相关的，因为这样写的原因是为了让它更容易阅读。

原始代码：这可以很好地排列字符以读取语句，但是通过为每个行项定义 strSQL 的值是多余的。

strSQL = "Select *
strSQL = strSQL & " FROM [XXX].[ABCCustomer] As A"
strSQL = strSQL & " Left join"
strSQL = strSQL & " (Select * "
strSQL = strSQL & " From [XXX]..[ABCCustomer]"
strSQL = strSQL & " where LineageId = '123' ) B"
strSQL = strSQL & " on a.product = b.product and a.[StartDate] = b.[StartDate]"
strSQL = strSQL & " where (a.EndDate <> b.EndDate)"
strSQL = strSQL & " and a.NewEndDate is NULL AND B.NewEndDate IS NULL"
strSQL = strSQL & " and a.Id = '456"
strSQL = strSQL & " order by b.ProductType"

修改：除了颜色格式在翻译中丢失。这告诉任何阅读它的人该变量被设置一次，并消除了必须扫描的冗余字符。

strSQL = "Select * " & _
         "FROM [XXX].[ABCCustomer] As A " & _
         "Left join " & _
         "(Select * " & _
         "From [XXX]..[ABCCustomer] " & _
         "where LineageId = '123' ) B " & _
         "on a.product = b.product and a.[StartDate] = b.[StartDate] " & _
         "where (a.EndDate <> b.EndDate) " & _
         "and a.NewEndDate is NULL AND B.NewEndDate IS NULL " & _
         "and a.Id = '456 " & _
         "order by b.ProductType"