Excel Power Pivot - 使用VBA更改表属性中的SQL语句

Question

在Excel中，我已经建立了与SQL Server数据库的连接;我添加了多个表格，但它只是一个＆＃34;连接＆＃34;。当我＆＃34;管理数据模型＆＃34;时，转到设计选项卡，单击表属性，我可以查看/编辑表的SQL。 是否可以使用VBA编辑该SQL？

我在“编辑表属性”对话框中更改SQL文本时记录了一个宏，但没有记录任何内容。

使用此代码段，连接的CommandText显示为以逗号分隔的表列表，因此我不认为我可以更新任何连接属性以更新每个表的SQL。

Dim cn As WorkbookConnection
Dim odbcCn As ODBCConnection, oledbCn As OLEDBConnection
For Each cn In ThisWorkbook.Connections
    If cn.Type = xlConnectionTypeODBC Then
        Set odbcCn = cn.ODBCConnection
        MsgBox "odbcCn.CommandText = " & odbcCn.CommandText

    ElseIf cn.Type = xlConnectionTypeOLEDB Then
        Set oledbCn = cn.OLEDBConnection
        MsgBox "oledbCn.CommandText = " & oledbCn.CommandText
    End If
Next