Excel VBA将表格添加到数据透视表数据模型答案

【问题标题】：Excel VBA adding table to Pivot Table Data modelExcel VBA将表格添加到数据透视表数据模型
【发布时间】：2020-10-12 09:28:24
【问题描述】：

早安，

我正在尝试从表中插入数据透视表，但还通过 VBA 将其添加到数据模型中。我已经手动记录了这个过程，也按照这个链接的例子：https://powerpivotpro.com/2014/07/adding-tables-to-a-model-from-vba-in-excel-2013/

我更改了之前在代码中设置的数据路径和工作簿名称的变量。当我运行宏时，我在第一行收到以下错误：“运行时错误 5：无效的过程调用或参数”。

我以前从未通过 VBA 将数据透视表添加到数据模型中，因此不确定代码的外观（除了我在网上看到的，我的似乎遵循示例）

    MainWB.Connections.Add2 "WorksheetConnection_" & MainWB.Name & "!Table_SDCdata", "", _
        "WORKSHEET;" & DataPath & "\" & MainWB.Name & ", " & MainWB.Name & "!Table_SDCdata", 7, True, False

    MainWB.PivotCaches.Create(SourceType:=xlExternal, SourceData:=MainWB.Connections("WorksheetConnection_" & MainWB.Name & "!Table_SDCdata" _
        ), Version:=6).CreatePivotTable TableDestination:=wsPivotModel.Name & "!R1C1", TableName:="PvtSDCmodel", DefaultVersion:=6

变量如下：（**为安全起见，本题添加替换，两个变量都是正确的，在代码中多次使用没有问题）

MainWB.name: **2791 SDC Inland 12.08.2020.xlsbCOMBINED.xls

数据路径： C:_Store\Simone_d_drive\Desktop*\2019\Macros*\原始数据**\2791\2020.08.16

任何帮助或指出正确的方向都会非常感谢您！

【问题讨论】：

标签： excel vba pivot-table datamodel

【解决方案1】：

我设法找到了我的错误：

更新代码：

    MainWB.Connections.Add2 "WorksheetConnection_" & MainWB.Name & "!Table_SDCdata", "", _
        "WORKSHEET;" & DataPath & "\" & MainWB.Name, MainWB.Name & "!Table_SDCdata", 7, True, False

我必须删除两个引号，一个在连接字符串的末尾，第二个在命令文本的开头。

【讨论】：