Excel VBA不选择范围，尽管它是select语句

我正在从数据透视缓存创建自动数据透视表，该数据透视缓存从adodb连接导入其记录集

我需要对日期字段进行分组，并找到一种使用.pivotselect方法进行联机操作的方法。代码运行良好，但是excel似乎没有选择数据透视表所在的工作表，即使选择了数据透视表数据。如果选择另一张图纸，然后运行该过程，则会导致错误

数据透视表。数据透视选择是否也自动选择工作表？我已通过使用工作表（“轴”）暂时解决了此问题。请在日期分组代码之前选择。如何解决这个问题？当前代码基于宏记录器生成的代码

代码

---

确保对工作表对象进行尺寸标注，并将其设置为具有透视表的任何工作表：

Dim wkb    As Excel.Workheet

Set wkb = ActiveWorkbook.Worksheet("Me")

wkb.Activate 'wkb.Select may give focus but doesn't register as the active worksheet object.

<PT Code>

Set wkb = Nothing

将wkb设置为Excel.工作表
设置wkb=ActiveWorkbook.Worksheet（“Me”）
wkb.Activate“wkb.Select可能会提供焦点，但不会注册为活动工作表对象。
设置wkb=无

您是否尝试过在查看本地窗口时一次一行地通过代码进行调试？这一行是问题“Sheets”（“pivot”）。选择“？只需创建一个Woksheet变量，将ThisWorkbook.Sheets（“pivot”）分配给它，并将其用作工作表引用。“Sheets”（“pivot”）。选择只是防止错误的临时解决方案。我已逐步完成代码，代码在“Sheets”（“pivot”）的下一行失败。如果在运行代码时没有选择该工作表，请选择。我尝试了您的建议，但仍然出现相同的错误。确定。为什么需要选择整个工作表？如果只将范围变量设置为PT数据范围中的单个单元格，并对其调用Group方法，会发生什么情况？你读过吗？然后呢？

Dim wkb    As Excel.Workheet

Set wkb = ActiveWorkbook.Worksheet("Me")

wkb.Activate 'wkb.Select may give focus but doesn't register as the active worksheet object.

<PT Code>

Set wkb = Nothing