在Excel 2016 Power Query中创建后如何在Excel 2013中修改查询

Question

我使用Power Query在Excel 2016中创建了一个工作簿。 我正在使用代码来更改查询。 但是我也希望能够在Excel 2013中运行它。 如何修改代码以访问查询？

这是我的代码在Excel 2016中有效，但在2013年或更早的版本中不起作用。

Sub UpdateQuery()
    Dim CmdText As String

    'Compile error here "User Defined Type not defined"
    Dim qry As WorkbookQuery

    'Compile error here "Method or data member not found"
    Set qry = ThisWorkbook.Queries("CurrentQuery")
    CmdText = qry.Formula

    CmdText = ... make a change

    qry.Formula = CmdText

End Sub

这段代码可以在Excel 2013中正常运行，但不能满足我的需求。

Sub UpdateQuery2013()
    Dim cmdText As String

    Dim lo As ListObject
    Set lo = ws.ListObjects("CurrentTable")
    CmdText = lo.QueryTable.CommandText

    CmdText = ... make a change

    lo.QueryTable.CommandText = cmdText

End Sub

以上返回：命令文本：SELECT * FROM [QueryCurrent]连接字符串：Provider = Microsoft.Mashup.OleDb.1; Data Source = $ Workbook $; Location = QueryCurrent; Extended Properties =“”
命令类型：SQL

我真正想要的是修改QueryCurrent。 我怎么做？

Answer 1

这是一种解决方法。 我不知道是否有任何方法可以使用Excel 2013从VBA修改原始（超级查询）查询。

我终于意识到，我可以避免使用Power Query编辑器。 在Excel中输入与以前版本相同的查询：在功能区>数据>连接>属性>定义选项卡上>在此处输入查询和连接字符串。 然后使用Excel 2013代码进行修改。

Sub UpdateQuery2013()
    Dim cmdText As String

    Dim lo As ListObject
    Set lo = ws.ListObjects("CurrentTable")
    CmdText = lo.QueryTable.CommandText

    CmdText = ... make a change

    lo.QueryTable.CommandText = cmdText

End Sub

工作正常。