我使用PowerQuery将4个查询仅存储为连接，然后将它们合并-附加到两个表中。这个动作被记录到一个宏中，这样我以后就可以用它来重复同样的过程。我在这里附加了由宏生成的VBA代码的相关部分。我发现了两个我没有预料到的问题，并希望找到解决方案。

首先，工作簿是通过它的实际的、完整的文件名调用的，而不是像"currentworkbook“或类似的东西(见第二行)

    Workbooks( _
    "RP-DM_Survey123_Formatting_Template_March_2021_Copy4_PowerQuery.xlsm"). _
    Connections.Add2 "Query - Trees_Query", _
    "Connection to the 'Trees_Query' query in the workbook.", _
    "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Trees_Query;Extended Properties=""""" _
    , "SELECT * FROM [Trees_Query]", 2

其次，查询生成的表被存储到我在宏录制过程中命名的新工作表中(在本例中，名称为'PruningQuery')，我希望下次运行宏时会继续命名。相反，创建的表会进入新的工作表，其名称为'Sheet6‘、'Sheet7’或该工作簿中创建的最后一个工作表后面的任何数字。

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