Question

我正在尝试记录Power Query宏来刷新自身。每当我运行该代码时，都会出现以下错误：表不能重叠

运行时错误'1004'一个表不能重叠另一个表

我尝试过调试，但是也没有用

Windows("WorkOrderItemOpen2.0.xlsm").Activate
Sheets("Valid Labor").Activate

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
    "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Merge1;Extended Properties=""""" _
    , Destination:=Sheets("Valid Labor").Range("$A$1")).QueryTable
    .CommandType = xlCmdSql
    .CommandText = Array("SELECT * FROM [Merge1]")
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .ListObject.DisplayName = "Merge1"
    .Refresh BackgroundQuery:=True

End With

Answer 1

每次运行代码时，您都将添加一个新的ListObject（表），但是上一个表仍保留在工作表中（位于同一位置）。由于不能有重叠的表，因此会出现错误。

如果您只想刷新数据，则只需调用ListObject的刷新方法，例如

ActiveSheet.ListObjects(1).refresh()

运行时错误1004：表不能重叠

1 个答案: