VBA调整表格Resize操作报错Method 'Range' of Object '_Global' failed

问题场景 #

编写跨工作簿操作Excel的VBA代码，目标是引用指定工作表中的ListObject表格并调整其尺寸，逻辑为调整尺寸前先检查表格筛选状态，若存在激活的筛选则先清除所有筛选条件。所有涉及变量均已提前声明，Option Explicit开启、关闭状态下均完成测试，初始核心代码如下：

Dim ExcelTool As Workbook: Set ExcelTool = Workbooks.Open(ExcelTool_Template_Path1 & _
ExcelTool_Template_Name1, ReadOnly:=True)
Dim ExcelToolRates As Worksheet: Set ExcelToolRates = ExcelTool.Worksheets("Rates")
Dim RatesTable As ListObject: Set RatesTable = ExcelToolRates.ListObjects("Table1")
If RatesTable.AutoFilter.FilterMode Then
    RatesTable.AutoFilter.ShowAllData
End If

ExcelToolRates.Activate
RatesTable.Resize Range(3)

代码运行时，除Resize操作外其余逻辑（包括通过RatesTable对象清除筛选）均能正常执行，运行到Resize语句时抛出错误："Method 'Range' of Object '_Global' failed"。
已知信息：

• 目标工作表Rates中确实存在名为Table1的默认ListObject表格
• 代码运行在同个Excel实例下的另一个工作簿中，曾尝试先激活目标表格所在工作簿，将Resize逻辑替换为以下代码，仍报相同错误：

ActiveWorkbook.Sheets("Rates").ListObjects("Table1").Resize Range(3)

后续将代码调整为如下写法后，又触发新的运行时错误：

RatesTable.Resize RatesTable.DatabodyRange.Resize(3)

错误原因 #

1. 首次报错核心原因：ListObject.Resize方法要求传入的参数必须是归属明确、覆盖表格完整结构（含表头行、所有列）的有效Range对象。代码中使用的Range(3)是无明确父级对象的全局Range调用，本身属于无效区域引用；全局Range默认跟随当前活动上下文，跨工作簿操作场景下上下文极易错位，因此抛出Range调用失败错误。
2. 二次调整后报错核心原因：DataBodyRange仅代表表格的数据存储区域，不包含必填的表头行，直接将该区域传入Resize方法会导致新的表格范围缺失表头结构，不符合ListObject的对象定义规则，因此触发报错。
   额外注意：初始代码打开目标工作簿时使用了ReadOnly:=True参数，表格尺寸调整属于文件修改操作，只读模式下即使Resize参数写法正确，也会因无写入权限触发操作失败。

正确实现方案 #

调整表格尺寸时，无需额外激活目标工作表或工作簿，从表格原有区域的左上角（表头第一个单元格）起始，按目标总行数、原表总列数生成明确归属的有效范围，再传入Resize方法即可，参考代码如下：

Dim ExcelTool As Workbook
Dim ExcelToolRates As Worksheet
Dim RatesTable As ListObject
Dim newTableRange As Range

' 需要修改表格内容时，打开文件需移除ReadOnly:=True参数
Set ExcelTool = Workbooks.Open(ExcelTool_Template_Path1 & ExcelTool_Template_Name1)
Set ExcelToolRates = ExcelTool.Worksheets("Rates")
Set RatesTable = ExcelToolRates.ListObjects("Table1")

' 先清除现有筛选
If RatesTable.AutoFilter.FilterMode Then
    RatesTable.AutoFilter.ShowAllData
End If

' 示例：将表格调整为共3行（1行表头+2行数据），列数与原表保持一致
Set newTableRange = RatesTable.Range.Cells(1, 1).Resize( _
    RowSize:=3, _
    ColumnSize:=RatesTable.ListColumns.Count _
)
' 执行表格尺寸调整
RatesTable.Resize newTableRange

内容的提问来源于stack exchange，提问作者Paul