Excel指定工作表Pivot刷新失败，VBA报Invalid use of property错误

原代码错误点 #

• 变量类型声明不匹配：你将vSheets声明为Worksheets集合类型，但Array()函数返回的是Variant类型数组，类型不匹配是触发「Invalid use of property」报错的核心原因。
• 数组赋值错误：Array("A, B")只会生成1个值为"A, B"的字符串元素，不是你需要的"A"、"B"两个工作表名元素，正确写法为Array("A", "B")。
• 引用逻辑冗余：遍历工作表对象时无需再嵌套Sheets()进行二次引用，容易引发引用错误。

修正后可运行代码 #

Sub Refreshsomepivot()
    Dim vSheetName As Variant
    Dim pt As PivotTable
    ' 定义需要刷新的工作表名称列表
    Dim targetSheets As Variant
    targetSheets = Array("A", "B")
    
    For Each vSheetName In targetSheets
        ' 增加异常处理，避免工作表不存在时报错中断运行
        On Error Resume Next
        For Each pt In ThisWorkbook.Sheets(vSheetName).PivotTables
            pt.RefreshTable
        Next pt
        On Error GoTo 0
    Next vSheetName
End Sub

代码说明 #

• 调整了变量类型适配数组返回值，从根源解决属性调用错误
• 明确使用ThisWorkbook指代当前代码所在的工作簿，避免多工作簿打开时出现引用错位
• 新增异常跳过逻辑，工作表A/B被意外删除时不会导致宏运行崩溃

内容的提问来源于stack exchange，提问作者Sai Nagarajan M M