自动化数据透视表并将数据添加到数据模型？

问题描述

我正在编写一个宏，该宏将允许用户将数据导入Excel，然后自动生成数据透视表。事实证明，最困难的部分是数据透视表，因为我需要合并“区别计数”。反过来，这要求将数据添加到数据模型中。宏记录器将写入以下内容：

Workbooks("DataScientific.xlsm").Connections.Add2 _
    "WorksheetConnection_DataScientific.xlsm!Table1","",_
    "WORKSHEET;C:\Users\myname\Desktop\DataScientific.xlsm",_
    "DataScientific.xlsm!Table1",7,True,False

第一行很容易实现自动化。例如：

ThisWorkbook.Connections.Add2 _

其他几行被证明是一个挑战。我尝试做的一件事是在单元格中创建字符串，然后将宏指向该单元格：例如：

ThisWorkbook.Connections.Add2 _
Shee1.Range("D33"),_
Sheet1.Range("D34"),_
Sheet1.Range("D35"),False

当然，这不起作用。我知道格式为ADD2（字符串，字符串，对象，对象，对象，对象，对象）

如果我理解正确，我可以使用range指向对象，但是我不确定是否可以对字符串做同样的事情。

老实说，我已经尝试了许多不同的方法，但都无济于事，我也不知道下一步该怎么做。能做到吗？如果可以的话，如果有人能指出我正确的方向，我将不胜感激。非常感谢您的帮助！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

data-connections data-modeling pivot-table