VBA·如何用链接至本工作簿的OLEDB连接来创建数据透视表

没树高

我们可以手工操作，创建一个OLEDB连接，再利用这个连接来创建数据透视表（插入 -> 数据透视表 -> 来自外部数据源 -> 选择连接）——见附件中的“第1步”和“第2步”工作表;


但是用VBA来完成上述操作时，会经常报错（见“第3步”工作表）；如果OLEDB连接的数据源在本工作簿之外，那么用VBA创建透视表缓存后，紧接着能成功地用这个缓存建立数据透视表。我在本地窗口中查看了下这两个缓存（PivotCache）的各属性，除了连接字符串的Data Source不同外（一个链接到本工作簿的Data，另一个链接到外部数据源），其它的都一样。太诡异了！

请问各位，如果以上这个诡异的现象消除不了，那有没有其它的利用工作簿连接或连接字符串(数据源依然是本工作簿中的表)创建数据透视表的VBA方法？谢谢！