访问VBA创建Excel数据透视表

我正在尝试使用Access来控制Excel并获取Excel数据来创建数据透视表。我有这个密码

Dim xlApp As Excel.Application
Dim wb As Excel.Workbook

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False

Set wb = xlApp.Workbooks.Open("R:\Excel\TemplateReport.xlsx", False, False)

wb.PivotCaches.Create(xlDatabase, "Store!A1:I321", 6).CreatePivotTable("Test!A3", "PivotTable2", True, 6)

但是当我运行我的代码时，我得到了这个错误

编译错误 语法错误

---

创建数据透视表需要更改什么？

删除CreatePivotTable后的括号，并更改单元格范围的引用格式

改为：

wb.PivotCaches.Create(xlDatabase, "Store!R1C1:R321C9", 6).CreatePivotTable "Test!R3C1", "PivotTable2", True, 6

---

您是否已将Excel对象库加载为Access中的引用？是的，该引用已添加请参见我的编辑-我刚刚添加了itReview modify，用于Access VBA操作Excel对象。宏录制器是一个很好的概念入门工具，但在编写功能齐全且灵活的代码时，特别是当在另一个应用程序中用作参考时，有很多东西需要更改。