.refresh BackgroundQuery：= False错误1004

我正在解决问题

我有一个VBAmacros在Excel 2013（2007年，并在2010年工作正常）它是在SQL脚本。 这里有一些错误代码

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "ODBC;DRIVER=SQL Server Native Client 10.0;SERVER=APP14A\ISAHSERVER;UID=reader;PWD=reader;;DATABASE=ProduktieDB;", Destination _ :=Range("$A$7")).QueryTable .CommandText = Array( _ "SELECT T_DossierMain.OrdNr, T_DossierDetail.DetailCode, T_DossierDetail.Description, T_DossierDetail.PartCode, T_DossierDetail.CalcQty, T_DossierDetail.DiscPerc, T_DossierDetail.CurrPrice" & Chr(13) & "" & Chr(10) & "FROM ProduktieDB.dbo.T_DossierDetail T_DossierDetail, ProduktieDB" _ , _ ".dbo.T_DossierMain T_DossierMain" & Chr(13) & "" & Chr(10) & "WHERE T_DossierDetail.DossierCode = T_DossierMain.DossierCode AND ((T_DossierMain.OrdNr= '" & VariableOrderNo & "' ))" _ ) .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = False .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = "Table_Hoofdregels_Ophalen" .Refresh BackgroundQuery:=False End With If IsEmpty(Range("A8").Value) Then MsgBox "De order bestaat niet of heeft geen regels!" Exit Sub End If 

所以问题是，我得到的错误行“.refresh BackgroundQuery：= False，如果我删除该行，它会继续打印的东西

帮帮我？

问候，

迈克尔

编辑：我发现这个问题..这个macros是在2007年，所以我唯一要做的就是改变“.PreserveFormatting = False>真

无论如何感谢=）