Question

我正在解决一个问题..

我在Excel 2013中获得了一个VBA宏（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 如果我删除该行，它将继续打印东西

帮助？

的问候，

迈克尔

编辑：我发现了问题..这个宏是在2007年制作的，所以我唯一需要做的就是更改“.PreserveFormatting = False＆gt; True

非常感谢=）

.refresh BackgroundQuery：=错误1004

0 个答案: