Excel 2013中无法通过工作表名称直接访问工作表的技术咨询

你踩的这个坑其实很多刚接触VBA的朋友都会遇到！先给你拆解清楚问题根源，再给你想要的简洁解决方案：

1. 为什么直接赋值工作表会报错？ #

你遇到的"Object variable or With block variable not set"错误，核心原因是VBA对对象变量的赋值规则：
像Worksheet这种属于对象类型的变量，赋值时必须用Set关键字，普通的=只能用来给数值、字符串这类非对象类型赋值。你写的这段代码：

Dim oWorksheet As Worksheet
oWorksheet = ActiveWorkbook.Worksheets("FPSpivot")

少了关键的Set，VBA没法把工作表对象绑定到变量上，自然就抛出错误了。修正后应该是：

Dim oWorksheet As Worksheet
Set oWorksheet = ActiveWorkbook.Worksheets("FPSpivot")

2. 你想要的单行刷新代码完全可行！ #

只要满足两个简单前提，你理想中的单行代码就能正常运行：

• 活动工作簿里确实存在名为FPSpivot的工作表（名字要完全匹配，包括空格，不过Excel默认对工作表名大小写不敏感）
• 这个工作表里确实存在名为FPSpivot的数据透视表

直接运行下面的代码就能完成刷新：

ActiveWorkbook.Worksheets("FPSpivot").PivotTables("FPSpivot").PivotCache.Refresh

如果担心因为工作表/透视表不存在导致程序崩溃，可以加个简单的错误处理兜底：

On Error Resume Next
ActiveWorkbook.Worksheets("FPSpivot").PivotTables("FPSpivot").PivotCache.Refresh
If Err.Number <> 0 Then
    MsgBox "刷新失败：找不到目标工作表或数据透视表"
End If
On Error GoTo 0

你之前写的遍历代码虽然能实现功能，但确实没必要——直接通过名称定位工作表和透视表，效率更高也更简洁。

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